[delphi 5]pb o shutdown du pc

pb o shutdown du pc [delphi 5] - Programmation

Marsh Posté le 01-02-2002 à 11:50:02    

petit pb sur une appli delphi 5 :
 
au shutdown du pc l'application ne ce kill pas ce ki entraine le 'non arret' de windows.
l'application n'a pas l'air d'intercepter le message de fermeture.
y'a t'il la possibilité de forcer cela?
 
edit : l'application est invisible

 

[edtdd]--Message édité par WaM--[/edtdd]


---------------
Daïlaïte Da Discussions
Reply

Marsh Posté le 01-02-2002 à 11:50:02   

Reply

Marsh Posté le 01-02-2002 à 13:57:25    

e bein up


---------------
Daïlaïte Da Discussions
Reply

Marsh Posté le 01-02-2002 à 16:35:51    

Salut,
 
J'avais le même problème, et j'ai trouvé comment intercépter le message de fermeture de win. Je me suis même amusé à envoyer une messagebox qui demandait si on voulait réellement fermer windows lol. Mais je ne l'ai pas sous la main, en tout cas je vais essayer de le poster le + vite possible.
 
@++


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 01-02-2002 à 16:39:34    

juju_le_barbare a écrit a écrit :

Salut,
 
J'avais le même problème, et j'ai trouvé comment intercépter le message de fermeture de win. Je me suis même amusé à envoyer une messagebox qui demandait si on voulait réellement fermer windows lol. Mais je ne l'ai pas sous la main, en tout cas je vais essayer de le poster le + vite possible.
 
@++  



oki!
marci bcp!
j'espere ke tu vas retrouver ça!
j'arriiiiveeee poooo :cry:


---------------
Daïlaïte Da Discussions
Reply

Marsh Posté le 01-02-2002 à 17:06:26    

Salut,
 
J'ai retrouvé en charchant sur le site http://www.phidels.com...
 

Code :
  1. unit Unit1;
  2. //Michel.bardou@wanadoo.fr
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.   private                                                         
  13.       // déclaration de la procédure qui interceptera les messages que windows
  14.       // envoie lorsqu'il veut se fermer à savoir WM_QUERYENDSESSION
  15.       // voir tutorial message.
  16.       procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
  17.   public
  18.     { Déclarations publiques}
  19.   end;
  21. var
  22.   Form1: TForm1;
  24. implementation
  26. {$R *.DFM}
  29. procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
  30. begin
  31.   inherited;
  32.   if messagedlg('confirmation de la fermeture de Windows', mtConfirmation, [mbYes, mbNo], 0) <>mryes
  33.   then Message.Result:=0; // on demande à Windows de ne pas se fermer.
  35. end;
  37. end.


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 01-02-2002 à 17:33:43    

juju_le_barbare a écrit a écrit :

Salut,
 
J'ai retrouvé en charchant sur le site http://www.phidels.com...
 

Code :
  1. unit Unit1;
  2. //Michel.bardou@wanadoo.fr
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.   private                                                         
  13.       // déclaration de la procédure qui interceptera les messages que windows
  14.       // envoie lorsqu'il veut se fermer à savoir WM_QUERYENDSESSION
  15.       // voir tutorial message.
  16.       procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
  17.   public
  18.     { Déclarations publiques}
  19.   end;
  21. var
  22.   Form1: TForm1;
  24. implementation
  26. {$R *.DFM}
  29. procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
  30. begin
  31.   inherited;
  32.   if messagedlg('confirmation de la fermeture de Windows', mtConfirmation, [mbYes, mbNo], 0) <>mryes
  33.   then Message.Result:=0; // on demande à Windows de ne pas se fermer.
  35. end;
  37. end.

 



merci bcp pr ton aide !
j'ai tjrs le meme pb :/
@+


---------------
Daïlaïte Da Discussions
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed