精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>任务栏>>如何编程控制任务条可以自动隐藏?

主题:如何编程控制任务条可以自动隐藏?
发信人: zengxi()
整理人: teleme(2001-01-03 15:31:29), 站内信件
【 在 firefire (Lucky Sam) 的大作中提到: 】

procedure TMain.mnHideTaskClick(Sender: TObject); 
var wndHandle:thandle; 
wndClass:array[0..50] of char; 
begin 
   mnHidetask.Checked:=not mnhidetask.Checked; 
      StrPCopy(@wndClass[0], 'Shell_TrayWnd'); 
    wndHandle := FindWindow(@wndClass[0], nil); 
   if mnHidetask.Checked then 
   ShowWindow(wndHandle, SW_HIDE) 
   else 
   showWindow(wndHandle,Sw_Show); 
end; 



--
http://funstudio.yeah.net

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.157.149.1]

[关闭][返回]