[MIHAHIM]

Сообщение от lmikle

Код просто поправил, логику не проверял:

Такс, у меня уже что-то начало работать. Я безумно рад
Но, к сожалению, не совсем так, как задумывалось... )
Вот такой рабочий код у меня сейчас (без ошибок при сборке):

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
  private
  public
end;

var
  Form1: TForm1;
  n: Integer;

implementation

{$R *.dfm}

function EnumWindowsProc(wHandle: HWND; Param: Pointer): BOOL; stdcall;
var
  Title, ClassName: array[0..255] of char;
begin
  GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if findwindow(nil, 'Racing') <>0
  then begin
       Inc(n);
       SetWindowText(wHandle, Format('Racing %d', [n]));
       end;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  n := 0;
  EnumWindows(@EnumWindowsProc, 0);
end;

end.

Итак, при нажатии на кнопку, окна с указанным названием действительно переименовываются. Но почему то им присваивается абсолютно случайные двухзначные номера. А так же свой заголовок меняет и сама моя программа.
Как я писал в первом посте мне нужна нумерация по порядку, начиная с 1, 2, 3, итд.
Ну, естественно переименование окна моей проги тоже не нужно )
Буду рад если поможете завершить мою простенькую программу
P.S.: Уже высказываю благодарность Страдальцу и lmikle за активную помощь