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...