IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Intercepter l'ajout d'une ligne dans un contrôle TRichEdit d'une autre fenêtre ?


Sujet :

Delphi

  1. #1
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut Intercepter l'ajout d'une ligne dans un contrôle TRichEdit d'une autre fenêtre ?
    Bonjour,

    Savez-vous comment faire pour intercepter l'ajout d'une ligne dans un contrôle de type TRichEdit d'un autre programme ?

    Merci,
    ZiP

  2. #2
    Membre émérite Avatar de edam
    Homme Profil pro
    Développeur Delphi/c++/Omnis
    Inscrit en
    Décembre 2003
    Messages
    1 894
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur Delphi/c++/Omnis
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2003
    Messages : 1 894
    Points : 2 771
    Points
    2 771
    Par défaut
    Citation Envoyé par [ZiP] Voir le message
    Bonjour,

    Savez-vous comment faire pour intercepter l'ajout d'une ligne dans un contrôle de type TRichEdit d'un autre programme ?

    Merci,
    ZiP
    il y a au moins 2:
    -on utilisant les message depuis la fenêtre contenant le richedit (voir sendmesage),
    -ou en créant un événement que nous lui affectant l'événement voulut du richedit
    PAS DE DESTIN, C'EST CE QUE NOUS FAISONS

  3. #3
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Bonsoir,

    Mes recherches m'orientent vers l'utilisation d'un hook via les API suivantes :
    - SetWindowsHookEx avec WH_GETMESSAGE
    - CallNextHook

    Qu'en pensez-vous ?

    Merci,
    ZiP

  4. #4
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    J'ai fais ça :

    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
     
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TMain = class(TForm)
        Memo1: TMemo;
        procedure FormDestroy(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Main: TMain;
      HookId: HHOOK;
     
    implementation
     
    {$R *.dfm}
     
    function HookGetMsgProc(nCode:Integer; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;
    begin
         if nCode = HC_ACTION then
         begin
     
         end;
         Result := CallNextHookEx(WH_GETMESSAGE, nCode, wParam, lParam);
    end;
     
    procedure TMain.FormCreate(Sender: TObject);
    begin
         HookId := SetWindowsHookEx(WH_GETMESSAGE, @HookGetMsgProc, HInstance, 0);
    end;
     
    procedure TMain.FormDestroy(Sender: TObject);
    begin
         UnhookWindowsHookEx(HookId);
    end;
     
    end.
    Le problème, c'est qu'il ne passe jamais dans ma fonction...

    ZiP

  5. #5
    Expert éminent sénior

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Points : 19 101
    Points
    19 101
    Par défaut
    C'est normal, pour qu'un hook fonctionne sur les autres applis il doit être dans une dll (cf msdn) sinon tu reçois seulement les messages de ton application.

    J'ai appliqué cette méthode sur un hook clavier que tu peux adapter sur un hook message. Le principe sera exactement le même.

    http://nono40.developpez.com/sources/source0007/

    Le plus chiant c'est ensuite de partager les infos avec l'appli.

    Attention que le code sur un hookmessage doit toujours passer la main ou hook suivant. Le code ne doit non plus être long, sinon et bien il te restera le bouton "stop" de ton PC.
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

  6. #6
    Membre averti
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Points : 381
    Points
    381
    Par défaut
    Merci pour cette précision !

    Je vais donc corriger en ce sens

    ZiP

  7. #7
    Membre chevronné
    Avatar de Droïde Système7
    Homme Profil pro
    Inscrit en
    Septembre 2003
    Messages
    2 262
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 2 262
    Points : 1 928
    Points
    1 928
    Par défaut
    Bonjour,

    Je serais curieux de savoir si cela ne fait pas réagir la protection du PC ?


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 07/04/2013, 23h56
  2. [TPW] Ajout d'une ligne dans un fichier texte après une position saisie
    Par far3as dans le forum Turbo Pascal
    Réponses: 1
    Dernier message: 19/12/2010, 11h27
  3. Recherche dans Grid et focus sur une ligne dans grid
    Par angelevil dans le forum Windows Forms
    Réponses: 1
    Dernier message: 29/05/2009, 00h37
  4. une action dans excel peut elle créer une ligne de code dans VBA?
    Par beebe dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 25/09/2008, 07h23
  5. Colorier une ligne dans un StringGrid et cacher une colonne
    Par Siguillaume dans le forum Langage
    Réponses: 8
    Dernier message: 02/07/2008, 20h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo