Discussion :

[Ludo_360]

bonjour,

J'ai un soucis avec les messages windows...

Je souhaite éviter l'utilisation de timer qui me permettaient à une application1 de vérifier qu'une application2 était ouverte ou fermée. Je veux donc envoyer un message à la fermeture de mon application2 qui permmettra de lancer une procedure dans l'application1.
Seulement voilà, mon application1 est une application qui utilise déjà WndProc, et qui contient des composants que j'ai modifiés: ce sont eux qui doivent recevoir ce message windows, mais à l'execution il y a une erreur de handle.

Ma question est: Peut-on utiliser les messages windows avec un composant?

Voici le code correspondant:

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
 
[...]
uses
  [...], U_Mes_MonAppli;     // ici sont référencés les messages autres que ceux déjà prévus par windows
[...]
type
   TMonComposant= class(composant dérivé du memo)
[...]
protected
[...]
procedure WndProc(var Msg: TMessage); override;
[...]
implementation
[...]
constructor TMonComposant.Create(AOwner: TComponent);
begin
   inherited;
   WM_DisplayKeyboard:= RegisterWindowMessage('dispkeyboard');
end;
[...]
procedure TMonComposant.WndProc(var Msg: TMessage);
Begin
   If (Msg.Msg = WM_DisplayKeyboard) then doenter;
End;

merci

ludo

[ShaiLeTroll]

Qui va recevoir le Message ?
le SendMessage il est fait quel Handle ? la Form, le Memo, l'Application ???
comment obtiens-tu ce Handle (avec un FindWindow ?)

Qui lance l'application ?
si c'est APP1 qui lance APP2, avec un Thread qui fait un OpenProcess et un WaitForSingleObject, tu peux avoir l'information sur l'execution ...

[Ludo_360]

Jamais encore utilié les threads.. mais va falloir y penser puisque ça règle la pluparts des problèmes de ce genre apparemment.

En gros:
APP1 créé les composants de sa fiche
Si clique sur le composant en question APP2 est lancée.
Si APP2 fermée alors le composant de APP1 doit recevoir une info

ludo

[ShaiLeTroll]

Ouais exactement le bon cas !

Bon, pour le Thread, tu fais créé un thread via les menus, tu fais une class fonction CallAPP2 qui est construit le thread en suspend, renseigne le nom de l'exe, tu fais un Event, met FreeOnTerminate à True (voir ici pour l'event) et fait un resume
ton execute ressemble à ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function TAPP2Starter.Execute(): Boolean;
var
   StartupInfo: TStartupInfo;
   ProcessInfo: TProcessInformation;
begin
   GetStartupInfo(StartupInfo);
   Result := CreateProcess(PChar(FAPP2Name), nil, nil, nil, True, 0, nil, PChar(ExtractFileDir(FAPP2Name)), StartupInfo, ProcessInfo);
   if Result then
   begin
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
   end;
   Synchronize(DoEnd);
end;

[Ludo_360]

Lol oky bah comme ça je suis sur de le faire! merci, je vais quand même faire un tour à la faq voir les possiblités des thread et commencer par la base

ludo