Вопрос про Win API-функции

[Climber]

Не знаю, где надо стпрашивать - здесь или в подфоруме Free Pascal Compiler.
Есть такой код:

Код: Выделить всё

TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
end;

var
  MainForm: TMainForm;

implementation

procedure TMainForm.Button1Click(Sender: TObject);
var
  WinClass: array[0..255] of Char;
begin
  GetClassName(MainForm.Handle, WinClass, SizeOf(WinClass));
  ShowMessage('Класс окна: '+WinClass);
end;

После нажатия на кнопку появляется сообщение: "Класс окна: Window".
Есть мнение, и не только мое, что функция GetClassName должна была тут вернуть "TMainForm". Это Lazarus виноват или что (кто)?

[Павел Ишенин]

Мнение неправильное Класс выдается окна а не контрола. Используйте MainForm.ClassName.

[Climber]

А вот и нет!
Я немного модифицировал (но не принципиально) одну строчку:

Код: Выделить всё

GetClassName(GetActiveWindow, WinClass, SizeOf(WinClass));

Так как мое окно активно в момент нажатия на кнопку, то все должно быть нормально.
Участники соревнований: Lazarus 0.9.26, Delphi 2007. Ответ первого - Window, второго - TMainForm.
На самом деле, мне нужно перечисление классов всех запущенных окон (через EnumWindows), чтобы некоторые отслеживать. Так вот меня просто смутило то, как программа опознала сама себя, но это в моем случае не важно.
Ушел думать...

[Alexx2000]

После нажатия на кнопку появляется сообщение: "Класс окна: Window".
Есть мнение, и не только мое, что функция GetClassName должна была тут вернуть "TMainForm". Это Lazarus виноват или что (кто)?

Да виноват Lazarus, он при создании всех окон использует имя класса окна "Window", Delphi устанавливает имя класса в соответствие с именем класса формы.
Это создает проблемы, если необходимо использовать определенное имя класса для окна. Может кто подскажит как решить такую проблему?

[Павел Ишенин]

Что дает регистрация нового класса окна windows полезного кроме идентификации по имени класса в delphi?

[Михаил Крамер]

А кто мешает LCL изменить под себя? Тем более, по-моему, изменение имени класса сильно не скажется на работоспособности.

[Павел Ишенин]

Если это нужно для каких-либо целей кроме как идентификации по имени класса - это не сложно добавить в LCL, но только ради идентификации мне кажется не стоит.

[Alexx2000]

Мне например это нужно для более полной поддержки плагинов от Total Commander. Дело в том что некоторые плагины выполняют поиск окна главной программы по имени класса окна, и не находя его либо работают со сбоями, либо вообще не работают.

[Climber]

А мне вообще не нужно, я просто так спросил
Кстати, после нескольких месяцев ковыряния в лазарусе запустил Delphi 2007, потыркался... Не понравилось, тупой он какой-то. Компонентов много, а току мало, лазарус приятнее