Discussion :

[chtiot]

Bonjour,


J'ai un programme qui surveille l'impression sur une imprimante particulière pour prévisualiser l'impression et, sur demande, l'imprimer ou l'envoyer par fax.

Tout fonctionne parfaitement sauf que si je lance l'impression, j'obtiens un message du spouleur 'Impression en cours' qui bloque mon appli jusqu'à ce que je clique sur le bouton Ok, et là tout continue normalement.

Je me suis aperçu qu'en mettant un showmessage juste après la prévisu et donc juste avant l'impression, je n'obtenais pas ce message !!!

Je voudrai donc intercepter le message et continuer le traitement normalement.

J'ai essayé avec le code suivant mais apparemment l'interception ne se fait pas et le message s'affiche toujours.

Merci pour votre aide.

Code :

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

1
2
3
4
procedure TFrmClient.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
begin
  msg.Result := 0;
end;

[ShaiLeTroll]

as-tu pensé aux Threads qui ne serait pas bloqué par le showmessage ? avec ce genre de code, tu peux fermer une fenêtre indésirable de ton appli

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
procedure TFrmShow.SilentMsgBox();
var
   lpClassName: PChar; // pointer to class name
   lpWindowName: PChar; // pointer to window name
   HwndParent: HWND;
const
   MsIE = 'Microsoft Internet Explorer';
begin
   try
      lpClassName := nil; //'#32770';, // pointer to class name
      lpWindowName := MsIE; // pointer to window name
      {Récupère le handle de la boite de dialogue}
      HwndParent := FindWindow(lpClassName, lpWindowName);
      if HwndParent <> 0 then begin
         SendMessage(HwndParent, WM_CLOSE, 0, 0);
         FichierLog('System', 'MessageBox', MsIE);
      end;      
   except
      FichierLog('System', 'Except', Exception(ExceptObject()).Message);
   end;
end;

[chtiot]

j'y ai effectivement pensé mais celà ne résoud pas mon problème.

la solution que tu me proposes est un pis aller mais pourra peut-être me dépanner.

En fait je voudrais juste ne pas avoir cette exception qui me semble injustifiée (à quoi peut bien servir une exception qui indique que l'impression est en cours ? y-a-t'il biern matière à exception ?)

Merci

[chtiot]

je viens d'essayer cette solution mais ça ne fonctionne pas car la fenêtre avec le message porte le même nom que l'application et c'est donc l'application qui est fermée.

Quelqu'un aurait-il une autre solution?