---

Jeg har brug for at kunne sende bogstaver til
Windows så mit program tror at der rent faktisk
er trykket på keyboardet.
Er det muligt og er der nogle der ved hvordan

Carsten

---

hej der

der er nogle komp. der kan her
http://www.radix.net/~bziegler/Delphi/

ellers skal du bruge en API-kald.....'sendinput'

du kan finde alt om den i help.

/finn

---

"Carsten Bager" <cgb@beas.dk> skrev i en meddelelse
news:1103_1014887617@news.inet.tele.dk...
>
> Jeg har brug for at kunne sende bogstaver til
> Windows så mit program tror at der rent faktisk
> er trykket på keyboardet.
> Er det muligt og er der nogle der ved hvordan

Det er faktisk ret simpelt:

1. Lav USES på shellapi
2. Lav evt. en variabel: lpKeyState: TKeyboardState; (til status på shift
m.v.)
3. Brug følgende kode for at nedtrykke en tast:

keybd_event(ord('A'),0,0,0); // nedtrykker et 'A'
keybd_event(ord('A'),0,KEYEVENTF_KEYUP,0); // løfter tasten igen

For specielle taster såsom cursor op kan du bruge følgende:

keybd_event(vk_up,0,0,0);
keybd_event(vk_up,0,KEYEVENTF_KEYUP,0);

Afhængig af hvor og hvordan din kode fungerer kan det være praktisk med
application.processmessages ind imellem.....

Hvis du skal sende tastetryk til andre programmer skal du lige huske at
sætte fokus først (jeg har kun anvendt denne metode med Delphi-programmer).

M.v.h.
Olav

---

Olav M.J. Christiansen wrote:

>"Carsten Bager" <cgb@beas.dk> skrev i en meddelelse
>news:1103_1014887617@news.inet.tele.dk...
>
>>Jeg har brug for at kunne sende bogstaver til
>>Windows så mit program tror at der rent faktisk
>>er trykket på keyboardet.
>>Er det muligt og er der nogle der ved hvordan
>>
>
>Det er faktisk ret simpelt:
>
>1. Lav USES på shellapi
>2. Lav evt. en variabel: lpKeyState: TKeyboardState; (til status på shift
>m.v.)
>3. Brug følgende kode for at nedtrykke en tast:
>
>keybd_event(ord('A'),0,0,0); // nedtrykker et 'A'
>keybd_event(ord('A'),0,KEYEVENTF_KEYUP,0); // løfter tasten igen
>
>For specielle taster såsom cursor op kan du bruge følgende:
>
>keybd_event(vk_up,0,0,0);
>keybd_event(vk_up,0,KEYEVENTF_KEYUP,0);
>
>Afhængig af hvor og hvordan din kode fungerer kan det være praktisk med
>application.processmessages ind imellem.....
>
>Hvis du skal sende tastetryk til andre programmer skal du lige huske at
>sætte fokus først (jeg har kun anvendt denne metode med Delphi-programmer).
>
>M.v.h.
>Olav
>
>
>
Tak - det virker bare

Carsten