[ecfisa]

Hola.

Y si se trata de otra aplicación que también está ejecutándose en ese momento:

Código Delphi [-]
procedure SetWindowTitle(const AppTitle, NewTitle: string);
var
  H : THandle;
begin
  H := FindWindow(nil, PChar(AppTitle));
  if H <> 0 then
    SetWindowText(H, PChar(NewTitle));
end;

Ejemplo de uso:

Código Delphi [-]
...
  SetWindowTitle('Calculadora', 'Nuevo título'); // (Calculadora de windows)
...