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

    ()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