请各位有实之士抽空看看（没钱了）(0分)

  private
    procedure OnQueryEndSession(var msg:TMessage); message WM_QUERYENDSESSION;
    procedure OnEndSession(var msg:TMessage); message WM_ENDSESSION;

procedure TForm1.OnQueryEndSession(var msg:TMessage);
begin
  ShowMessage('OnQueryEndSession');
  //* allow termination
  msg.Result := integer(true);
end;

procedure TForm1.OnEndSession(var msg:TMessage);
begin
  //* test vote result
  if msg.WParam <> 0 then
  begin
    ShowMessage('OnEndSession--VoteResultIsTrue');
  end
  else begin
    ShowMessage('OnEndSession--VoteResultIsFalse');
  end;
  msg.Result := integer(true);
end;