Forum: Win32/Win64 API (native code)
Delphi
by theomega,
1. Jan 2005
gut, also ich hab ein bischen rumprobiert: postmessage oder sendmessage macht keine unterschied. Ob Button oder Timer macht auch keinen!
ich habe dann noch diesen Code hier konstruiert, der hilft aber auch nicht!
procedure prev();
var wnd: HWND;
KeyBrdSt : TKeyboardState;
begin;
wnd := FindWindow('{DA7CD0DE-1602-45e6-89A1-C2CA151E008E}', nil);
if wnd <> 0 then
begin
...
Forum: Win32/Win64 API (native code)
Delphi
by theomega,
1. Jan 2005
mir erschien die sache auch nicht logisch so, weil: damit werden doch nacheinander die tastendrück simuliert. Und vermutlich sag sich das programm als erstes: "Aha, ein shift, aber damit fang ich wenig an" und dann kommt das V rein und das Programm macht das, was das V normalerweise tut! Ich denke das wird nicht gleichzeitig gemacht!
Forum: Win32/Win64 API (native code)
Delphi
by theomega,
1. Jan 2005
also, ich löse das ganze per button aus, und das empfangende programm scheint nicht zu merken, dass shift auchnoch gedrückt ist und statt zum vorherigen song (SHIFT+V) zu springen, springt es zum nächsten (V). Un ob ich jetzt noch ein KEYUP mache oder nicht ändert garnichts an der Situation!
Forum: Win32/Win64 API (native code)
Delphi
by theomega,
1. Jan 2005
das hatte ich auch schon probiert, alledings auch nicht hinbekommen:
PostMessage(wnd, WM_KEYDOWN, VK_SHIFT, 0);
PostMessage(wnd, WM_KEYDOWN, ord('V'), 0);
zu einen WM_KEYUP komm ich garnicht, die Anwendung reagiert sofort und zwar mit einen V und nicht einen SHIFT+V.
Hatte mich oben vertippt, ich will kein ALT+V sondern ein Shift+V. Das ganze dient zum fernsteuern eines Mediaplayers!...
Forum: Win32/Win64 API (native code)
Delphi
by theomega,
1. Jan 2005
Hallo Leute,
ich verwende diese Funktion, um einen Tastendruck an ein Window zu senden:
procedure sendvk(vk:integer);
var wnd: HWND;
begin
wnd := FindWindow('{DA7CD0DE-1602-45e6-89A1-C2CA151E008E}', nil);
if wnd <> 0 then
begin
PostMessage(wnd, WM_KEYDOWN, vk, 0);
end;