Delphi. Как прочитать имя окна?

Мой код не показывает имя окна. Как прочитать имя окна в Делфи?

procedure TForm1.Button1Click(Sender: TObject);
begin;
H := FindWindow('Nazvan Okna', nil );
GetWindowThreadProcessID(H, @PID);
IDProcess := OpenProcess(PROCESS_ALL_ACCESS, false, PID);
if H < 1 then
begin
application.Title:='ERROR';
ShowMessage( 'Soobshenie' );
end;
end;

ОТВЕТ:

Первый параметр функции FindWindow- это имя класса окна, а не его заголовок, который является вторым параметром. Используйте Второй параметр.