delphi双进程监控


本文整理自网络,侵删。

 program Pro2;

uses
Forms,Windows,TlHelp32,ShellAPI,Dialogs,SysUtils;
procedure delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
begin
Application.ProcessMessages;
msecs := Tick - GetTickcount;
end;
finally
CloseHandle(Event);
end;
end;

function HasPro(proName:String):Boolean;
var
flag:Boolean;
ProcessHandle:Thandle;
ProcessStruct:TProcessEntry32;
begin
Result:=False;
ProcessHandle:=createtoolhelp32snapshot(Th32cs_snapprocess,0);
processStruct.dwSize:=sizeof(ProcessStruct);
flag:=process32first(ProcessHandle,ProcessStruct);
while flag do
begin
if proName= StrPas(ProcessStruct.szExeFile) then Result:=True;
flag:=process32next(ProcessHandle,ProcessStruct);
end;
CloseHandle(ProcessHandle);
end;

begin
while True do
begin
if not HasPro('Pro1.exe') then
begin
WinExec('Pro1.exe',SW_HIDE);
end;
delay(10);
end;

end.

Pro1的代码和这个一样,最后的if not HasPro('Pro2.exe') then xxxxxxx,应该是没问题的,测试后用任务管理器关其中的一个进程,另外的进程会很快把它启起来,但不知道为什么,在关另外的进程就两个进程都关了。没时间去仔细研究。。

相关阅读 >>

Delphi 锁定鼠标移动范围

Delphi application.restore不起作用了,该如何处理

Delphi写进程管理器

Delphi 如何从html格式的字符串中提取纯文本?

Delphi xe5 android 设置权限

Delphi气泡提示

Delphi adoquery 运用

Delphi 从流数据获知文件类型

Delphi 增加/获得windows用户帐号

Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...