Discussion :

[Charly910]

Bonjour,

pour attendre la fin d'exécution d'un processus, j'utilise cette fonction de la FAQ :

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
{ ======================================================================== }
procedure ExecAndWait(CommandLine : String);
// Execute et attend la fin de l'exécution de commandLine
// Exemple : CommandLine := '"Notepad.exe" "C:\temp\essai.txt"';
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
//  CommandLine: {$IFDEF UNICODE}WideString{$ELSE}string{$ENDIF};
begin
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
  StartupInfo.cb := SizeOf(StartupInfo);
  if CreateProcess(nil, PChar(CommandLine), nil, nil, FALSE, 0, nil, nil, StartupInfo, ProcessInfo) then
  begin
    repeat
      Application.ProcessMessages;
    until WaitForSingleObject(ProcessInfo.hProcess, 200) <> WAIT_TIMEOUT;
 
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
 
//    ShowMessage('Terminé');
  end
  else RaiseLastOSError;
end;
{ ======================================================================== }

ça fonctionne bien avec Notepad ou un autre programme tel que PaintShopPro, mais si je veux ouvrir une image jpeg avec la visionneuse de Windows :

Code :

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

1
2
      CommandLine := '"explorer.exe" "'+FichierImage+'"';    //  Fonctionne mais n'attend pas la fin avec explorer ...
      ExecAndWait(CommandLine) ;

l'image s'ouvre bien dans la visionneuse, mais l'exécution de mon programme continue et n'attend pas la fermeture de la visionneuse.

Est ce possible de le faire ?

A+
Charly

[ShaiLeTroll]

C'est que la visionneuse ce n'est pas Explorer.exe qui n'est que le Bridge temporaire entre ton programme, le shell et la visionneuse

la visionneuse est disponible par un RunDll32 sur %SystemRoot%\system32\shimgvw.dll,ImageView_Fullscreen mais cela ne doit pas être bloquant non plus, a voir comment RunDll32 réagi, attend-il la fin de la fonction ?

[Charly910]

Merci ShaiLeTroll,

j'ai essayé :

Code :

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

1
2
3
      CommandLine := '"C:\Windows\system32\RunDll32" "C:\Windows\system32\shimgvw.dll,ImageView_Fullscreen '+FicSelec+'"';   // ne s'ouvre pas
      // ou
      CommandLine := '"C:\Windows\system32\RunDll32 C:\Windows\system32\shimgvw.dll,ImageView_Fullscreen" "'+FicSelec+'"';   // Erreur system code 2 fichier

Mais ça ne marche pas ?

j'ai aussi essayé avec C:\Windows\SysWOW64

A+
Charly

[Charly910]

ça y est, j'ai trouvé. C'est :

Code :

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

      CommandLine := '"C:\Windows\system32\RunDll32" "C:\Windows\system32\shimgvw.dll",ImageView_Fullscreen '+FicSelec;

et mon programme attend bien la fin de RunDll pour continuer !

Merci Shai

A+
Charly

[cincap]

@ Charly910,

Avec Windows 10 nouvelle version, il utilise une application qui se nomme "Photo" et qui avec le temps remplacera la visionneuse de Windows.

Voici à toutes fin, la commande pour afficher cette application et à toi de voir si tu sais lui indiquer quelle s'ouvre avec un fichier spécifique, je n'ai pas cherché.

Code :

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

1
2
 
ShellExecute(Handle, 'OPEN', PChar('ms-photos:'), '', '', 1);

@+,

cincap

[Charly910]

Oui, merci, je sais bien, mais je n'aime pas du tout Photo qui en plus est très lent. Je préfère de loin la visionneuse de Windows

A+
Charly