Discussion :

[devoluti0n]

bonjour ! je souhaiterai pouvoir faire éxécuter une commande de keybd_event pour n'importe quelle programme ayant le focus.

Déjâ le probleme à l'origine, c'est que sa ne fonctionne que sur ma form.
Le 2ieme probleme est que si mon application perds le focus, sa ne marche plus du tout; ni dans ma form, ni dans n'importe quelle programme.

Hors je veux donc pouvoir envoyer mon keybd_event partout, zone de texte ou non.

Une idée ?
J'ai déja éssayer sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Procedure sendkeys();
     var hWindow: HWND;
     begin
  hWindow := GetForegroundWindow();
  keybd_event(VK_space, 0, 0, 0);
  sleep(30);
  keybd_event(VK_space, 0, KEYEVENTF_KEYUP, 0);
  sleep(200);
end;

mais sa ne fonctionne pas mieu que s'ils n'y étaient pas .

J'utilise aussi des hooks, cela doit changer quelque chose ?

[Fabrice ROUXEL 1]

Essayes avec AttachThreadInput() puis GetFocus().

[devoluti0n]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Procedure GetSysFocus;
var
  hFgWin, FgThreadID: Integer;
begin
  hFgWin     := GetForegroundWindow;
  FgThreadID := GetWindowThreadProcessID(hFgWin, nil);
  if AttachThreadInput(GetCurrentThreadID, FgThreadID, True) then
  GetFocus;
end;
 
Procedure sendkeys();
begin
getsysfocus();
  keybd_event(VK_space, 0, 0, 0);
  sleep(30);
  keybd_event(VK_space, 0, KEYEVENTF_KEYUP, 0);
  sleep(200);

Ne fonctionne pas

Erf, dur dur le focus global ...

[Ludo_360]

J'ai à peu près le même problème...

Je cherche de mon côté, mais ça ne donne pas grand chose.

Si j'ai du nouveau je te tiens au courant.

++

ps: je viens de lire ton message et je n'ai pas msn jss au taf.. :s

[Eric Boisvert]

Tu peux toujours essayer avec
SendInput...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var
  Input:TInput;
begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_CONTROL;
  Input.ki.wScan := 0;
  Input.ki.time := 0;
  Input.ki.dwExtraInfo := 0;
 
  Input.ki.dwFlags := 0;    // Preparation pour envoi Key DOWN
  SendInput(1, Input, SizeOf(Input));  //Send Key DOWN
  //Lecture de l'etat de VK_CONTROL
  if GetAsyncKeyState(VK_CONTROL) <> 0 then
  begin
      //Vk_Control est down! remet a UP!
      Input.ki.dwFlags := KEYEVENTF_KEYUP; // preparation pour envoi Key UP
      SendInput(1, Input, SizeOf(Input)); //Send Key UP
  end;

[devoluti0n]

Sa ne fonctionne pas mieu, si ma forme n'a pas le focus, l'envoi ne marche plus, sendinput ou autre...

Je me pose des questions, tel que est-ce que le fait d'utiliser des hooks claviers peuvent poser ce probleme.

Si c'est le cas, comment remedier à cela tout en gardant mes hooks ?