Terminare un processo

[Fabio]

Qualche consiglio su come terminare un processo attivo?
Ho visto che esiste un KillThread ma non trovo molta documentazione su come usarlo.

Si può anche avere una lista dei processi attivi per caso?

Se possibile che sia cross ma l'utilità di adesso è solo su Windows.

Grazie.

[xinyiman]

Guarda se questo può esserti d'aiuto!

http://www.freepascal.org/docs-html/prog/progse44.html

[Fabio]

Hum da quello che leggo allora il KillThread non è quello che fa per me, mi sa si riferisce a una programmazione multi-thread e non a killare un processo esterno avviato ( es. THUNDERBIRD.EXE )

Perchè su Windows mi aggiusto semmai richiamando l'esecuzione del TASKKILL ma se c'era un qualcosa di interno preferivo.

[xinyiman]

Ho trovato questo, ma non è molto incoraggiante!

http://www.lazarus.freepascal.org/index.php?topic=3543.0

[Legolas]

Prova a fare così: aggiungi windows e jwatlhelp32 agli uses, quindi utilizza questa funzione:

Codice: [Seleziona]

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;

Puoi chiamare la funzione così:

Codice: [Seleziona]

KillTask('notepad.exe'); 

Testato ora su XP e funziona

[Fabio]

La procedura funziona perfettamente.

Grazie.