如何根据QQ.exe进程找到其句柄,然后结束他的运行? 如何根据QQ.exe进程找到其句柄,然后结束他的运行?用啥函数可以找到QQ的进程句柄呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses 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. delphi7 如何实现txt文件转换成excel文件~ 请Delphi高手 推荐Delphi 编程的好书, 问:当点击Dbgrid下面的横向滚动条时候能触发哪个事件? 为什么我写的邮件接收程序会被瑞星拦截? 高手帮忙!indy的pop3收邮件有些问题 哪里有中文版的Delphi下载? 请问关于ACCESS查询在参数设置的问题 我的机器完蛋了,谁能帮忙看看? 关于函数参数 抢答题送分!先到先得!基本问题! 请教窗口重绘的问题? 关于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.