Discussion :

[gord's]

j'ai un probleme tout con à ennoncer :
mon service NT peut etre amené à afficher des fenetres de saisies (il est de type interactif et tourne sous localSystem).
Mais apparemment windows n'envoie pas les keypress aux services, seulement keydown, keyUp.
Résultat : aucune saisie possible dans des TEdit.

Quelqu'un a-t'il trouvé comment contourner ça ?

[gord's]

bon, finalement je vais me regénerer les keypress à partir des keydown/keyUp.

juste une question : comment passe-t'on des codes passés dans keyDown à un caracteres, et comment filtrer les touches qui doivent donner lieu à un keypress ?

[heid]

je comprend pas tu veux pouvoir savoir quelle touche est frappée et la filtrer le cas échéant c'est ca?

[gord's]

sur keyDown, windaube envoie aussi keyPress, mais seulement pour une appli, pas pour un service.
c'est pour ça que je veux regénérer les keypress.
or, tous les keydown ne donnent pas lieu à des keypress, d'où mon besoin de filtrage.

de plus, la conversion du keycode+shiftState de keydown n'est pas facilement traduisible en char (par ex, pour & et 1, on recoit le code ascii de 1)

[gord's]

j'ai trouvé !!!
tournée générale !
joie et allegresse !!
Pardonnez l'emphase, mais je traine ce truc depuis deux ans, en m'y remettant de temps à autres.

Le truc : faire un composant dérivé de TEdit, capturer le WM_KeyDown pour faire un translateMessage. Et c'est tout !

détails: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/aboutkeyboardinput.asp

le composant :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit cmp_svcEdit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TsvcEdit = class(TEdit)
  private
    fService: boolean;
    procedure WMKeyDown(var Message: TWMKeyDown);  message WM_KEYDOWN;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property NTservice: boolean read fService write fService;
  end;
 
procedure Register;
 
implementation
 
constructor TsvcEdit.Create(AOwner: TComponent);
begin
  inherited;
  fService := false;
end;
 
procedure TsvcEdit.WMKeyDown(var Message: TWMKeyDown);
var
   msg: TMsg;
begin
  if fService then begin
    msg.hwnd := self.Handle;
    msg.message := message.Msg;
    msg.wParam := message.CharCode;
    msg.lparam := message.KeyData;
    translateMessage(msg);
  end;
  inherited;
end;
 
procedure Register;
begin
  RegisterComponents('MesComp', [TsvcEdit]);
end;
 
end.