Comment puis-je geler l'exécution d'un programme?

Si vous voulez le faire de manière programmative, vous pouvez utiliser l'approche décrite ici .

Qu'est-ce que c'est, consiste à énumérer tous les threads dans un processus, puis à les suspendre. Il n'y a pas d'API de suspension de suspension, il s'agit donc d'une simulation d'un tel appel.

méfiez-vous que cela peut potentiellement avoir des effets secondaires mauvais. Cela dépend du processus et de la façon dont il est écrit.

Je ne sais pas d'autre façon de le faire dans le monde de l'API Win32 / 64. Si vous allez bas sur la terre du noyau et utilisez les API NT *, vous avez une API «NtsuspendProcess» disponible. Mais cela est sans papiers afin qu'il puisse changer avec n'importe quelle version de Windows ou même avec n'importe quel service de service (pas très probablement).

La déclaration de "ntsuspendprocess" peut être trouvée dans les ports Jedi des API Windows.

function OpenThread(dwDesiredAccess: DWORD; InheritHandle: Boolean; dwThreadID: DWORD): THandle; stdcall; external 'kernel32.dll';

function ResumeProcess(PID: DWORD):Boolean;
var
  tid, snap: THandle;
  TE32: TThreadEntry32;
begin
  Result := False;
  snap := CreateToolHelp32SnapShot(TH32CS_SNAPTHREAD, 0);
  TE32.dwSize := SizeOf(TThreadEntry32);
  Thread32First(snap, TE32);
  repeat
    if TE32.th32OwnerProcessID = PID then begin
      tid := OpenThread($0002, FALSE, TE32.th32ThreadID);
      ResumeThread(tid);
      Result := TRUE;
      CloseHandle(tid);
    end;
  until Thread32Next(snap, TE32) = false;
  CloseHandle(snap);
end;

function SuspendProcess(PID: DWORD): Boolean;
var
  tid, snap: THandle;
  TE32: TThreadEntry32;
begin
  Result := False;
  snap := CreateToolHelp32SnapShot(TH32CS_SNAPTHREAD, 0);
  TE32.dwSize := SizeOf(TThreadEntry32);
  Thread32First(snap, TE32);
  repeat
    if TE32.th32OwnerProcessID = PID then begin
      tid := OpenThread($0002, FALSE, TE32.th32ThreadID);
      SuspendThread(tid);
      Result := TRUE;
      CloseHandle(tid);
    end;
  until Thread32Next(snap, TE32) = false;
  CloseHandle(snap);
end;
Hope this helps

Vous pouvez utiliser mon composant processInfo pour suspendre toutes les threads appartenant à la traiter. L'approche est similaire à ce que Runner vous a expliqué. Le code serait quelque chose comme ceci:

var
  Process : TProcessItem;
  AThread: TThreadItem;
begin
  Process := ProcessInfo1.RunningProcesses.FindByName('notepad.exe');
  if Assigned(Process) then
  begin
    for AThread in Process.Threads do
      AThread.SuspendThread;
  end;
end;