juju_le_barbare Vous fiez pas aux apparences ! | Salut,
J'ai retrouvé en charchant sur le site http://www.phidels.com...
Code :
- unit Unit1;
- //Michel.bardou@wanadoo.fr
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls;
- type
- TForm1 = class(TForm)
- Label1: TLabel;
- private
- // déclaration de la procédure qui interceptera les messages que windows
- // envoie lorsqu'il veut se fermer à savoir WM_QUERYENDSESSION
- // voir tutorial message.
- procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
- public
- { Déclarations publiques}
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.DFM}
- procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
- begin
- inherited;
- if messagedlg('confirmation de la fermeture de Windows', mtConfirmation, [mbYes, mbNo], 0) <>mryes
- then Message.Result:=0; // on demande à Windows de ne pas se fermer.
- end;
- end.
|
---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
|