DELPHI ЗАГОЛОВОК АКТИВНОГО ОКНА

Delphi позволяет получить заголовок активного окна через использование API функции GetActiveWindow и GetWindowText. Для этого необходимо объявить следующие функции:

function GetActiveWindow(): HWND; external 'user32.dll';function GetWindowText(hWnd: HWND; lpString: PChar; nMaxCount: Integer): Integer; stdcall; external 'user32.dll';

Далее, необходимо вызвать эти функции в процедуре или функции и получить текст заголовка. Пример кода:

var WindowTitle: array[0..255] of Char;begin GetWindowText(GetActiveWindow, WindowTitle, Length(WindowTitle)); ShowMessage('Заголовок активного окна: ' + WindowTitle);end;

В данном примере мы используем функцию ShowMessage, чтобы отобразить информационное окно с текстом заголовка активного окна.

Также, можно использовать класс Vcl.Forms.TApplication для доступа к свойству MainForm.Caption, которое содержит заголовок активного окна:

ShowMessage(Application.MainForm.Caption);

Программирование в Delphi Урок 12.1. Многоформенные приложения / Илья Хохлов

Программирование в Delphi. Урок 12.5. Решение самостоятельного задания. Используем BREAK и CONTINUE

Создание окна авторизации в Delphi 7!!!!

ВидеоУрок Delphi : Диалоговые Окна

Программирование в Delphi Урок 8. Компоненты Главное меню и диалоговые окна

2 Знакомство с Delphi 7 Окно формы