Registriert seit: 22. Okt 2007
Ort: Nähe Köln
1.063 Beiträge
Delphi 7 Enterprise
|
Re: Tasten ausgeben
30. Apr 2008, 17:34
Probiers mal mit den Prozeduren hier:
Delphi-Quellcode:
procedure PressKey(Key: Word);overload;
begin
keybd_event(Key, 0, 0, 0);
keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;
procedure PressKey(Key: Char);overload;
begin
PressKey(vkKeyScan(Key));
end;
//Aufruf:
PressKey(vk_SPACE);//Entweder mit virtuellem KeyCode
PressKey('h'); //Oder mit Char
Mfg
Robert L. Der folgende Satz ist richtig!
Der vorherige Satz ist falsch!
Paradox
|