mostrar/suspender/resumir/matar/thread de otro proceso hecho en delphi

[force1758]

gracias mi amigo escafandra por darme una idea de como comenzar bueno e solucionado de ver los TID en una lista ahora seria como aria para ver (start Adress) , (como se Ve en la imagen de arriba) para ver los modulos de esas TID y asi tambien como aria para pausarlo , reanudarlo y terminarlo Bueno colocare el codigo que utilize y asi se expanda mas este hilo hasta finiquitar este proyecto que a muchos de seguro le servira:

Código Delphi [-]
procedure GetThreadList;
var
    hThreadSnap, hThread: THandle;
    te32: tagTHREADENTRY32;
    dwPID: DWORD;
    hProcess: THandle;
    szFileName: array[0..MAX_PATH] of Char;
    dwLen: DWORD;
    PID: Integer;
begin
    form1.ListBox1 .Clear;
    hThreadSnap := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
    if hThreadSnap = INVALID_HANDLE_VALUE then Exit;
    try
    PID:= 0;
           if  GetProcessID( form1.Edit1.Text ,PID, 1) then
        dwPID := (PID);
           te32.dwSize := SizeOf(THREADENTRY32);
                 if not Thread32First(hThreadSnap, te32) then Exit;
           repeat
                   if te32.th32OwnerProcessID = dwPID then
                   begin
                           hThread := OpenThread(THREAD_ALL_ACCESS, False, te32.th32ThreadID);
                           form1.ListBox1.Items.AddObject(IntToStr(te32.th32ThreadID),TObject(hThread));
                   end;
                   hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, False,te32.th32OwnerProcessID);
                  if hProcess <> 0 then
                   begin
                        dwLen := GetModuleFileName(hProcess, szFileName, MAX_PATH);

                        CloseHandle(hProcess);
                   // use szFileName up to dwLen characters as needed...
                   end;
           until not Thread32Next(hThreadSnap, te32);
    finally
           CloseHandle(hThreadSnap);
    end;
end;

Gracias Saludos

[[escafandra]]

ResumeThread
SuspendThread
TerminateThread


Saludos.

[force1758]

Empezado por escafandra

ResumeThread
SuspendThread
TerminateThread


Saludos.

Gracias pero mi duda seria como aria el codigo ya que no se encuentra informacion sobre resumethread , suspendThread,Terminatethread he estado leyendo mucho y no consigo lo que mas quiero que son resumen ,suspendthread... Espero que alguien mas aporte sus conocimiento en el tema::.

Gracias Saludos

[Casimiro Noteví]

Pero si son enlaces con la descripción y ejemplos

[[escafandra]]

Casimiro te respondió.

Por favor, pon la "h" al verbo hacer.

Saludos.

[Neftali [Germán.Estévez]]

Como alternativa (y para llevar la contraria ) para acceder a los threads de un proceso puedes utilizar WMI.

WMI posee la clase WIN32_Thread que justamente te devuelve eso.

Puedes utilizar consultas como estas para obtener los threads a partir de un ProcessID:
select * from WIN32_Thread where processHandle=2856
select Handle, Priority, ProcessHandle,ThreadState from WIN32_Thread where processHandle=2856

Utilizando uno de los ejemplos que hay sobre WMI en el FTP del club y modificando poca cosa puedes obtener los threads y todo la información sobre ellos.

Imagen:


He subido el código del proyecto al FTP.

Un saludo.

[Casimiro Noteví]

Empezado por Neftali

Puedes utilizar consultas como estas para obtener los threads a partir de un ProcessID:
select * from WIN32_Thread where processHandle=2856
select Handle, Priority, ProcessHandle,ThreadState from WIN32_Thread where processHandle=2856

¿Es una consulta a una base de datos de qué tipo y cuál es?