[delphi 5]pb o shutdown du pc

Recherche :

Dernière réponse

Sujet : [delphi 5]pb o shutdown du pc

wam

juju_le_barbare a écrit a écrit :

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.

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

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

wam

juju_le_barbare a écrit a écrit :

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.

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

juju_le_barbare

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.

wam

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:

juju_le_barbare

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.

@++

wam

e bein up

wam

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]