Probleme beim Senden von ENTER (virtual key)

[Wotan]

Ok. also sieht bei mir folgendermaßen aus:

procedure PostVirtualKeyEvent(vk: Word; fUp: Bool);
const
ButtonUp: array[False..True] of Byte = (0, KEYEVENTF_KEYUP);
var
ScanCode: Byte;
begin
if vk <> vk_SnapShot then
ScanCode := MapVirtualKey(vk, 0)
else
ScanCode := 0;
Keybd_Event(vk, ScanCode, ButtonUp[fUp], 0);
end;


Function SendKey(VirtualKey: Word): Boolean;
Begin
Try
PostVirtualKeyEvent(VirtualKey,False);
{ PostVirtualKeyEvent(VirtualKey,True);}
Result := True;
Except
Result := False;
End;
End;

AUFRUF im Programm: Sendkey($D);