3 replies to this topic

[c0lo]

Bueno ocurre que tengo una aplicacion que no tiene Caption... o titulo en si... lo cual no puedo usar

delphi

WHandle := FindWindow(nil, 'Caption');

Ahora ocurre que si se la clase pero si en una PC o cliente X hay una clase similar... e ahi un problemita...

Lo que quiero es obtener el Window Handle de un Proceso cualquiera..

Sabiendo el nombre del proceso.. obtener el Handle .. se que para un proces existe X Windows Handle pero para un Window Handle solo existe un proceso...

Como puedo obtener la solucion?

Gracias

[c0lo]

Ahora indagando un poco mas... y analizando mas..

Encontre una web china o koreana..

http://www.delphitop...ncheng/219.html
http://delphi.ktop.c...id=79&tid=61654


Program Name、Process ID、Window Handle、Process Handle

TerminateProcess=> Process Handle
PostMessage,SendMessage=> Window Handle

delphi

// Get ProcessID By ProgramName (Include Path or Not Include)
function GetPIDByProgramName(const APName: string): THandle;
// Get Window Handle By ProgramName (Include Path or Not Include)
function GetHWndByProgramName(const APName: string): THandle;
// Get Window Handle By ProcessID
function GetHWndByPID(const hPID: THandle): THandle;
// Get ProcessID By Window Handle
function GetPIDByHWnd(const hWnd: THandle): THandle;
// Get Process Handle By Window Handle
function GetProcessHndByHWnd(const hWnd: THandle): THandle;
// Get Process Handle By Process ID
function GetProcessHndByPID(const hAPID: THandle): THandle;

Ahora cual es el que corresponde correctamente al handle devuelto por FindWindow
Process Handle o Window Handle

[escafandra]

Hola c0lo, hacía tiempo que no pasabas por aquí.

En primer lugar, he de decirte que por el nombre del proceso puedes encontrar mas de uno, es decir, pueden correr mas de una instancia de un proceso o procesos con nombres similares. Deberás saber cual es el que te interesa. Mejor sería conociendo el Pid del proceso que te interesa, pues es un identificador único.

Para conseguir lo que quieres sabiendo sólo el nombre de un proceso, primero debes buscar el Pid del proceso. En el ejemplo nos conformamos con el primero que encontremos. Después enumeramos todas las ventanas hasta encontrar una que pertenezca al proceso en cuestión y de esta calculamos su parent último:

cpp

struct WINDATA{
   HWND  hWin;
   DWORD ProcessId;
};
 
BOOL CALLBACK EnumWindowsProc(HANDLE Handle, WINDATA* Data)
{
  DWORD ProcessId;
  GetWindowThreadProcessId(Handle, &ProcessId);
  if(Data->ProcessId == ProcessId){
     Data->hWin = Handle;
     return false;
  }
  return true;
}
 
HWND GetWindow(char* FileName)
{
   // Encontrar una ventana del proceso
   WINDATA Data = {0};
   PROCESSENTRY32 proc = { sizeof(proc) };
   HANDLE hSysSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   if(hSysSnapshot != INVALID_HANDLE_VALUE && Process32First(hSysSnapshot, &proc)){
     do{
        if(!stricmp(proc.szExeFile, FileName)){
           Data.ProcessId = proc.th32ProcessID;
           EnumWindows((PROC)EnumWindowsProc, LPARAM(&Data));
           break;
        }
     }while(Process32Next(hSysSnapshot, &proc));
   }
   CloseHandle(hSysSnapshot);
 
   // Encontar MainWindow
   HWND hParent = Data.hWin;
   do {
      Data.hWin = hParent;
      hParent = GetParent(Data.hWin);
   }while(hParent);
 
   return Data.hWin;
}

Ejemplo de uso:

cpp

   
HWND hW = GetWindow("Notepad.exe");

Espero que te aclare las ideas.

Saludos.

[c0lo]

Muchas gracias escafandra y si ya me despejastes mis dudas amigo