算了,我就直接写它的概要吧:
定义全局变量:id:array[1..20] of integer//用于存放进程的ID;
var
; ; lppe: TProcessEntry32;
; ; found : boolean;
; ; Hand : THandle;
; ; i:integer;
begin
; ; i:=1;
; ; Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
; ; lppe.dwSize:=sizeof(lppe);
; ; found := Process32First(Hand,lppe);
; ; while found do begin
; ; ; ; id := lppe.th32ProcessID; //获得第I个ID
; ; ; ; ;i:=i+1;
; ; ; ; found := Process32Next(Hand,lppe);
; ; end;
end;
比如你想关掉第三个进程就可以:
; processhandl:=OpenProcess(PROCESS_ALL_ACCESS or PROCESS_TERMINATE,FALSE,dword(ID[3]));
; CloseHandle(processhandl);
就是这样了.