Ładny brzuch
Witam mam oto taki kodzik
uses TlHelp32;
procedure TForm1.btnAddEXEClick(Sender: TObject);
var
_HWND : THandle;
Proc : TProcessEntry32;
begin
_HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proc.dwSize:=SizeOf(Proc); // okresl rozmiar struktory
if Integer(Process32First(_HWND, Proc)) <> 0 then
repeat
ListBox1.Items.Add(Proc.szExeFile); // dodaje sciezkie pliku do ListBox'a
until Integer(Process32Next(_HWND, Proc)) = 0; // dopoki wartosc nie osiagnie 0
CloseHandle(_HWND);
end;
W ListBox1 pojawiaj mi si procesy co mam wpisa w button eby dany proces zamkn.
Z gry dziki.
Witam.
Mozesz uzyc takiej funkcj:
function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end;
Jako parametr podajesz nazwe procesu.
Ewentualnie mozesz tez uzyc:
function ZabijProces(ProcessId:Integer):Boolean; var Uchwyt:tHandle; begin Uchwyt:=OpenProcess(PROCESS_TERMINATE,bool(0),ProcessId); if TerminateProcess(Uchwyt,0) then result:=true else result:=false; CloseHandle(Uchwyt); end;
W tym wypadku podajesz ID procesu.
MAm prob czy kto moe kto mi napisa cay kod bd wysa mi na emaila johnny86@op.pl Bo co mi nie wychodzi :(
Prosze: http://ghostftp.info/download/Kill.zip przykladowy kod ( sciagnolem kiedys z jakiejs stronki)
http://ghostftp.info/download/Kill.zip
Nie to nie jest zly link to doklanie ten ktory chcialem podac (jest tam pokazane jak zabic proces a o to chyba chodzilo?)
Nie to nie jest zly link to doklanie ten ktory chcialem podac (jest tam pokazane jak zabic proces a o to chyba chodzilo?)
Dobra napisalem ci program ktory spelni twoje oczekiwania (listuje i pozwala zabic proces). Link http://ghostftp.info...d/kill_proc.zip
Dobra napisalem ci program ktory spelni twoje oczekiwania (listuje i pozwala zabic proces). Link http://ghostftp.info...d/kill_proc.zip
U mnie ladnie dziala (klikam nazwe procesu i po sprawie). Ale zwaz ze zabicie procesow systemowyw niektorych przypadkach moze byc utrudnione (system na to nie pozwoli raczej).
//edit odnosnie postu ponizej
Heh zle zrozumialem. Ok serwer jest chwilowo niedostepny (czasem mu sie zdaza) poprostu sprobuj za jaks czas albo podaj maila to ci wylse ten kod.
Uytkownik Poszukiwacz edytowa ten post 29 kwiecie 2005, 14:46
U mnie ladnie dziala (klikam nazwe procesu i po sprawie). Ale zwaz ze zabicie procesow systemowyw niektorych przypadkach moze byc utrudnione (system na to nie pozwoli raczej).
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
uses TlHelp32;
procedure TForm1.btnAddEXEClick(Sender: TObject);
var
_HWND : THandle;
Proc : TProcessEntry32;
begin
_HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proc.dwSize:=SizeOf(Proc); // okresl rozmiar struktory
if Integer(Process32First(_HWND, Proc)) <> 0 then
repeat
ListBox1.Items.Add(Proc.szExeFile); // dodaje sciezkie pliku do ListBox'a
until Integer(Process32Next(_HWND, Proc)) = 0; // dopoki wartosc nie osiagnie 0
CloseHandle(_HWND);
end;
W ListBox1 pojawiaj mi si procesy co mam wpisa w button eby dany proces zamkn.
Z gry dziki.
Witam.
Mozesz uzyc takiej funkcj:
function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end;
Jako parametr podajesz nazwe procesu.
Ewentualnie mozesz tez uzyc:
function ZabijProces(ProcessId:Integer):Boolean; var Uchwyt:tHandle; begin Uchwyt:=OpenProcess(PROCESS_TERMINATE,bool(0),ProcessId); if TerminateProcess(Uchwyt,0) then result:=true else result:=false; CloseHandle(Uchwyt); end;
W tym wypadku podajesz ID procesu.
MAm prob czy kto moe kto mi napisa cay kod bd wysa mi na emaila johnny86@op.pl Bo co mi nie wychodzi :(
Prosze: http://ghostftp.info/download/Kill.zip przykladowy kod ( sciagnolem kiedys z jakiejs stronki)
http://ghostftp.info/download/Kill.zip
Nie to nie jest zly link to doklanie ten ktory chcialem podac (jest tam pokazane jak zabic proces a o to chyba chodzilo?)
Nie to nie jest zly link to doklanie ten ktory chcialem podac (jest tam pokazane jak zabic proces a o to chyba chodzilo?)
Dobra napisalem ci program ktory spelni twoje oczekiwania (listuje i pozwala zabic proces). Link http://ghostftp.info...d/kill_proc.zip
Dobra napisalem ci program ktory spelni twoje oczekiwania (listuje i pozwala zabic proces). Link http://ghostftp.info...d/kill_proc.zip
U mnie ladnie dziala (klikam nazwe procesu i po sprawie). Ale zwaz ze zabicie procesow systemowyw niektorych przypadkach moze byc utrudnione (system na to nie pozwoli raczej).
//edit odnosnie postu ponizej
Heh zle zrozumialem. Ok serwer jest chwilowo niedostepny (czasem mu sie zdaza) poprostu sprobuj za jaks czas albo podaj maila to ci wylse ten kod.
Uytkownik Poszukiwacz edytowa ten post 29 kwiecie 2005, 14:46
U mnie ladnie dziala (klikam nazwe procesu i po sprawie). Ale zwaz ze zabicie procesow systemowyw niektorych przypadkach moze byc utrudnione (system na to nie pozwoli raczej).