Ungültiges Handle bei TerminateProcess

[Neutral General]

Hi,

Hiermit speichere ich alle laufenden Prozesse in ein Array:

Delphi-Quellcode:

TProcessInfo = record
    Name: String;
    ID  : Cardinal;
  end;

TProcessInfos = Array of TProcessInfo;

function GetAllProcesses: TProcessInfos;
var hProcSnap: THandle;
    proc: PROCESSENTRY32;
    Count: Integer;
begin
  Count := 0;

  hProcSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS or TH32CS_SNAPMODULE, 0);

  FillChar(proc,SizeOf(PROCESSENTRY32),#0);
  proc.dwSize := SizeOf(PROCESSENTRY32);
  if Process32First(hProcSnap,proc) then
  begin
    inc(Count);
    SetLength(Result,Count);
    Result[Count-1].Name := proc.szExeFile;
    Result[Count-1].ID := proc.th32ProcessID;

    while Process32Next(hProcSnap,proc) do
    begin
      inc(Count);
      SetLength(Result,Count);
      Result[Count-1].Name := proc.szExeFile;
      Result[Count-1].ID := proc.th32ProcessID;
    end;
  end;
end;

In einem Thread lade ich dann Stringressourcen und vergleiche die mit den Prozessnamen aus meiner Liste:

Delphi-Quellcode:

Processes := GetAllProcesses;
while LoadString(hInstance,1000 + i,Res,MAX_PATH) <> 0 do
begin
  inc(i);
  x := IndexOf(Res,Processes); // IndexOf ist ne eigene Funktion die den Index des Array-Eintrags mit dem Namen der in Res steht zurück gibt
  if x <> -1 then // falls Eintrag vorhanden
  begin
    TerminateProcess(Processes[x].ID,0);
    ShowMessage(SysErrorMessage(GetLastError)); // <-- Ungültiges Fensterhandle (klappt auch ohne ShowMessage nicht wenn jetzt jemand sagt das man im Thread sowas nicht benutzt...
  end;
end;

Was ist das Problem? Also die Werte im Array und aus der Ressource sind in Ordnung.. Die ProcessID's im Array.. Ka ob die richtig sind aber sie sind auf jeden Fall mal gültige Handles (Sagt mir mein Auge).

Gruß
Neutral General