Fremdes Programm/Anwendung pausieren?

[Fridolin Walther]

Falls es jemanden interessiert:

Delphi-Quellcode:

const
  THREAD_SUSPEND_RESUME = $0002;

function OpenThread(dwDesiredHandle : DWORD; bInheritHandle : LongBool; dwThreadID : DWORD) : DWORD; stdcall; external 'kernel32.dll';

function ResumeOrSuspendProcess(PID : DWORD; Suspend : Boolean) : Boolean;
var
  SnapshotHandle : THandle;
  ThreadEntry    : TThreadEntry32;
  ThreadHandle   : THandle;
begin
  Result := false;
  ThreadEntry.dwSize := SizeOf(ThreadEntry);
  SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
  if SnapshotHandle <> INVALID_HANDLE_VALUE then
    begin
      Result := true;
      if Thread32First(SnapshotHandle, ThreadEntry) then
        repeat
          if ThreadEntry.th32OwnerProcessID = PID then
            begin
              ThreadHandle := OpenThread(THREAD_SUSPEND_RESUME, false, ThreadEntry.th32ThreadID);
              if ThreadHandle <> INVALID_HANDLE_VALUE then
                begin
                  if Suspend
                    then Result := (SuspendThread(ThreadHandle) <> DWORD(-1)) and Result
                    else Result := (ResumeThread(ThreadHandle)  <> DWORD(-1)) and Result;
                  CloseHandle(ThreadHandle);
                end;
            end;
        until not Thread32Next(SnapshotHandle, ThreadEntry);
      CloseHandle(SnapshotHandle);
    end;
end;

function ResumeProcess(PID : DWORD) : Boolean;
begin
  Result := ResumeOrSuspendProcess(PID, false);
end;

function SuspendProcess(PID : DWORD) : Boolean;
begin
  Result := ResumeOrSuspendProcess(PID, true);
end;

Kann sein, daß das Fehlerhandling nicht 100% astrein ist. Hab die Funktionen auch nur eher notdürftig getestet.

Hinweis:
Die Funktion liefert true zurück, sobald eine Threadliste erstellt werden konnte. Falls also eine nicht existierende PID angegeben wurde, wird true zurück gegeben auch wenn keine Aktionen durchgeführt wurden. Der Suspend Counter der Threads werden nicht überprüft.