Thema: Delphi Tasten an Handle senden

Einzelnen Beitrag anzeigen

Benutzerbild von theomega
theomega

Registriert seit: 18. Jun 2002
684 Beiträge
 
#10

Re: Tasten an Handle senden

  Alt 1. Jan 2005, 17:23
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!
Delphi-Quellcode:
procedure prev();
var wnd: HWND;
KeyBrdSt : TKeyboardState;
begin;
  wnd := FindWindow('{DA7CD0DE-1602-45e6-89A1-C2CA151E008E}', nil);
  if wnd <> 0 then
  begin
    GetKeyboardState( KeyBrdSt );
    KeyBrdSt[ VK_SHIFT ] := $80;
    SetKeyboardState( KeyBrdSt );
    SendMessage(wnd, WM_KEYDOWN, ord('V'), 0);
    KeyBrdSt[ VK_SHIFT ] := $00;
    SetKeyboardState( KeyBrdSt );
  end;
end;
hat sonst noch jemand nen guten tip?

Danke
TO
  Mit Zitat antworten Zitat