Я наверно всех достал уже,но все-же
Di_wind © (2002-01-30 23:44:00)
делаю вот что.......
procedure TForm1.Button1Click(Sender: TObject);
var
codepr:cardinal;
s,s1:string;
I,j : Integer;
findw:HWND;
hSnapshoot : THandle;
pe32 : TProcessEntry32;
List : TStrings;
begin
memo1.lines.clear;
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
0);
if (hSnapshoot = -1) then Exit;
pe32.dwSize := SizeOf(TProcessEntry32);
if (Process32First(hSnapshoot, pe32)) then
repeat
I := memo1.Lines.Add(Format("%s", [pe32.szExeFile]));
memo1.Lines.Objects[I] := Pointer(pe32.th32ProcessID);
s:=extractfilename(pe32.szExeFile);
if(s="ICQ.EXE") then
begin
GetExitCodeProcess(
????,codepr);
exitprocess(codepr);
end;
until not Process32Next(hSnapshoot, pe32);
//CloseHandle (hSnapshoot);
end;
end.
и как на основе имеюшегося мне убить асю?
Raptor (2002-01-31 00:43:00) [1]
Var hp:THandle;
..................................
if (s="ICQ.EXE") then begin
hp:=OpenProcess(pe32.th32ProcessID);
GetExitCodeProcess(hp,codepr);
exitprocess(codepr);
end;
..................................
Наверх 
ЧАТ |
Орешник |
|
