Change caption of any window

Posted in Application

Use SetWindowText for changing caption of window, which has caption 'Delphi Help', to 'Super Delphi Help'.

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  MyHandle:=FindWindow(nil, 'Delphi Help');
  SetWindowText(MyHandle, 'Super Delphi Help');
end;