ShellExecute avec attente de fin

Version imprimable

26/07/2022, 15h58
Papy214

ShellExecute avec attente de fin

Bonjour

Dans le logiciel d'un client, une impression est lancée basiquement avec un ShellExecute avec le verbe "print".
Il me demande une solution pour que l'impression soit bloquante dans Delphi avant de passer à la ligne de code suivante.
Je pense utiliser ShellExecuteEX avec le mask approprié suivi d'un WaitForSingleObject sur le handle du processus lancé.
Mais avant de me lancer, j'aimerais avoir votre avis.
D'abord, est-ce que c'est jouable, et en plus, est-ce que je vais chercher bien trop loin par oubli de chose plus simple ?
26/07/2022, 16h35
ShaiLeTroll

Il y a deux étapes dans une impression :
- la construction du document et l'ajout dans le spooler : bloquant pour un programme généralement
- l'impression à partir du Spool : Asynchrone, l'application à ce moment ne sait plus ce qui se passe (*)

Je te recommande d'utiliser un Thread, oui ça peut paraître paradoxal pour un truc bloquant mais avec WaitForSingleObject INFINITE, cela évitera que ton application soit en "Pas de Réponse"
tu gères dans le Main Thread un gestionnaire du OnTerminate du Thread secondaire pour masquer le popup de patience
Je ne te conseille pas de le faire en mode j'attends pour poursuivre, car si tu n'as jamais la fin, ton programme va bloquer pour une cause externe, tu pourras faire une boucle de WaitForSingleObject mais je ne sais pas trop si Handle de ShellExecuteEx le tolère bien.
Le popup de patience, j'inclurais un bouton "continuez sans attendre" au cas où.

Selon le logiciel, une approche OLE pourrait permettre un pilotage plus fin du "Print" comme sous Office ou Acrobat Reader.

(*) Surveiller le spool est possible mais disons que c'est plus extrême avec GetPrinter + GetPrinter (PPrinterInfo2) + GetJob (PJobInfo1) pour retrouver le job si l'on connaît son nom (facile en direct c'est Printer.Title bien plus dur à déterminer si l'impression est par un logiciel tiers)

J'ai aussi pensé à scruter l'état de l'imprimante mais trop comliqué pour ce que ça va servir.

C'est vrai que le thread sera mieux pour ne rien bloquer.
Sinon, je viens d'essayer vite et ça fonctionne.

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
 
var
  H   : THandle;
  Info: TShellExecuteInfoW;
  F: string;
begin
  if PromptForFileName(F) = False then
    Exit;
 
  FillChar(Info, SizeOf(Info), 0);
  Info.cbSize := SizeOf(Info);
  Info.fMask  := SEE_MASK_NOCLOSEPROCESS;
  Info.Wnd    := Application.Handle;
  Info.lpVerb := PChar('print');
  Info.lpFile := PChar(F);
  Info.nShow  := SW_SHOWNORMAL;
  if ShellExecuteEx(@Info) then
  begin
    if Info.hInstApp > 32 then
    begin
      WaitForSingleObject(Info.hProcess, INFINITE);
    end
    else
    begin
      Memo1.Lines.Add(Info.hProcess.ToString + ' (erreur)');
      ShowMessage('Erreur');
    end;
  end;
  ShowMessage('ok');

Il n'y a plus qu'à ajouter le thread et ça sera bon.

Merci