Cacher une fenètre avec son handle

Version imprimable

salut,
j'ai bricolé un petit programme qui est "sensé" pour l'instant lancer une appli et ensuite la cacher ou la montrer (controlable avec un bouton) mais une fois que j'ai créé ma fiche elle ne se cache pas :? . Si cette question à déjà été posée plein de fois j'en suis désolé mais j'ai cherché partout et j'ai rien trouvé :cry:
Je me suis inspiré du code dans la FAQ de nono40

Code:

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
 
 
Options est un record et emplacement un de ses éléments de type string
 
procedure TMainForm.LaunchClick(Sender: TObject);
Var  StartInfo   : TStartupInfo;
     ProcessInfo : TProcessInformation;
     Fin         : Boolean;
begin
  { Mise à zéro de la structure StartInfo }
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  { Seule la taille est renseignée, toutes les autres options }
  { laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb     := SizeOf(StartInfo);
 
  { Lancement de la ligne de commande }
  If CreateProcess(Nil, PChar(Options.Emplacement) , Nil, Nil, False,
                0, Nil, Nil, StartInfo,ProcessInfo) Then
  Begin
     lblaunched.Caption := 'oui';
    { L'application est bien lancée, on va en attendre la fin }
    { ProcessInfo.hProcess contient le handle du process principal de l'application }
    Fin:=False;
    Repeat
      { On attend la fin de l'application }
      Case WaitForSingleObject(ProcessInfo.hProcess, 200)Of
        WAIT_OBJECT_0 :Fin:=True; { L'application est terminée, on sort }
        WAIT_TIMEOUT  :;          { elle n'est pas terminée, on continue d'attendre }
      End;
      { Mise à jour de la fenêtre pour que l'application ne paraisse pas bloquée. }
 
      If Hidded then ShowWindow(Processinfo.hThread, SW_HIDE)
      else ShowWindow(Processinfo.hThread, SW_SHOW);
 
      Application.ProcessMessages;
    Until Fin;
   lblaunched.Caption := 'non';
  End
  Else RaiseLastOSError;
end;

02/03/2006, 15h14
anapurna

salut

Recherche plutot l'handle de l'eelement fentrer plutot que le process

@+ Phil
02/03/2006, 18h27
[Silk]
le problème c'est qu'avec la fonction FindWindow il me faut le titre or c'est une fenêtre sans barre de titre. :roll: j'ai ensuite éssayé d'utiliser
Code:

1 2 3 4 5 var h : hwnd; h := GetForegroundWindow;
mais dès que j'essaye de cacher la fiche j'ai mon prog qui sa met à ralentir et la fermeture ne répond plus :?
02/03/2006, 18h42
[Silk]

pour la fermeture me suis trompé c'est normal que sa se ferme pas
02/03/2006, 18h52
[Silk]

Je viens d'essayer de la lancer en SW_HIDE sa fait rien puis j'ai essayer ShellExecute et pareil en SW_HIDE j'ai rien qui se passe :cry: :cry:
Sa ce pourrait que cette fiche soit protégée contre les réduction ou contre "l'invisibilité" ? (sa fait bizarre de dire sa comme sa :D )

salut

essai de modifier le dwFlags pour qu'il le prenne comme une fenetre
Code:

1 2 3 startinfo.cb := SizeOf(startinfo); startinfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; startinfo.wShowWindow := SW_HIDE;
@+ Phil

02/03/2006, 19h46
[Silk]

Re
j'ai essayé avec ce que tu ma dit mais l'appli refuse carrement de se lancer :? C'est super bizarre ce truc...
Si vous avez d'autres idées...