Problema con el FindWindow

[lookmydoom]

Que tal.

Tengo un problema con la instruccion FindWindow bueno resulta que necesito capturar el handle de varias aplicaciones y como ya saben este comando tiene 2 parametros el ClassName y WindowName, mi problema es que no logro optener los classname de las aplicaciones y no se como hacerlo, el WindowName no me sirve por que al ejecutar las aplicaciones estas abren documentos y el nombre de las ventanas varia.

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

Hay muchas utilidades que te pueden ofrecer ese datos.
Por ejemplo, WinExporer, sin ir más lejos.

Ejecutalo, selecciona cualquier aplicación que esté ejecuando y en la cuarta pestaña tienes "Class Information".

[delphi.com.ar]

Empezado por Neftali

Hay muchas utilidades que te pueden ofrecer ese datos.

El mismo Delphi instala el WinSight que te puede ser de utilidad!

Saludos!

[rounin]

Saludos!

En principio, si conoces una parte del nombre de la ventana,
puedes usar EnumWindows.
Por ejemplo:

Código Delphi [-]
 
function EnumFunc(hWnd: THandle; lParam: Longint): BOOL; stdcall;
var s: string;
    L: Integer;
begin
  Result := True;
  L := GetWindowTextLength(hWnd);
  SetLength(s, L);
  GetWindowText(hWnd, @s[1], L+1);
  if (   Pos('Microsoft Internet Explorer', s) > 0  )and
     (   Pos('Problema con el FindWindow',  s) > 0  )then
  begin
    Result := False;
    TForm1(lParam).Caption := 'hwnd = '+IntToStr(hWnd); 
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumFunc, Longint(Self));
end;