Ola pessoal, gostaria de saber como fa�o para suspende um processo e todas as thread dele.tentei com a fun��o:[code]function SuspendProcess(const PID: DWORD): Boolean;var LibHandle: THandle; ...

F�rum Suspende Processo #548677

16/03/2016

Ola pessoal, gostaria de saber como fa�o para suspende um processo e todas as thread dele.

tentei com a fun��o:

function SuspendProcess(const PID: DWORD): Boolean;
var
  LibHandle: THandle;
  ProcHandle: THandle;
  NtSuspendProcess: TProcFunction;
begin
  Result := False;
  LibHandle := SafeLoadLibrary('ntdll.dll');
  if LibHandle <> 0 then
  try
    @NtSuspendProcess := GetProcAddress(LibHandle, 'NtSuspendProcess');
    if @NtSuspendProcess <> nil then
    begin
      ProcHandle := OpenProcess(PROCESS_SUSPEND_RESUME, False, PID);
      if ProcHandle <> 0 then
      try
        Result := NtSuspendProcess(ProcHandle) = STATUS_SUCCESS;
      finally
        CloseHandle(ProcHandle);
      end;
    end;
  finally
    FreeLibrary(LibHandle);
  end;
end;

mais nada resolvido. Alguem tem alguma solu��o ?

Junior Santos

Curtir t�pico

+ 0

Responder

Posts

16/03/2016

Junior Santos

Ninguem?

Responder

Gostei + 0

16/03/2016

Carlos Alexandrino

Ola pessoal, gostaria de saber como fa�o para suspende um processo e todas as thread dele.

tentei com a fun��o:

function SuspendProcess(const PID: DWORD): Boolean;
var
  LibHandle: THandle;
  ProcHandle: THandle;
  NtSuspendProcess: TProcFunction;
begin
  Result := False;
  LibHandle := SafeLoadLibrary('ntdll.dll');
  if LibHandle <> 0 then
  try
    @NtSuspendProcess := GetProcAddress(LibHandle, 'NtSuspendProcess');
    if @NtSuspendProcess <> nil then
    begin
      ProcHandle := OpenProcess(PROCESS_SUSPEND_RESUME, False, PID);
      if ProcHandle <> 0 then
      try
        Result := NtSuspendProcess(ProcHandle) = STATUS_SUCCESS;
      finally
        CloseHandle(ProcHandle);
      end;
    end;
  finally
    FreeLibrary(LibHandle);
  end;
end;

mais nada resolvido. Alguem tem alguma solu��o ?

Ol�,

N�o deu certo porque? QUal a mensagem de erro que aparece?

Responder

Gostei + 0

17/03/2016

Junior Santos

Ola pessoal, gostaria de saber como fa�o para suspende um processo e todas as thread dele.

tentei com a fun��o:

function SuspendProcess(const PID: DWORD): Boolean;
var
  LibHandle: THandle;
  ProcHandle: THandle;
  NtSuspendProcess: TProcFunction;
begin
  Result := False;
  LibHandle := SafeLoadLibrary('ntdll.dll');
  if LibHandle <> 0 then
  try
    @NtSuspendProcess := GetProcAddress(LibHandle, 'NtSuspendProcess');
    if @NtSuspendProcess <> nil then
    begin
      ProcHandle := OpenProcess(PROCESS_SUSPEND_RESUME, False, PID);
      if ProcHandle <> 0 then
      try
        Result := NtSuspendProcess(ProcHandle) = STATUS_SUCCESS;
      finally
        CloseHandle(ProcHandle);
      end;
    end;
  finally
    FreeLibrary(LibHandle);
  end;
end;

mais nada resolvido. Alguem tem alguma solu��o ?

Ol�,

N�o deu certo porque? QUal a mensagem de erro que aparece?

Obrigado por responde Carlos.

Ent�o compilo tudo certo, mais rodando nao fez oque precisava. N�o suspendeu o processo pelo pid. Um programa que trabalha desta forma eh o PC Hunter da www.xuetr.com que suspende o processo e suas thread deixando todo o sistema pausado ate a libera��o do resume, Mais o problema que tenho meu sistema na empresa onde n�o posso da permiss�o aos usuarios da maquina como admin pois � um sistema de telemarketing e fa�o assist�ncia remota do sistema. Mais preciso suspende o processo e thread do processo apenas pelo tempo de eu pode atualizar e eu pode libera o sistema volta a trabalhar ja com nova vers�o.

Desde j�, Obrigado.

Responder

Gostei + 0

17/03/2016

Junior Santos

Alguem ?

Responder

Gostei + 0

18/03/2016

Junior Santos

?????????????????

Responder

Gostei + 0