[Статья] Пишем Ренеймер/Renamer окон [Delphi 7]

[Хакерок:)]

Всем привет. Сегодня я наткнулся на эту тему. Чтобы не было больше вопросов я решил написать статью о том, как это сделать. Для написания программы нам потребуется только Delphi 7.

1. Создаём новый проект;
2. Кидаем на форму Edit;
3. Кидаем на форму ComboBox;
4. Кидаем на форму Button;
5. Очищаем текст в Edit;
6. В свойстве Style компонента ComboBox выбираем DropDownList;
7. В свойстве Caption кнопки пишем Переименовать;
8. Создаём процедуру OnShow формы и пишем в ней:
   

   procedure TForm1.FormShow(Sender: TObject);
   var a : hWnd;
    b: array [0..127] of Char;
   begin
    a:=GetWindow(Handle, gw_HWndFirst);
    while a<>0 do
     begin
      if (a<>Application.Handle) and
      (IsWindowVisible(a)) and
      ((GetWindow(a, gw_Owner)=0)) and
      (GetWindowText(a, b, sizeof(b))<>0)
       then
        begin
         GetWindowText(a, b, sizeof(b));
         ComboBox1.Items.Add(StrPas(b));
        end;
       a:=GetWindow(a, gw_hWndNext);
     end;
   end;

9. В обработчик кнопки пишем код:
   

   procedure TForm1.Button1Click(Sender: TObject);
   var
     a:HWND;
   begin
   if ComboBox1.Text = '' then
   ShowMessage ('Начальное имя окна не введено!') else
      if Edit1.Text = '' then
         ShowMessage ('Новое имя окна не введено!') else
            begin
   SetWindowText(FindWindow (nil,pchar(ComboBox1.Text)),pchar(edit1.text));
     begin
   a:= findwindow(nil, PChar(Edit1.text));
   if a<>0 then
   ShowMessage('Окно переименовано')
   else
   ShowMessage('Окно не найдено');
        end;
        end;
      end;

10. Готово. Теперь сохраняем проект, компилируем и радуемся.

В СomboBox сразу после запуска появится список всех окон. В Edit вводим новое название выбранного окна. После нажатия кнопки (если всё правильно), то окно будет переименовано и будет выведено сообщение "Окно переименовано"
С дизайном и названием окна можете сами пошаманить.

[Хакерок:)]

Если нужны подробности либо помощь - пишите в ЛС =)
P.S. Статья и так расписана как нельзя подробно.

[Leo_ня]

То есть ты даёшь непрокомментированный код и это получается «Статья и так расписана как нельзя подробно.»?
В статье не описано НИЧЕГО.

Какие функции используются? Какие аргументы принимают, что возвращают?

Убило — поиск переименованного окна. Не лучше ли проверять возвращаемное значение функции SetWindowText?

Роль FindWindow непонятна. Смысл искать окно, если уже известен его хэндл и взято имя окна? Привязывай к итему в списке хэндл окна.

И, думаю, стоит изменять на новое имя окна в списке.

[Dinmaite]

Добавлю камень от себя.
Искать все окна в событии onShow бессмысленно, так как поиск будет производиться один раз при запуске программы (или при вызовах TForm.Show или TForm.ShowModal).
А если я хочу переименовать только что открытое окно?
Куда лучше делать поиск окон при выпадении списка (TComboBox.onDropDown) либо добавить кнопку обновления оного.

Ну и еще можно сказать что код обработчика кнопки нечитабелен, а переменные не "говорящие", какими они должны бы быть в обучающей статье.

[Хакерок:)]

Не учёл) И правда лучше поставить на TComboBox.onDropDown

[kaktess]

Бред непонятно

[Хакерок:)]

Цитата: Сообщение от kaktess Бред непонятно

что тут не понятно?

procedure TForm1.FormShow(Sender: TObject);
var a : hWnd;
 b: array [0..127] of Char;
begin
 a:=GetWindow(Handle, gw_HWndFirst);
 while a<>0 do
  begin
   if (a<>Application.Handle) and
   (IsWindowVisible(a)) and
   ((GetWindow(a, gw_Owner)=0)) and
   (GetWindowText(a, b, sizeof(b))<>0)
    then
     begin
      GetWindowText(a, b, sizeof(b));
      ComboBox1.Items.Add(StrPas(b));
     end;
    a:=GetWindow(a, gw_hWndNext);
  end;
end;

Здесь всё очень просто. ComboBox присваивается значения всех окон, за исключением собственного окна, невидимых окон, дочерних окон и окон без заголовков.

procedure TForm1.Button1Click(Sender: TObject);
var
  a:HWND;
begin
if ComboBox1.Text = '' then
ShowMessage ('Начальное имя окна не введено!') else
   if Edit1.Text = '' then
      ShowMessage ('Новое имя окна не введено!') else
         begin
SetWindowText(FindWindow (nil,pchar(ComboBox1.Text)),pchar(edit1.text));
  begin
a:= findwindow(nil, PChar(Edit1.text));
if a<>0 then
ShowMessage('Окно переименовано')
else
ShowMessage('Окно не найдено');
     end;
     end;
   end;

Здесь еще проще. Идёт проверка на пустое поле в Edit и пустой ComboBox. Если всё верно, то переименовываем.
Так что

[Хакерок:)]

И да, еще одно дополнение, чтобы список окон в ComboBox не дублировался, то первой командой в процедуре TComboBox.onDropDown требуется поставить команду ComoBox1.Clear;