摘要: {*------------------------------------------------ 十六进制转换成十进制函数 @param @return-------------------------------------------------}function HexToInt(s... 阅读全文
posted @ 2015-10-22 21:12 王云盼 阅读(937) 评论(0) 推荐(0) 编辑
摘要: 今天看了以前刚学D写的一个程序,发现好多垃圾代码,我有本事把Edit一个一个的写下去Edit1.MaxLength := 2;Edit2.MaxLength := 2;Edit3.MaxLength := 2;Edit4.MaxLength := 2;Edit5.MaxLength := 2;Edi... 阅读全文
posted @ 2015-10-22 21:00 王云盼 阅读(206) 评论(0) 推荐(0) 编辑
摘要: (****************************************** 文件和目录监控 当磁盘上有文件或目录操作时,产生事件 使用方法: 开始监控: PathWatch(Self.Handle, 'C:\FtpFolder'); 解除监控:PathWatch(-1); 在... 阅读全文
posted @ 2015-10-19 09:27 王云盼 阅读(1601) 评论(0) 推荐(0) 编辑
摘要: procedure AutoRunOnSystemStart(Title, FileName: String);const _Software_Microsoft_Windows_CurrentVersion_Run_ : string = '\Software\Microsoft\Windows\... 阅读全文
posted @ 2015-10-17 18:17 王云盼 阅读(517) 评论(0) 推荐(0) 编辑
摘要: uses Winapi.Windows;WinExec(PAnsiChar(Application.ExeName), sw_normal); // PAnsiChar : string to PAnsiChar 启动外部的exe 阅读全文
posted @ 2015-10-17 18:13 王云盼 阅读(560) 评论(0) 推荐(0) 编辑
摘要: 我想实现的功能是创建一个服务程序,然后在服务Start时动态创建一个窗体Form,然后把Form缩小时变成TrayIcon放在Windows托盘上。我在服务程序的OnStart事件中写到 Started := True; writeWorkLog('serve2 start'); /... 阅读全文
posted @ 2015-10-17 13:28 王云盼 阅读(2485) 评论(0) 推荐(0) 编辑
摘要: XE里没有Application.Exename所以用paramstr(0);Str:=ParamStr(0); //自己全路径c:\555\qq.exe,可用于控制台Str:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c... 阅读全文
posted @ 2015-10-17 13:06 王云盼 阅读(648) 评论(0) 推荐(0) 编辑
摘要: 1.程序问题。2.服务器问题。3.内存占用问题。一般情况下,关掉程序,重新打开就可以。上述情况不行,则关掉电脑,重启。再不行,Ctr + Alt + Del关掉程序的进程。不行, Win + R + regedit + 回车,关掉服务。再不行,进入注册表,...User里搜索程序名,删掉。 阅读全文
posted @ 2015-10-15 22:28 王云盼 阅读(1379) 评论(0) 推荐(0) 编辑
摘要: Fill -> Kind -> Gradient(选项) -> Gradient(Edit)添加颜色即可 阅读全文
posted @ 2015-10-12 21:40 王云盼 阅读(226) 评论(0) 推荐(0) 编辑
摘要: 创建一个自己的服务程序:File -> New -> Other -> New(选项) -> ServiceApplication 这样delphi会自动生成服务程序的框架。保存合适的项目名称。(这里单元名为UnitServer.pas, 工程名为ProjectServer.dpr)在新建的服务里,... 阅读全文
posted @ 2015-10-12 21:34 王云盼 阅读(482) 评论(0) 推荐(0) 编辑