熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

利用Delphi全面控制Windows任務欄[2]

2013-11-11 21:05:42  來源: Delphi編程 
    ()EnableOrDisable過程代碼如下

procedure TFormEnableOrDisable(Sender:TOBject);
begin
 GetHandles;
 if TCheckBox(Sender) Checked then
  case TCheckBox(Sender) Tag of
   : EnableWindow(Wnd[ False);
   : EnableWindow(Wnd[ False);
   : EnableWindow(Wnd[ False);
   : EnableWindow(Wnd[ False);
   : EnableWindow(Wnd[ False);
   end
 else
  case TCheckBox(Sender) Tag of
   : EnableWindow(Wnd[ True);
   : EnableWindow(Wnd[ True);
   : EnableWindow(Wnd[ True);
   : EnableWindow(Wnd[ True);
   : EnableWindow(Wnd[ True);
   end;
 end;
  ()HideOrShow過程代碼如下

procedure TFormHideOrShow(Sender:TObject);
begin
 GetHandles;
 if TCheckBox(Sender) Checked then
  case TCheckBox(Sender) Tag of
   : ShowWindow(Wnd[SWHIDE);
   : ShowWindow(Wnd[SWHIDE);
   : ShowWindow(Wnd[SWHIDE);
   : ShowWindow(Wnd[SWHIDE);
   : ShowWindow(Wnd[SWHIDE);
  end
 else
  case TCheckBox(Sender) Tag of
   : ShowWindow(Wnd[SWShow);
   : ShowWindow(Wnd[SWShow);
   : ShowWindow(Wnd[SWShow);
   : ShowWindow(Wnd[SWShow);
   : ShowWindow(Wnd[SWShow);
  end;
 end;
  ()FormClose事件代碼如下//將Windows任務欄恢復到正常狀態

procedure TFormFormClose(Sender:TObject; var Action: TCloseAction);
 var i:Integer;
 begin
  for i:= to do
  begin
   EnableWindow(Wnd[i]True);
   ShowWindow(Wnd[i]SWShow);
  end;
end;
  ()按F運行程序以上程序在Delphi/Windows/簡體中文版環境下調試通過

  ()說明本文所述方法同樣適用於VBVCBCC++Builder等編程工具但應注意語法 變量類型等不同要求

[]  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/8479.html
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.