Probleme mit Schleifen

[KyroxX]

Danke für eure Hinweise !

Mit etwas Fruckelei und Glück isses mir so gelungen:
(ja nicht sehr sauber der code)

begin

Delphi-Quellcode:

ShellExecute(Handle,'open',PChar('programmdatei.exe'),nil,nil,SW_SHOWNORMAL);  //startet Programm
while not AppActivate('Fenstername') do  // wenn er Fensternamen NICHT findet.. 
begin  
sleep(50);                               // soll er immer wieder 50 milisek warten!
end; 
AppActivate('Fenstername'); //findet den Fensternamen
sleep (20);                  //wartet 20 milisek.
SendKeys('%(SA)', TRUE);     //sendet dem Fenster den Shortcut Alt+S+A
sleep (30000);               //wartet 30 sek
AppActivate('Fenstername');  //sucht nochmals nach dem Fensternamen
sleep (50);                  //wartet nochmal 50 milisek.
SendKeys('%(SA)', TRUE);     //sendet nochmals Keys
application.Terminate;       //und nach der Sicherheitsprüfung beenden!

Is doch nett geregelt oder? *gg*

THX 4 help nochmals

Übrigens nutze ich die Unit "sndkey32.pas" einfach im Forum suchen, falls die jemand braucht...