K
ktsxy
Unregistered / Unconfirmed
GUEST, unregistred user!
我用timer计时器控制写了几行代码来监视一个指定的进程名..一但进程被关闭.就从重启进程.现是可以做到.做每到检查进程序是否存在是就会出现停顿.搞得机好有些卡.
以下是我的代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
h :hwnd;
begin
h:=Findwindow(nil,'Client') ;
if not h<>0 then
ShellExecute(Handle,'open',PChar('C:/miik.exe'), nil, nil, SW_SHOW);
end;
意思就是检查指定进程(client) 如果不存就就从启(miik.exe)
但现在每势行一次上面的代码鼠标就会出现等待符..有没有好的办法解决非.谢谢
以下是我的代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
h :hwnd;
begin
h:=Findwindow(nil,'Client') ;
if not h<>0 then
ShellExecute(Handle,'open',PChar('C:/miik.exe'), nil, nil, SW_SHOW);
end;
意思就是检查指定进程(client) 如果不存就就从启(miik.exe)
但现在每势行一次上面的代码鼠标就会出现等待符..有没有好的办法解决非.谢谢