Forum: Win32/Win64 API (native code)
Delphi
by Cyberstorm,
22. Aug 2007
Falls es noch wer sucht:
function GetFocusedControl: HWnd;
var
tid: Cardinal;
hw: HWND;
begin
hw := GetForegroundWindow;
tid := GetWindowThreadProcessID(hw, nil);
Forum: Win32/Win64 API (native code)
Delphi
by Cyberstorm,
21. Aug 2007
bräuchte hier doch nochmal hilfe:
sobald ich RSHIFT simuliere und dazwischen noch die VK_Left's bringt das KEYUP nichts mehr und rshift "verklemmt" sich bis ichs auf der tastatur drücke.
völlig egal, ob ich danach noch 20 keyup events sende oder keydown/up.
wenn ich zwischen down und up jedoch andere tasten (z.b. "a") simuliere passiert das nicht.
ist das mit dem code bei euch auch so?...
Forum: Win32/Win64 API (native code)
Delphi
by Cyberstorm,
21. Aug 2007
habs schon.
es muss VK_RShift genommen werden (warum auch immer). Mit VK_LShift und VK_Shift funzt es nicht *strange*
Forum: Win32/Win64 API (native code)
Delphi
by Cyberstorm,
21. Aug 2007
Ich probiere mit folgendem Code z.B. 3 Zeichen zu markieren.
Nach links geht er dabei jedoch ohne zu markieren :-/
KeyBd_Event(VK_SHIFT, 0, 0, 0);
for i:=1 to 3 do
begin
KeyBd_Event(VK_LEFT, 0, 0, 0);
KeyBd_Event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0);
end;