Переименовать программу назад

[misher]

При нажатии на клавишу, меняю заголовок окна (как и в диспетчере задач, так и caption)

SendMessage(FindWindow(nil, 'Заголовок1'), WM_SETTEXT, 0, Lparam(LpCtStr('Заголовок2')));

дальше используется showmessage и окно появляется с заголовок2, как мне после нажатия "ок" вернуть название обратно?

[Человек_Борща]

Я реализовал это так:

procedure TForm1.Button1Click(Sender: TObject);
var
  hw:HWND;
  Buff:array[0..255] of Char;  //заголовок 1
  Buff1:array[0..255] of Char;   //заголовок 2
begin
  hw:=FindWindow(nil,'Калькулятор Плюс');  //ищем окошко
  If hw <> 0 then     //Нашли,не?
  begin
    GetWindowText(hw,Buff,255);  //Получаем заголовок 1
    SetWindowText(hw,PChar('Хренолятор Плюс'));   //Ставим заголовок 2
    SetForegroundWindow(hw);    //показываем что мы хороши
    GetWindowText(hw,Buff1,255);     //Получаем новый заголовок
    //Сообщение, круче чем ShowMessage
    if MessageBox(Form1.Handle,PAnsiChar('Новый заголовок: '+String(Buff1)+#10#13+'Изменить на старый?'),PAnsiChar('Офигенски!'),MB_OKCANCEL or MB_ICONINFORMATION)=IDOK then
    begin
      //Если нажат батон ОК
      //Тыкаем старый заголовок
     SetWindowText(hw,Pchar(string(Buff)));
     //показываем что мы хороши
     SetForegroundWindow(hw);
    end;
  end;
end;

[misher]

Помог?

Помог.

Скажи спасибо

Большое спасибо!