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.