如何写一个能杀掉游戏进程的监视进程? 我要写一个能监视并杀掉指定游戏进程的程序,请问该怎么写? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 系统环境是win2000 professional 帮你自动关闭记事本(notepad.exe)在窗体上放一个定时器uses TLHelp32;procedure TForm1.Timer1Timer(Sender: TObject);var vSnap: THandle; vProcessEntery: TProcessEntry32; vBuffer: array[0..MAX_PATH] of Char; vHandle: THandle;begin vSnap := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); try if vSnap < 0 then Exit; vProcessEntery.dwSize := SizeOf(vProcessEntery); if Process32First(vSnap, vProcessEntery) then repeat if SameText(vProcessEntery.szExeFile, 'notepad.exe') then begin vHandle := OpenProcess(PROCESS_TERMINATE, False, vProcessEntery.th32ProcessID); try TerminateProcess(vHandle, 0); finally CloseHandle(vHandle); end; end; until not Process32next(vSnap, vProcessEntery); finally CloseHandle(vSnap); end;end; 向数据表插入数据碰到的问题 一个数据显示问题,在线等 stringgrid水平滚动条的问题??????? 在线程中使用ADO,出现异常。 用TADOQuery是否可以一次执行两个Select语句,然后这两个语句的结果集合在一起显示在一个DBGrid上? SQL,高手求救!!!!! 如何删除Cookies下面的全部内容 ADO访问Email Delphi如何读取PDF文件内容 关于 FieldByName 得不解问题 我只想让vclskin只在form1上生效,而不想在全部的窗体上生效,请问我该怎样做才能够实现呢? 通过query组件如何将触发器代码保存到对应的表中,谢谢。
在窗体上放一个定时器uses TLHelp32;
procedure TForm1.Timer1Timer(Sender: TObject);
var
vSnap: THandle;
vProcessEntery: TProcessEntry32;
vBuffer: array[0..MAX_PATH] of Char;
vHandle: THandle;begin
vSnap := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
try
if vSnap < 0 then Exit;
vProcessEntery.dwSize := SizeOf(vProcessEntery); if Process32First(vSnap, vProcessEntery) then
repeat
if SameText(vProcessEntery.szExeFile, 'notepad.exe') then
begin
vHandle := OpenProcess(PROCESS_TERMINATE,
False, vProcessEntery.th32ProcessID);
try
TerminateProcess(vHandle, 0);
finally
CloseHandle(vHandle);
end;
end;
until not Process32next(vSnap, vProcessEntery);
finally
CloseHandle(vSnap);
end;
end;