Nie potrafię odczytać nazwy okna.

Witam.

Kod który posiadam nie zczytuje mi nazwy okna. Zupełnie nie wiem czemu tak jest, bo to działa w przypadku tylko jednej aplikacji.
To jest kod:

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

Również chciałbym wiedzieć, dlaczego notatnika również nie zczytuje jak podaję nazwę okna i muszę koniecznie wpisać "notepad", by działało.

Dzięki.

Pierwszym parametrem funkcji FindWindow jest nazwa klasy okna a nie jego tytuł, który jest drugim parametrem.

Jak w takim razie sprawdzić nazwę klasy okna?

Jest wiele programów pokazujących np.
https://www.nirsoft.net/utils/winlister.html

kAzek napisał(a):

Jest wiele programów pokazujących np.
https://www.nirsoft.net/utils/winlister.html

Dzięki :) a w takim razie również można ustawić pierwszą wartość findwindow(nil, 'nazwaokna') i tez powinno smigać nie?

Cofencjusz napisał(a):

Dzięki :) a w takim razie również można ustawić pierwszą wartość findwindow(nil, 'nazwaokna') i tez powinno smigać nie?

https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindoww

Jeśli nie zna się klasy okna to tak, powinien być tam nil – w takim przypadku znalezione zostanie pierwsze okno, którego tytuł pasuje do ciągu z drugiego parametru.