Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

Я наверно всех достал уже,но все-же 


Di_wind   (2002-01-30 23:44) [0]

делаю вот что.......

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) [1]

Var hp:THandle;
..................................
if (s="ICQ.EXE") then begin
hp:=OpenProcess(pe32.th32ProcessID);
GetExitCodeProcess(hp,codepr);
exitprocess(codepr);
end;
..................................




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.026 c
1-171             Beginer               2002-03-19 11:28  2002.04.01  
Новое свойство формы


1-163             Max                   2002-03-22 08:32  2002.04.01  
Delphi 5 + W2k


14-297            Delirium              2002-01-08 19:39  2002.04.01  
Коньяк, водка, вино, пиво ....


3-15              vasilly               2002-03-06 08:48  2002.04.01  
Как правильно получить результат выполнения хранимой процедуры с выходными параметрами!!!


14-316            mr_X                  2002-02-13 17:24  2002.04.01  
Кто подскажет, кто расскажет где можно взять файлы ресурсов, иконки всякие bmp-шки и т. п.