Discussion :

[UnSofteuxAmateur]

Bonjour
Je travaille sous delphi (et je debute)...je souhaite faire un programme simple me permettant de recupérer tout les caractere saisi au clavier pour les stocké dans un fichier texte...
Est ce possible facilement et comment dois je faire?

Merci d'avance...
Ps: le programme pourra etre deployé sur macintosh...

[ShaiLeTroll]

Cherche Hook sur le Forum ou dans la FAQ

Ensuite Delphi ? Ah Kylix donc Mac OS X ? non ? bon Courage pour trouver l'équivalent des Hook Windows en Linux

en gros c'est ces fonctions à mettre dans une DLL, et c'est obligatoire bien sur ! là c'est dans un exe car c'est mon programme à bordel pour mes essais, et j'ai plus ma DLL depuis 2004 je ne l'ai plus utilisé ...

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
var
  HookKeyboardHandle: HHook = 0;
 
function HookKeyboardProc(Code: Integer; Msg: WPARAM; MouseHook: LPARAM): LRESULT; stdcall;
begin
  FrmTestDivers.MemoHook.Text := FrmTestDivers.MemoHook.Text + IntToStr(Msg);
  Result := 1; // Transmission du Message
end;
 
procedure TFrmTestDivers.BtnHookStartClick(Sender: TObject);
begin
  HookKeyboardHandle := SetWindowsHookEx(WH_KEYBOARD, HookKeyboardProc, HInstance, 0);
end;
 
procedure TFrmTestDivers.BtnHookStopClick(Sender: TObject);
begin
  if HookKeyboardHandle <> 0 then
    UnhookWindowsHookEx(HookKeyboardHandle);
  HookKeyboardHandle := 0;
end;

[Gilbert Geyer]

Utilises par exemple sous Delphi :
- une lucarne de saisie du type TRIchEdit dans laquelle tu pourras taper ton texte au clavier,
- et un bouton avec Button1.caption:='Sauver frappe sur disque".

et tu crées la routine suivante :

Code :

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

1
2
3
4
5
6
 
procédure Form1.Button1Click(sender ...);
var          RepAppli := string; 
begin       RepAppli:=ExtractFilePath(Application.ExeName); // pour caser ton fichier dans le même dossier que ton .exe
              RichEdit1.lines.SaveToFile(RepAppli+'MaSaisie.txt); // et c'est sauvé.
end;

tu pourrais aussi utiliser une lucarne de saisie du type TMemo, mais laisse tomber car seulement avec un TRIchEdit tu peux faire RichEdit1.Print et ça t'imprime le contenu de la lucarne sur l'imprimante ... si elle est prête.
Par contre pour un Mac. Mystère et boule de gomme.
A+

[aityahia]

vous voullez récupérer les évenment du clavier meme si ton application ne détien t pas le focus.

[Ludo_360]

vous voullez récupérer les évenment du clavier meme si ton application ne détien t pas le focus.

Si la form de l'application contient un edit et un bouton, l'utilisateur écrit dans le edit et l'application détient le focus, non?

[ShaiLeTroll]

Si la form de l'application contient un edit et un bouton, l'utilisateur écrit dans le edit et l'application détient le focus, non?

UnSofteuxAmateur n'a jamais parlé de Edit et de Bouton, c'est Gilbert Geyer qui introduit cette notion ...

En fait, si c'est juste Faire une sorte de NotePad, comme le suggère Gilbert Geyer, je pense qu'il l'aurait précisé, et cela n'aurait pas mérité une question, tu as sur le CD de Delphi, un Exemple pour faire un Editeur de Texte (je m'en rapelle, j'ai fait les exemples fournis dans le bouquin fourni dans le pack pro de D4)

Et souvent, c'est le côté Sniffer qui est le thème récurent lorsque l'on parle de ' recupérer tout les caractere saisi au clavier ' ...

[UnSofteuxAmateur]

ben il n'y a pas d'edit ni de bouton....il s'agit d'un espion...

[ShaiLeTroll]

Donc, je confirme cherche au tour de KeyBoard Hook

[Gilbert Geyer]

Autant pour moi!

Comme UnSofteuxAmateur a précisé par écrit :
Je travaille sous delphi (et je debute)...

... en conséquence de quoi j'ai pris sa question comme celle d'un vrai débutant qui débute!