如何根据QQ.exe进程找到其句柄,然后结束他的运行?用啥函数可以找到QQ的进程句柄呢?
解决方案 »
- delphi 设置代理问题 急
- inno setup 问题!如何取消卸载时的“卸载确认消息框”?
- TIDHttp和FrameSet
- 我见过最强的挂机锁,屏蔽了所有系统热键,无需其他DLL,有没高人知道原理
- 执行查询语句出现错误-有未闭合的引号?
- 怎样用ADO联接扩展名为不是.db的paradox数据库文件???
- 急:如何调用dll形式的com接口?
- 请教个菜的不能菜的问题,我快被它折磨憔悴了!
- 我没有扫描仪,怎样才能把财务软件中用到的各种凭证,单据,报表(如:采购定单,发票,销售开单等)按照它们自己的格式放到窗体上。哪里有类似的控件可下载?
- 怎样使用smtp控件来编制发邮件程序
- 请教窗口重绘的问题?
- 关于FastReport 3.0问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,TLHelp32;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
var
ok: Bool;
ProcessListHandle,h: THandle;
ProcessStruct: TProcessEntry32;
a : DWORD;
tm : string;
begin ProcessListHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
ProcessStruct.dwSize := Sizeof(ProcessStruct);
ok := Process32First(ProcessListHandle, ProcessStruct);
while Integer(ok) <> 0 do
begin
tm := ProcessStruct.szExeFile;
Memo1.Lines.Add(tm);
if UpperCase(tm ) = 'QQ.EXE' then
begin
h := openProcess(Process_All_Access, true, ProcessStruct.th32ProcessID);
GetExitCodeProcess(h, a);
TerminateProcess(h, a);
Break;
end;
ok := Process32Next(ProcessListHandle, ProcessStruct);
end;
CloseHandle(ProcessListHandle);
end;end.