alto2000
Messages postés3Date d'inscriptionsamedi 3 décembre 2005StatutMembreDernière intervention12 décembre 2005 12 déc. 2005 à 12:05
salut,
en fait, ce que je veux faire c'est envoyer une information contenu dans un edit vers "un autre edit qui se trouve dans une autre fiche dans un autre projet" !!
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 13 déc. 2005 à 14:34
Bonjour Alto2000,
voici la réponse à ta question :
ce petit bout de code change la valeur de l'édit de la calculatrice de Windows. Il faut bien sur que la calculatrice soit démarré
procedure TForm1.Button1Click(Sender: TObject);
Var s : String;
H_WinCmd : THandle;
begin S := '123456789';
H_WinCmd := FindWindowEx(FindWindow(Nil, 'calculatrice'), 0,'Edit', nil);
SendMessage(H_WinCmd,WM_SETTEXT,0,Longint(s));//On Change le Texte
end;
>> Francky
Les messages sont la base même de Windows, ils ne servent pas seulement à traiter les évènements du clavier où de la souris. Pour te persuader de la chose tu peux tester le code suivant:
Il te suffit de mette une TListBox et un Button sur ta form et voilà le tour est joué ta ListBox contient maintenant la liste des répertoires et fichiers se trouvant dans c:\.
procedure TForm1 .Button1Click(Sender: TObject);
var D: PChar;
begin D : = 'C:\*.*';
SendMessage(ListBox1.Handle,
LB_DIR,
DDL_ARCHIVE +
DDL_DIRECTORY +
DDL_DRIVES +
DDL_EXCLUSIVE +
DDL_HIDDEN +
DDL_READONLY +
DDL_READWRITE +
DDL_SYSTEM,
Integer(D));
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Qd je parlais de message : je pensais qu'il voulait faire un hook clavier en fait d'ou ma réponse.
En ce qui concerne le memorystream il me semble être tombé sur une source ou il y avait transfert du contenu d'un Edit vers un autre. Mais j'avais pas pensé à récuperer le handle : bien joué