[Delphi] Kill Pids pod XP

korzystam z zabijanie procesow takiego jakiego uzywalem w 9X czyli po nazwie pliku pobiera PID i zabija proces o danym PID-dzie :)

pod XP sa pewne problemy:

1. np. calc.exe i notepad.exe jesli np. zechce zabic te 2 procesy a nazwe podam w DUZYCH literkach to zabity zostanie tylko notatnik a kalkulator bedzie zywy, jesli nazwy procesow podam malymi literkami to kalkulator zostanie zabity a ntatnik nie :|

2. Niekotrych procesow w ogóle niemoge zabic bez wzgledu czy sa malymi czy DUZYMI pisane ale byc moze dlatego ze musial bym byc zalogowany jako administrator czy cus, no niewiem.

jesli wiecie cos na ten temat to napiszcie.
DZIEKI :D pozdrawiam all

no hiba nikt niewi :|

gdyby ktos z was sie dowiedzial jak to bylbym wdzieczny
[email protected]

uses tlhelp32;
procedure TForm1.odswiez;
var
i: Integer;
bContinue: BOOL;
NewItem: TListItem;
begin
ListView1.Items.Clear;
aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
while Integer(bContinue) 0 do
begin
NewItem := ListView1.Items.Add;
NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
NewItem.subItems.Add(aProcessEntry32.szExeFile);
bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
end;
CloseHandle(aSnapshotHandle);
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
Ret: BOOL;
PrID: Integer; // PID
Ph: THandle; // uchwyt procesu
begin
with ListView1 do

 begin 
   PrID := StrToInt('$' + ItemFocused.SubItems[0]); 
   Ph := OpenProcess(1, BOOL(0), PrID); 
   Ret := TerminateProcess(Ph, 0); 
   if Integer(Ret) = 0 then 
     MessageDlg('Nie mozna zakonczyc "' + ItemFocused.Caption + '"', 
                 mtInformation, [mbOK], 0) 
   else 
     ItemFocused.Delete;

end;
end;

odśwież procedura ładuje wszyskie procesy do listview1 a dalej to juz jasne.....tylko nie wiem czy o to chodziło..:+}}