久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

2023信創(chuàng)獨角獸企業(yè)100強
全世界各行各業(yè)聯(lián)合起來,internet一定要實現(xiàn)!

實現(xiàn)禁止用戶關閉Window9X

2004-02-14 eNet&Ciweek

  ---在軟件的安裝或演示操作等過程中,如果關閉WIN9X會產(chǎn)生嚴重的后果,就必須禁止用戶關閉WIN9X,直到完成相應的操作,那么如何才能禁止用戶關閉WIN9X呢?其實很簡單,當用戶關閉WIN9X時,系統(tǒng)會發(fā)送給各應用程序一個消息wm_queryendsession,告訴各應用程序要關機了,如果反饋回來的消息值為0,那么WIN9X就不能關機。因此,截獲wm_queryendsession,并反饋回0,大功就告成了,下面是一個例子。

  ----在下面這個例子中,我們在窗體中加入一個復選框(CHECKBOX),如果用戶不選中它,則無法關閉WIN9X,如果選中它,才可以關閉。在實際應用中,用戶可首先設定一個布爾變量,當所需的作操都完成后,使其值變化,當程序檢測到這個變量的值變化后才允許關閉WIN9X。為方便大家使用,給出窗體的完整代碼(很短):   

  unitUnit1;  

  interface 

  uses

  Windows,Messages,SysUtils,

  Classes,Graphics,Controls,

  Forms,Dialogs,StdCtrls; 

  type

  TForm1=class(TForm)

  CheckBox1:TCheckBox;

  private

  {Privatedeclarations}

  //聲明攔截WM_QueryEndSession消息的過程

  procedureWMQueryEndSession(varMsg:TMessage);

  messageWM_QueryEndSession;

  public

  {Publicdeclarations}

  end; 

  var

  Form1:TForm1;  

  implementation 

  {$R*.DFM}

  procedureTForm1.WMQueryEndSession

  (varMsg:TMessage);

  begin

  ifCheckBox1.CheckedthenMsg.Result:=1

  elseMsg.Result:=0;

  end;

  end.  

  ----運行上面的程序,首先不要選中復選框,在WIN9X的“開始”菜單中選擇“關閉系統(tǒng)\關閉計算機或重新啟動計算機”,你將發(fā)現(xiàn)屏幕閃爍了一下又恢復了正常;將復選框選中,再關閉計算機,這下就可如愿了。

相關頻道: eNews

您對本文或本站有任何意見,請在下方提交,謝謝!

投稿信箱:tougao@enet16.com