如何利用程序,在系统正常关机之前能保存信息.(200分)

如题,谢谢.

没办法除非你及时储存

Windows在关机的时候会想所有顶层窗口广播一个消息WM_QUERYENDSESSION，
其lParam参数可以区分是关机还是注销用户(注销用户时lParam是ENDSESSION_LOGOFF)。
你只要处理这个消息就可以了

to tseug:
我已试过,可不行是.Delhi默认有个顶级窗口被隐藏.如果能找到被隐藏的窗口应该可以.
请帮忙,谢谢.

其实很简单，当用户关闭WIN9X时
系统会发送给各应用程序一个消息wm_queryendsession
告诉各应用程序要关机了.如果反馈回来的消息值为0,
那么WIN9X就不能关机。因此，截获wm_queryendsession,我们就可以在关闭windows前做我们
需要做的工作.等我们做完工作后.再用程序来把windows关闭了.就可以达到你所想要达到的
目的了.
下面我给你写个例子.你好好看看:
unitUnit1;
interface
uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,Dialogs,
StdCtrls;
type
TForm1=class(TForm)
private
{Privatedeclarations}
//声明拦截WM_QueryEndSession消息的过程
procedure WMQueryEndSession(varMsg:TMessage);
message WM_QueryEndSession;
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.DFM}
procedure TForm1.WMQueryEndSession
(varMsg:TMessage);
begin
Msg.Result:=0;//如收到关机消息.就首先禁止它关闭.
//然后在这一行你就可以做你在关机前做的工作.如保存数据等.如:ibtalbe.post;
Msg.result:=1;//在你做完保存数据工作后.就让windows可以关闭了.
//然后这一行中.你就可以用你的程序来关闭计算机了.语句:exitwindows(1,0);
end;
end.


呵呵.大功告成了吧?注意以上代码有些句子之间要加分号(这个不用我说吧.时间紧.没注意
那么多了,不好意思.分快拿来啊.呵

原理一样，以下是VB的例子:


57. 在关机或Logff前讯息的拦截
如果我们关机或Logoff时,我们的程式有时会因而无法按正常程序结束,一般我们会在Form的Unload中一段程式结束时要做什麽事,但是,如果使用者直接用开始功能表的关机,会使UnLoad的部份没有做到,我们现在就想办法来拦截关机(或Logoff)时的讯息。
一般来说,关机或Logff後,Windows会传依序送出WM_QUERYENDSESSION的讯息给每个Process,如果中间有一个Process不能顺利结束(例如：Word修改後未存档,而出现是否存档,但我们按取消),这时该讯息执行的结果会传回False(0),这时Windows也就不再继续送WM_QUERYENDSESSION给下一个Proccess。反之,如果所有的Process都可以顺利结束(也就是每个送出的WM_QUERYENDSESSION都传回True),那才代表可以顺利结束。
不管WM_QUERYENDSESSION最後的结果是可以顺利结束或不能顺利结束,Windows会再送一个WM_ENDSESSION的讯息给所有的Process,而wParam的内容便是指出是否可以顺利结束(True表可以,False表不行,在vb中则Check wParam = 0 表False ,<> 0表True)
,说到这里大概就知道该如何做啦,程式如下：
'以下在Form
Private Sub Form_Load()
Dim ret As Long
'记录原本的Window Procedure的位址
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
'设定form的window Procedure到wndproc
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
'取消Message的截取,而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
'这里只是要看看用关机的方式结束程式时,会不会执行到这里
Dim fno As Long
fno = FreeFile
Open "c:/tt2" For Append As fno
Print #fno, "ccc" + vbCrLf
Close #fno
End Sub

'以下在.Bas
Option Explicit
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const GWL_WNDPROC = (-4)
Public Const WM_ENDSESSION = &H16
Public Const WM_QUERYENDSESSION = &H11

Public preWinProc As Long

Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_QUERYENDSESSION Then
Debug.Print "QryEnd", wParam, lParam
Else
If Msg = WM_ENDSESSION Then
If wParam <> 0 Then
'代表将顺利关机或LogOff,这时便得做正常结束程式的动作
Dim fno As Long
Open "c:/ttt" For Output As #1
Print #1, "hahcccc5"
Close #1
End If
End If
End If
'将之送往原来的Window Procedure
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

UP

to ch_yahuu
我用的是win2000,你有办法吗?

原理是一样的.可是我手上没winapi函数资料.．大哥您自己查一下.可以吗?

真是不好意思.对不起了,.呵呵.

ch_yahuu的方法我已试过,不知为何保存不了.请各位大侠帮忙

你试试这样行不行?

procedure TForm.FormCloseQuery(Sender:TObject;var CanClose:Boolean);
begin
CanClose:=False;
//这一行保存数据.如ibtable1.post;
canclose:=true;//加上这一行.才行执行你下一句话的关机.
//这一行关闭windows.如exitwindowsex(1,0);
end;

CanClose为False时，就禁止关闭Windows ;
注意你可能需要在确定保存了数据的情况下.才exitwindowsex('1,0');最好用程序测试一下.



　

拦截wm_closequery消息啊。

上面的人说的都很清楚了

没招了，及时保存就可以。

{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.DFM}
procedure TForm1.WMQueryEndSession
(varMsg:TMessage);
begin
Msg.Result:=0;//如收到关机消息.就首先禁止它关闭.
//然后在这一行你就可以做你在关机前做的工作.如保存数据等.如:ibtalbe.post;
Msg.result:=1;//在你做完保存数据工作后.就让windows可以关闭了.
//然后这一行中.你就可以用你的程序来关闭计算机了.语句:exitwindows(1,0);
end;
end.
可以的！

多人接受答案了。