Bonjour

Je voudrais au niveau de ma procédure arrêter l'exécution de la succession des instructions en attendant la réception d'un message qui est envoyé par un DLL externe. Je vous donne un prototype de ce que je faire ci-dessous :

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
 
 procedure TForm1.test;
 begin
   procedure A; // Cette procédure appelle des fonctions d'une DLL. La fin de l’exécution de ces fonctions est indiquée par l'envoi d'un message WM_launch
   // Arrêt et attente de la réception du message
  procedure B; 
 end;
 
 procedure TForm1.DefaultHandler(var Message);
begin
  if TMessage(Message).Msg = WM_Launch then
  begin
    // Envoyer un signal indiquant la reprise de la procédure test
  end;
end;
J'ai vu qu'avec le TEvent on pouvait gérer la réception des événements et, d'après la doc, ça me paraît assez simple à mettre en place. Par contre, je suis pas sûr que ça soit la solution pour provoquer l’arrêt et l'attente de ma procédure test.

Pensez vous que ça soit la bonne solution ou est-ce que vous proposez une autre solution ?

Merci