¿Cómo cambiar el caption de otra aplicación?

[ecfisa]

Hola mordaz.

El código del mensaje #4, cambiará sin ningún problema cualquier título de ventana de una aplicación tipo SDI. Siempre claro, que la aplicación se esté ejecutando y que la ventana que deseas cambiar el título tenga su propiedad visible en verdadero.

Pero podría suceder que la aplicación de tercero que mencionas sea MDI, en ese caso el código tiene que cambiar un poco:

Código Delphi [-]
...
implementation

{$WARNINGS OFF}

procedure SetWindowTitleMDI(const MainTitle, ChildTitle, NewTitle: string);
var
  hMain, hMDI, hChild : THandle;
begin
  hMain := FindWindow(nil, PChar(MainTitle));
  if hMain <> 0 then
  begin
    hMDI := FindWindowEx(hMain, 0, 'MDIClient', 0);
    if hMDI <> 0 then
    begin
      hChild  := FindWindowEx(hMDI, 0, 0, PChar(ChildTitle));
      if hChild <> 0 then
       SetWindowText(hChild, PChar(NewTitle));
    end;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.btnChangeMDIClick(Sender: TObject);
begin
  SetWindowTitleMDI('MDIForm',      // titulo del MDIForm (main)
                    'MDIChild1',    // título del MDIChild (buscado)
                    'OTRO_TITULO'); // nuevo título
end;

Saludos

[mordaz]

Hola ecfisa,

Gracias por tu ayuda, siguiendo el código que amablemente me proporcionaste como ejemplo, no pude tomar el Handle de FindWindowEx(hMain, 0, 'MDIClient', 0) así que investigando un poco mas la aplicación en ejecución con WinSight32, encontré que efectivamente había 2 procesos que se desprendían del mismo .exe, también encontré que la class del proceso que no podía tomar su Handle era simplemente "TMainForm" asi que con tu ejemplo del 'MDIClient' busque esta vez 'TMainForm' y pude tomar el handle del proceso directamente con FindWindow.

Aquí esta el código de como lo resolví en C++ Builder.

Código Delphi [-]
HWND hMain,hAplication;

//Esta ventana no estaba visible pero ponia la aplicacion en la barra de tareas
//Tomando handle de la aplicacion
hAplication=FindWindow(0,"Etiqueta original de la aplicacion");
if (hAplication){
   SetWindowText(hAplication, "Nueva etiqueta");
}

//Esta ventana si estaba visible
//Tomando handle de la ventana principal 
hMain=FindWindow("TMainForm",0);
if (hMain){
   SetWindowText(hMain, "Nueva etiqueta - Caption de Ventana");
   SetWindowPos(hMain,HWND_TOPMOST,100,450,vgi_width-200,vgi_height-450,SWP_SHOWWINDOW);
}