怎么样随着电脑的关机而自动关闭一个EXE程序啊。。在先等待....(50分)

我写了一个记录开关机和上机时间的动动！

现在程序可以随系统的开机而启动但是怎么样随系统的关闭而关闭呢！？？

系统自己就会关闭的吧!你一关机了,你那程序还在运行?

我在ONCLOSE中写的程序
关闭这个程序的时候把时间写入一个文本中
正常关闭程序可以写入
但是关闭系统就不可以写入了

截取WM_QUERYENDSESSION 消息。

Delphi_VCL的方法

delphi_vcl的对

Faczxy
Delphi_VCL的方法
=========

可以说的详细点吗？？

同意delphi_vcl

不明白具体的含义，期待有大侠具体指点。

怎么样写呀！
各位帮帮忙啊！！

在form的OnCloseQuery事件中处理

unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure OnWindowsEixt(var Msg:TWMQUERYENDSESSION);message WM_QUERYENDSESSION;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnWindowsEixt(var Msg:TWMQUERYENDSESSION);
var
f:TextFile;
FileHandle:Integer;
begin
//将退出时间记录在C:/WindowsCloseTime.txt文件中
FileHandle := FileCreate('C:/WindowsCloseTime.txt');
FileClose(FileHandle);
AssignFile(f,'C:/WindowsCloseTime.txt');
Rewrite(f);
Write(f,TimeToStr(Now));
CloseFile(f);
//
Msg.Result := 1;
end;

end.