2015年10月22日
十六进制转换成十进制函数
摘要： {*------------------------------------------------ 十六进制转换成十进制函数 @param @return-------------------------------------------------}function HexToInt(s... 阅读全文
posted @ 2015-10-22 21:12 王云盼 阅读(951) 评论(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 王云盼 阅读(213) 评论(0) 推荐(0)
2015年10月19日
delphi监控文件夹
摘要： (****************************************** 文件和目录监控 当磁盘上有文件或目录操作时，产生事件 使用方法： 开始监控: PathWatch(Self.Handle, 'C:\FtpFolder'); 解除监控：PathWatch(-1); 在... 阅读全文
posted @ 2015-10-19 09:27 王云盼 阅读(1694) 评论(0) 推荐(0)
2015年10月17日
delphi让exe开机自启动
摘要： procedure AutoRunOnSystemStart(Title, FileName: String);const _Software_Microsoft_Windows_CurrentVersion_Run_ : string = '\Software\Microsoft\Windows\... 阅读全文
posted @ 2015-10-17 18:17 王云盼 阅读(605) 评论(0) 推荐(0)
delphi窗体启动外部exe
摘要： uses Winapi.Windows;WinExec(PAnsiChar(Application.ExeName), sw_normal); // PAnsiChar ： string to PAnsiChar 启动外部的exe 阅读全文
posted @ 2015-10-17 18:13 王云盼 阅读(615) 评论(0) 推荐(0)
浅谈delphi创建Windows服务程序与窗体实现交互
摘要： 我想实现的功能是创建一个服务程序，然后在服务Start时动态创建一个窗体Form，然后把Form缩小时变成TrayIcon放在Windows托盘上。我在服务程序的OnStart事件中写到 Started := True; writeWorkLog('serve2 start'); /... 阅读全文
posted @ 2015-10-17 13:28 王云盼 阅读(2573) 评论(0) 推荐(0)
delphi7和XE下 获取路径
摘要： XE里没有Application.Exename所以用paramstr(0);Str:=ParamStr(0); //自己全路径c:\555\qq.exe,可用于控制台Str:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c... 阅读全文
posted @ 2015-10-17 13:06 王云盼 阅读(683) 评论(0) 推荐(0)
2015年10月15日
exe文件停止运行的情况
摘要： 1.程序问题。2.服务器问题。3.内存占用问题。一般情况下，关掉程序，重新打开就可以。上述情况不行，则关掉电脑，重启。再不行，Ctr + Alt + Del关掉程序的进程。不行, Win + R + regedit + 回车，关掉服务。再不行，进入注册表，...User里搜索程序名，删掉。 阅读全文
posted @ 2015-10-15 22:28 王云盼 阅读(1487) 评论(0) 推荐(0)
2015年10月12日
XE中rectangle实现渐变
摘要： Fill -> Kind -> Gradient(选项) -> Gradient(Edit)添加颜色即可 阅读全文
posted @ 2015-10-12 21:40 王云盼 阅读(235) 评论(0) 推荐(0)
delphi创建服务程序
摘要： 创建一个自己的服务程序：File -> New -> Other -> New(选项) -> ServiceApplication 这样delphi会自动生成服务程序的框架。保存合适的项目名称。(这里单元名为UnitServer.pas, 工程名为ProjectServer.dpr)在新建的服务里，... 阅读全文
posted @ 2015-10-12 21:34 王云盼 阅读(525) 评论(0) 推荐(0)