在编写NT服务程序时,为什么不能用FINDWINDOWEX来查找窗口句柄?总是返回0
procedure TService1.ServiceExecute(Sender: TService);
var
OldTime1,OldTime2,NewTime:DWORD;
begin
OldTime2:=GetTickcount
WHILE NOT Terminated DO begin
newtime:=GetTickcount;
if newtime-oldtime2>=700 then begin
oldtime2:=newtime;
ReadIni
end;
SERVICETHREAD.ProcessRequests(FALSE);
end;
end;
procedure ReadIni( );
VAR
INI:TINIFILE;
begin
ini:=tinifile.Create('E:\MYDELPHI\KillJW\SysSv\KillJWP.INI');
ini.WriteString('SETUP','NOW',TIMETOSTR(NOW));
ini.Writestring('SETUP','BARHWND', inttohex(findwindowex(0,0,'SciCalc','计算器'),0));
ini.free;
end;
procedure TService1.ServiceExecute(Sender: TService);
var
OldTime1,OldTime2,NewTime:DWORD;
begin
OldTime2:=GetTickcount
WHILE NOT Terminated DO begin
newtime:=GetTickcount;
if newtime-oldtime2>=700 then begin
oldtime2:=newtime;
ReadIni
end;
SERVICETHREAD.ProcessRequests(FALSE);
end;
end;
procedure ReadIni( );
VAR
INI:TINIFILE;
begin
ini:=tinifile.Create('E:\MYDELPHI\KillJW\SysSv\KillJWP.INI');
ini.WriteString('SETUP','NOW',TIMETOSTR(NOW));
ini.Writestring('SETUP','BARHWND', inttohex(findwindowex(0,0,'SciCalc','计算器'),0));
ini.free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货