 |
||
| ||
| |||||
| Dernière réponse | ||
|---|---|---|
| Sujet : [ DEPLHI ] (source) Envoi de messages windows de pression de touche | ||
| Slide |
|
|
| Aperçu |
|---|
| Vue Rapide de la discussion |
|---|
| Slide |
|
| taureau | à mon avis le problème n'est pas dans le code que tu as posté, car il fonctionne, mais plutot dans la manière dont tu l'utilises, il serait plus utile que tu donnes un exemple et que tu précises les symptômes |
| Slide | UP |
| Slide | Salut :) j'ai beau chercher a faire fonctionner cette function (SendKeysTo), je n'ai pas trouvé le probleme... si vous pouviez m'aider... :)
Voici la source : //debut de code unit Winutils; interface uses WinTypes; function SendKeys(const AKeys: string; Wait: boolean): boolean; function SendKeysTo(Handle: Hwnd; const AKeys: string; Wait: boolean): boolean; implementation uses Messages, SysUtils, WinProcs{, KeyCodes, StrUtil}; procedure HandleMessages; var Msg: TMsg; begin while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin TranslateMessage(Msg); DispatchMessage(Msg); end; end; function SendAMessage(Wnd: HWnd; Msg, wParam: Word; lParam: LongInt): LongInt; begin SendMessage(Wnd, Msg, wParam, lParam); HandleMessages; end; function SendKeys(const AKeys: string; Wait: boolean): boolean; var h : Hwnd; begin h := GetFocus; SendKeys := SendKeysTo(h, AKeys, Wait); end; { SendKeys } function SendKeysTo(Handle: Hwnd; const AKeys: string; Wait: boolean): boolean; function AHandle: Hwnd; var h: Hwnd; p: PChar; begin p := StrAlloc(32); h := GetFocus; { GetClassName(h, p, 31); if StrComp(p, 'Button') = 0 then AHandle := GetParent(h) else} AHandle := h; StrDispose(p); end; var Char : boolean; CtrlDown : boolean; k : integer; Keys : string; p : integer; s : string; ShiftDown : boolean; SysKey : boolean; begin CtrlDown := false; SysKey := false; ShiftDown := false; Keys := AKeys; while length(Keys) > 0 do begin if Keys[1] = '%' then begin SysKey := true; if Wait then SendAMessage(AHandle, WM_SysKeyDown, VK_Menu, $20000001) else PostMessage(AHandle, WM_SysKeyDown, VK_Menu, $20000001); Keys := copy(Keys, 2, length(Keys)); end else if Keys[1] = '+' then begin ShiftDown := true; if Wait then SendAMessage(AHandle, WM_KeyDown, VK_Shift, $00000001) else PostMessage(AHandle, WM_KeyDown, VK_Shift, $00000001); Keys := copy(Keys, 2, length(Keys)); end else if Keys[1] = '^' then begin CtrlDown := true; if Wait then SendAMessage(AHandle, WM_KeyDown, VK_Control, $00000001) else PostMessage(AHandle, WM_KeyDown, VK_Control, $00000001); Keys := copy(Keys, 2, length(Keys)); end; if Keys[1] = '{' then begin p := pos('}', Keys); s := lowercase(copy(Keys, 2, p-2)); Keys := copy(Keys, p+1, length(Keys)); Char := true; if s = 'tab' then k := VK_Tab else if s = 'enter' then k := VK_Return else begin Char := false; if s = 'down' then k := VK_Down else if s = 'up' then k := VK_Down else if s = 'right' then k := VK_Right else if s = 'left' then k := VK_Left else if s = 'capslock' then k := VK_Capital else begin Char := false; if s = 'f1' then k := VK_F1 else if s = 'f2' then k := VK_F2 else if s = 'f3' then k := VK_F3 else if s = 'f4' then k := VK_F4 else if s = 'f5' then k := VK_F5 else if s = 'f6' then k := VK_F6 else if s = 'f7' then k := VK_F7 else if s = 'f8' then k := VK_F8 else if s = 'f9' then k := VK_F9 else if s = 'f10' then k := VK_F10 else if s = 'f11' then k := VK_F11 else if s = 'f12' then k := VK_F12 else if s = 'f13' then k := VK_F13 else if s = 'f14' then k := VK_F14 else if s = 'f15' then k := VK_F15 else if s = 'f16' then k := VK_F16; end; end; if SysKey then begin if Wait then begin SendAMessage(AHandle, WM_SysKeyDown, k, $20000001); SendAMessage(AHandle, WM_SysKeyUp, k, $e0000001); end else begin PostMessage(AHandle, WM_SysKeyDown, k, $20000001); PostMessage(AHandle, WM_SysKeyUp, k, $e0000001); end; end else begin if Wait then begin SendAMessage(AHandle, WM_KeyDown, k, $08000001); if Char then SendAMessage(AHandle, WM_Char, k, $08000001); SendAMessage(AHandle, WM_KeyUp, k, $c8000001); end else begin PostMessage(AHandle, WM_KeyDown, k, $08000001); if Char then PostMessage(AHandle, WM_Char, k, $08000001); PostMessage(AHandle, WM_KeyUp, k, $c8000001); end; end; end else begin { Ordinary characters } if Wait then begin SendMessage(AHandle, WM_KeyDown, ord(UpCase(Keys[1])), $08000001); if ShiftDown then SendMessage(AHandle, WM_Char, ord(UpCase(Keys[1])), $08000001) else SendMessage(AHandle, WM_Char, ord(Keys[1]), $08000001); SendAMessage(AHandle, WM_KeyUp, ord(UpCase(Keys[1])), $c8000001); end else begin PostMessage(AHandle, WM_KeyDown, ord(UpCase(Keys[1])), 1); if ShiftDown then PostMessage(AHandle, WM_Char, ord(UpCase(Keys[1])), 1) else PostMessage(AHandle, WM_Char, ord(Keys[1]), 1); PostMessage(AHandle, WM_KeyUp, ord(UpCase(Keys[1])), $c0000001); end; Keys := copy(Keys, 2, length(Keys)); end; if SysKey then begin if Wait then SendAMessage(AHandle, WM_KeyUp, VK_Menu, $c0000001) else PostMessage(AHandle, WM_KeyUp, VK_Menu, $c0000001); SysKey := false; end; if ShiftDown then begin if Wait then SendAMessage(AHandle, WM_KeyUp, VK_Shift, $c0000001) else PostMessage(AHandle, WM_KeyUp, VK_Shift, $c0000001); ShiftDown := false; end; if CtrlDown then begin if Wait then SendAMessage(AHandle, WM_KeyUp, VK_Control, $c0000001) else PostMessage(AHandle, WM_KeyUp, VK_Control, $c0000001); CtrlDown := false; end; end; { while } SendKeysTo := true; end; { SendKeysTo } end. //fin de code |
