菜鸟写的可以使关闭程序就最小化的代码好使，但同时出现个问题，就是关不了机，请高手近来看看，就2句代码。(50分)

W

wanglong4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #1

用了如下代码，就可以让客户在关闭我的程序后，我的程序会最小化，（跟阿里巴巴的贸易通学的）但同时出现个问题，就是我点开始-》关机，操作系统不能正常关机了，关到我的程序时就停住了，高手告诉我怎么解决啊？？
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := false;
Application.Minimize;
end;

 

M

moshengren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #2

因为你的程序只是最小化了，而没有关掉的缘故吧？我想

 

S

skyccf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #3

捕捉系统的关机消息,自己处理下

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #4

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMQueryEndSession(var Msg: TMessage); message WM_QueryEndSession;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMQueryEndSession(var Msg: TMessage);
begin
Msg.Result := 1;
Application.Terminate;
end;

end.

 

S

skyccf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #5

关系消息：
procedure winexit(var msg:Tmessage);message WM_QUERYENDSESSION;

 

F

formality

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #6

直接Terminate程序不好吧，它是杀死你的进程，而不是安全退出哦。
在截获消息以后设置个全局变量
t:=true;
form1.close;
在FormCloseQuery里面判断
if t=true then
begin
//freeandnil你申请的内存/变量/线程
exit;
end;

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #7

to formality
本来就是系统关机消息，Terminate就行了。没必要考虑释放问题，Windows都关闭了，还有什么没释放的？

 

W

wanglong4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #8

接受答案了.