Problema con el FindWindow

[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;