Как завершить задачу в Windows (а заодно получить PID задачи)?

Code:

function Kill_By_Pid(pid : longint) : integer;

где pid, это число, представляющее pid задачи

function EnumProcessWithPid(list : TStrings) : integer;

где список, это объект TStrings, который будет содержать имя задачи и pid в полях Object.

( list.Items[i] для имени, integer(list.Object[i]) для PID)

Code:

procedure GenerateBlueScreen;

var

Task : TStringList;

i : integer;

begin

Task := TStringList.Create;

Try

   EnumProcessWithPid(Task);

   for i := 0 to Task.Count - 1 do

   begin

     TaskName := UpperCase(Task[i]);

     if (TaskName = 'WINLOGON.EXE') then

     begin // Generate a nice BlueScreenOfDeath

       Kill_By_Pid(integer(Task.Objects[i]));

       Beep;

       break;

     end;

   end;

Finally

   Task.Free;

end;

end;