Discussion :

[[Silk]]

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é
Je me suis inspiré du code dans la FAQ de nono40

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
 
 
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;

[anapurna]

salut


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

@+ Phil

[[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. j'ai ensuite éssayé d'utiliser

Code :

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

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

[[Silk]]

pour la fermeture me suis trompé c'est normal que sa se ferme pas

[[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
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 )

[anapurna]

salut

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

Code :

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

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

@+ Phil

[[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...