Probleme beim Senden von ENTER (virtual key)

[Wotan]

Hi Leute,

ich sende keys an eine gestartete dos-application(auf win 98 rechner) und will dort einen dateinamen eingeben und dann mit enter bestätigen.
die eingabe der datei funktioniert, nur leider nimmt er die ENTER taste nicht an.

kennt jemand die ursache oder hat einen hinweis für mich ??

bitte helft mir!!!


gruß wotan

[Alexander]

Es würde bestimmt helfen, wenn du mal einen Ausschnitt von deinem Source hinschreibst. Denn wie sollen wir helfen, wenn wir nicht wissen wie du das versuchst hast?
[edit]keine Doppelposts ;-)[edit]

[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);