Как правильно переименовать окно?

[Sandyron]

Есть строка которая меняет конкретное имя окна, на другое конкретное имя
setwindowtext (findwindow(nil,'имя_окна'),'новое_ имя_окна')

Так вот сам вопрос, как вместо 'имя_окна' и 'новое_имя_окна' вписать переменные содержащие нужные имена??

[Вавел из ГМТУ]

Так и вписать

setwindowtext (findwindow(nil, OldName), NewName)

[Sandyron]

Ну вот я пишу

procedure TForm2.Button1Click(Sender: TObject);
var
new:string;
begin
new:=Edit1.Text;
setwindowtext (findwindow(nil,'имя_окна'),'новое_имя')
end;

И подставляю переменную new
setwindowtext (findwindow(nil,new),'новое_имя')
На что он мне выдает ошибку....что я не так сделал???

Вы разве осел? Что за "йа" ?
У нас "падонкафский" сленг не допускается !
Так же, как и слово "помогите" в названии темы.
Прочитайте правила.
На первый раз переименовываю, потом буду просто удалять.

//Извиняюсь....больше не повториться.

[Вавел из ГМТУ]

Какая ошибка? Текст ошибки?

[Sandyron]

[Error] Unit2.pas(33): Incompatible types: 'String' and 'PAnsiChar'

[Вавел из ГМТУ]

setwindowtext (findwindow(nil, PChar(OldName)), PChar(NewName))

Хоть иногда жмите F1....

*Правда может быть PChar нужно применять к какойто одной переменой... эксперементируй.*

[Sandyron]

Спасибо большое !! В конкретном случае все получилось!

И опять же возник вопрос, по той же теме.

setwindowtext (findwindow(nil, 'Безымянный - Блокнот'),PChar(new))

Вот здесь все отлично работает, блокнот переименовывается во введенное значение, но если вместо конкретного названия, а именно 'Безымянный - Блокнот' поставить переменную name (начальное имя окна)

setwindowtext (findwindow(nil, PChar(name)),PChar(new))

То ничего не происходит.

[BOBAH13]

Подход не верный. Где проверки ? Зачем вам десктоп переименовывать ? (если конечно GetDesktopWindow() вернет также NULL) ?

Вообще, умнее подход, сделать через класс окна (ну если класс не очень распространен), но все же:

wnd: DWORD;
begin
  wnd := FindWindow(NIL, PCHAR(name));
  if(wnd <> 0)
  begin
    SetWindowText(wnd, PCHAR(new));
  end;
  // если wnd = 0, то окна нет с таким заголовком.
end;

По нормальному хотите ? Ищем по форуму перебор окон:
1. EnumWindows()
2. GetWindow()
+ MSDN

p.s. намек на то, что вы руками перебераите окна, читаите их текст, ищите в полученном тексте (даже можно и кусочек) свой текст, и если нашли, прекращаите перебор и получаите свой wnd. Дальше ясно.