摘要: 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) 编辑