关系控制系统关机问题?

Question

请问大家,在我一个应用没退出之前,怎样不让系统关机啊!

Answer 1

我的想法是：
  加个钩子 截获Windows关机消息 得到消息后再处理是否要关机具体的找找相关资料 应该能实现的

Answer 2

private 
  procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession; 
end; Implementation procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession); 
begin 
  if MessageDlg('Close Windows now/ Windows beenden?', 
                            mtConfirmation, 
                            [mbYes,mbNo], 0) = mrNo then 
      Msg.Result := 0 
   else 
      Msg.Result := 1; 
end; 

Answer 3

WIN98和WIN2K的不同，还要判断操作系统