Discussion :

[Papy214]

Bonjour

Je ne connais rien au C.
Quelqu'un ici pourrait-il m'aider à trouver l'équivalence en Delphi ?
Je mets la procédure entière mais c'est surtout l'utilisation du pipe (0 |1|1;) qui me pose problème.
Pour le reste je vais bien me débrouiller tout seul

Code C :

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
 
void SendInputkey(HWND window, WORD key, WORD shift=0)
{
    WORD loword = 1;
    WORD scancode=0x0000;
    WORD extendedkey=0x0100;
    WORD keyup= 0 |1|1;
    WORD keydown= 0 |1|0;
    WORD hiword = scancode | extendedkey |keyup;
    if(shift!=0)
        PostMessage(window, WM_KEYDOWN,(WPARAM) shift,MAKELPARAM(loword, hiword));
    PostMessage(window, WM_KEYDOWN,(WPARAM) key,MAKELPARAM(loword, hiword));
    extendedkey=0x0000;
    hiword = scancode | extendedkey | keydown;
    if(shift!=0)
        PostMessage(window, WM_KEYUP,(WPARAM) shift,MAKELPARAM(loword, hiword));
    PostMessage(window, WM_KEYUP,(WPARAM) key,MAKELPARAM(loword, hiword));
 
}

[papyvore]

salut
teste ce code mais me pose pas de question il n'est pas de moi

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
24
25
26
27
28
29
procedure SendInputKey(window: HWND; key: Word; shift: Word = 0);
var
  loword: Word;
  scancode: Word;
  extendedkey: Word;
  keyup: Word;
  keydown: Word;
  hiword: Word;
begin
  loword := 1;
  scancode := $0000;
  extendedkey := $0100;
  keyup := 0 or 1 or 1;
  keydown := 0 or 1 or 0;
  hiword := scancode or extendedkey or keyup;
 
  if shift <> 0 then
    PostMessage(window, WM_KEYDOWN, shift, MAKELPARAM(loword, hiword));
 
  PostMessage(window, WM_KEYDOWN, key, MAKELPARAM(loword, hiword));
 
  extendedkey := $0000;
  hiword := scancode or extendedkey or keydown;
 
  if shift <> 0 then
    PostMessage(window, WM_KEYUP, shift, MAKELPARAM(loword, hiword));
 
  PostMessage(window, WM_KEYUP, key, MAKELPARAM(loword, hiword));
end;

[ShaiLeTroll]

| c'est le or binaire mais il n'a aucun intérêt dans ce code entre des constantes 0 et 1, le résultat sera toujours 1
Franchement ce code C est pourri, cela n'utilise même pas les constantes Windows prévu pour et il est plein d'étape inutile, l'auteur ne semblait pas bien maitriser grand chose.

Souvent on peut tout simplement faire un + entre les constantes Windows qui sont toutes des multiples de 2 genre $0001, $0002, $0004, $0008 puis $0010, $0020, $0040, $0080 ...
dans ce cas KF_EXTENDED (0x0100), KF_DLGMODE (0x0800), KF_MENUMODE (0x1000), KF_ALTDOWN (0x2000), KF_REPEAT (0x4000), KF_UP (0x8000)

Vu le sujet du post et le titre de sujet autant le fusionner dans Ctrl + character vers un composant

En gros cela doit se résumé à ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure SendInputKey(window: HWND; key: Word; shift: Word = 0);
begin 
  if shift <> 0 then
    PostMessage(window, WM_KEYDOWN, shift, MAKELPARAM(1, KF_EXTENDED + $0001));
 
  PostMessage(window, WM_KEYDOWN, key, MAKELPARAM(1, KF_EXTENDED + $0001));
 
  if shift <> 0 then
    PostMessage(window, WM_KEYUP, shift, MAKELPARAM(1, $0001));
 
  PostMessage(window, WM_KEYUP, key, MAKELPARAM(1, $0001));
end;

KF_EXTENDED en hiWord c'est synonyme du bit 24 à 1 :

Indique si la touche est une touche étendue, telle que les touches ALT et CTRL de droite qui s’affichent sur un clavier à 101 ou 102 touches amélioré. La valeur est 1 s’il s’agit d’une clé étendue ; sinon, c’est 0

KF_EXTENDED c'est 0x0100 qui devient en hiword x01000000 ce qui correspond bien au 24ème bit à 1

[Papy214]

En fait c'est un code que j'ai trouvé sur https://cboard.cprogramming.com/wind...-wm_keyup.html

Quand à déterminer, vu que je ne connais pas le langage proposé, difficile pour moi de juger

Mais puisque le | est le OR effectivement je ne vois pas l'utilité du 0 or 1 or 1

Sinon pour le résultat, le tien et celui de Papyvore donne le même résultat.

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
 
procedure TForm12.Button1Click(Sender: TObject);
var
  Key: char;
begin
  Key := 'R';
  SendInputKey(Handle, Ord(Key), 1);   // Papyvore
  SendInputKey2(Handle, Ord(Key), 1);  // Shaï
end;
 
procedure TForm12.WMOP(var Msg: TWMKey);
var
  St: TShortCut;
begin
  St := ShortCutFromMessage(Msg);
  Memo1.Lines.Add(Format('%s', [ShortCutToText(St)]));
end;

Résultat :


R

R

[Papy214]

J'ai bien pensé à mettre ça au bout de l'autre question mais comme c'était surtout pour comprendre cette histoire de | donc j'ai hésité.