Discussion :

[mario9]

Bonjour


Comment a partir de window XP ,executer un raccourci clavier ver un autre programme.

J,ai essayé cette ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  hMPlayer: HWND;
begin
  hMPlayer := FindWindow('Media Player 2', nil);
  SetForegroundWindow(hMPlayer);
  sleep(500);
  PostMessage(hMPlayer, WM_KEYDOWN,VK_SPACE, 0);
  sleep(1000);
  PostMessage(hMPlayer, WM_KEYUP,VK_SPACE, 0);
end;

pris dans le Contrôle du clavier et de la souris sous Windows

mais ca fonctionne pas


Merci de votre aide

Mario

[Sub0]

Essaye ceci plutôt :

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
20
21
22
23
Var key: Integer; 
    hMPlayer: HWND;
 
Begin 
  hMPlayer := FindWindow('Media Player 2', Nil);
  If (hMPlayer = 0) Then Begin
    ShowMessage('Handle non valide!');
    Exit;
  End;
  SetForegroundWindow(hMPlayer);
  Application.ProcessMessages; 
  Sleep(200); 
 
  key := VK_SPACE;
  PostMessage(0, WM_KEYDOWN, key, key); 
  Application.ProcessMessages; 
  Sleep(200); 
 
  PostMessage(0, WM_KEYUP, key, key); 
  Application.ProcessMessages; 
  Sleep(200); 
 
End;

Je ne pense pas qu'il soit nécessaire de spécifier l'handle dans ces commandes puisque le clavier enverra le message à tout le système, en particulier l'application active au 1er plan. Mais bon, tu peux spécifier l'handle du programme si tu veux.

Tu peux aussi utiliser Keybd_Event() :

Code :

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

1
2
3
 
Keybd_Event(VK_SPACE, 0, 1, 0); 
Keybd_Event(VK_SPACE, 0, 2, 0);

???

[mario9]

Bonjour

Un gros merci pour votre aide c'est ca que je desirais avoir

Ca marche tres bien

(Un vrai pro)


Mario