pascal

External Program running in different user desktop

女生的网名这么多〃 提交于 2021-01-05 06:38:04
问题 I am trying to execute an external program under SYSTEM level and I applied this method (where I only changed the CreateProcessAsSystem('c:\windows\system32\cmd.exe'); to the path of the application I wanted to execute) and it works perfectly as expected only if there is one user logged into the pc. Eg. I have 2 users ( user1 and user2 ) and both users are logged in ( user1 first and then user2 ). Then, I run the program in user2 and my external program supposed to appear on user2 's desktop.

How can I find the number of words in a given string?

瘦欲@ 提交于 2020-12-15 05:39:06
问题 I'm trying to find the number of words in a given string in Pascal? This is my starter coede: Program P1; var s:string; i,k:integer; begin write('Enter a string: '); readln(s); k:=0; for i:=1 to length(s) do begin if(s[i] = ' ') then k:=k+1; end; write('Number of words ', k); end. 回答1: You may implement the program as finite-state machine with two states ("inside word" and "word separator"): Program P1; type TState = (INSIDE_WORD, WORD_SEPARATOR); var s:string; i,k:integer; state: TState;

Cast Enumeration Value to Integer in Delphi

拟墨画扇 提交于 2020-06-11 03:06:44
问题 Is it possible to cast/convert an Enumeration Value to Integer in Delphi? If yes, then how? 回答1: This is called out explicitly at the documentation for enumerated types: Several predefined functions operate on ordinal values and type identifiers. The most important of them are summarized below. | Function | Parameter | Return value | Remarks | |----------|:-----------------------------------------------------:|----------------------------------:|-----------------------------------------------

Fatal: Syntax error, “.” expected but “;” found

被刻印的时光 ゝ 提交于 2020-05-17 10:38:41
问题 program Hello; var a,b,c,x,d: integer; x1,x2: real; begin readln(a,b,c); if a = 0 then begin if b = 0 then begin if c = 0 then begin writeln('11'); end else writeln('21'); end; end else writeln('31'); end; end else d := b^2 - 4*a*c; if d < 0 then begin writeln('Нет Вещественных корней!'); end else x1 := (-b + sqrt(d))/(2*a); x2 := (-b - sqrt(d))/(2*a); writeln('Первый Корень:' + x1 + ' ' + 'Второй Корень:' + x2); end; end; end. 回答1: The reason for this is that your begin s and end s are not

What are the advantages of using Virtual Machine compilation (eg. JVM) over natively compiled languages?

对着背影说爱祢 提交于 2020-05-07 10:34:11
问题 I've heard that the advantage of java is that people can write code, compile it for the JVM, and run it anywhere. Each person just needs a JVM app for their platform. Of course, it looks similar to the current situation, where everybody has a compiler specific for their platform. So the advantage isn't explained by that. But I think I see the explanation.. the issue must be that in the java situation, you can't or weren't meant to access the real machine directly in an OS specific way. I

tensorflow object detection API

空扰寡人 提交于 2020-03-20 07:33:15
tensorflow object detection API 创造一些精确的机器学习模型用于定位和识别一幅图像里的多元目标仍然是一个计算机视觉领域的核心挑战。tensorflow object detection API是一个开源的基于tensorflow的框架,使得创建,训练以及应用目标检测模型变得简单。在谷歌我们已经确定发现这个代码对我们的计算机视觉研究需要很有用,我们希望这个对你也会很有用。 1. 安装tensorflow以及下载object detection api 安装tensorflow: 对于CPU版本:pip install tensorflow 对于GPU版本:pip install tensorflow-gpu 升级tensorflow到最新版1.4.0:pip install --upgrade tensorflow-gpu 安装必须库: sudo pip install pillow sudo pip install lxml sudo pip install jupyter sudo pip install matplotlib protobuf编译:在tensorflow/models/research/目录下 protoc object_detection/protos/*.proto --python_out=. 添加pythonpath

InnoSetup安装之前关闭进程

梦想与她 提交于 2020-03-17 10:42:38
某厂面试归来,发现自己落伍了!>>> InnoSetup覆盖安装的时候可能会因为源程序正在运行而安装失败,以下脚本能够关闭原运行进程。 [code] // 安装前检查关闭**进程 function InitializeSetup():Boolean; //进程ID var appWnd: HWND; begin Result := true; //Log('Checking If Running...'); //根据窗体名字获取进程ID appWnd := FindWindowByWindowName('IE Scavenger'); if (appWnd <> 0) then //进程存在,关闭 begin //Log('Is Runing...'); //给进程发送关闭消息 PostMessage(appWnd, 18, 0, 0); // quit end else //进程不存在 begin //Log('Not Runing...'); end; end; InitializeSetup 函数在安装程序初始化时调用,返回 False 中断安装,返回 True 反之。 FindWindowByWindowName 获取窗口名与指定字串匹配的顶层窗口的句柄。这个函数不搜索子窗口 ,且不执行区分大小写搜索。如果没有找到窗口则返回 0。 运行流程就是根据窗口名获取正在运行的程序

MS推荐的命名指南

落爺英雄遲暮 提交于 2020-03-17 07:33:54
Pascal 大小写 将标识符的首字母和后面连接的每个单词的首字母都大写。可以对三字符或更多字符的标识符使用 Pascal 大小写。例如: BackColor Camel 大小写 标识符的首字母小写,而每个后面连接的单词的首字母都大写。例如: backColor 大写 标识符中的所有字母都大写。仅对于由两个或者更少字母组成的标识符使用该约定。例如: System.IO System.Web.UI 可能还必须大写标识符以维持与现有非托管符号方案的兼容性,在该方案中所有大写字母经常用于枚举和常数值。 一般情况下,在使用它们的程序集之外这些字符应当是不可见的。 下表汇总了大写规则,并提供了不同类型的标识符的示例。 标识符 大小写 示例 类 Pascal AppDomain 枚举类型 Pascal ErrorLevel 枚举值 Pascal FatalError 事件 Pascal ValueChange 异常类 Pascal WebException 注意 总是以 Exception 后缀结尾。 只读的静态字段 Pascal RedValue 接口 Pascal IDisposable 注意 总是以 I 前缀开始。 方法 Pascal ToString 命名空间 Pascal System.Drawing 参数 Camel typeName 属性 Pascal BackColor

转:C# 命名规则与开发习惯

此生再无相见时 提交于 2020-03-17 07:31:16
【按:原文地址: http://dev.csdn.net/author/Jon_Pilot/34a200bc13d84485974ace53df6f55ca.html 】 C# 命名规则与开发习惯 Pascal: 将标识符的首字母和后面连接的每个单词的首字母都大写。可以对三字符或更多字符的标识符使用 Pascal 大小写。 Camel: 标识符的首字母小写,而每个后面连接的单词的首字母都大写。 标识符 大小写方式 示例 类 Pascal AppDomain 枚举类型 Pascal ErrorLevel 枚举值 Pascal FatalError 事件 Pascal ValueChange 异常类 Pascal WebException 注意 总是以 Exception 后缀结尾。 只读的静态字段 Pascal RedValue 接口 Pascal IDisposable 注意 总是以 I 前缀开始。 方法 Pascal ToString 命名空间 Pascal System.Drawing 参数 Camel typeName 属性 Pascal BackColor 受保护的实例字段 Camel redValue 注意 很少使用。属性优于使用受保护的实例字段。 公共实例字段 Pascal RedValue 注意 很少使用。属性优于使用公共实例字段。