L
liangzhang3942
Unregistered / Unconfirmed
GUEST, unregistred user!
如题:
Procedure WMQUERYENDSESSION(Var Msg: TMessage);message WM_QUERYENDSESSION;
...
implementation
..
procedure TMainForm.WMQUERYENDSESSION(var Msg: TMessage);
begin
winexec('yourprogram.exe');
MSg.Result := 1;
end;
以上的程序我试了,根本就不行,
Procedure WMQUERYENDSESSION(Var Msg: TMessage);message WM_QUERYENDSESSION;
...
implementation
..
procedure TMainForm.WMQUERYENDSESSION(var Msg: TMessage);
begin
winexec('yourprogram.exe');
MSg.Result := 1;
end;
以上的程序我试了,根本就不行,