精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:如何用DELPHI实现WIN98隐藏风格的应用程序窗体(如OICQ)

主题:Re:如何用DELPHI实现WIN98隐藏风格的应用程序窗体(如OICQ)
发信人: showskyws(示天)
整理人: teleme(2001-02-10 23:27:39), 站内信件
 作 者: riansign(飞来飞去) 2001-02-10 22:13:34 :0 :0    

如何做到这一点呢???谢谢指教  
//**************************************************** 

作 者: showskyws(示天) 2001-02-10 22:16:14 :0 :0    

    你的这个问题实际上就是不在任务栏上显示的问题。  
  一般Windows 98运行程序时都会在任务栏上出现按钮,如果你的程序是一个监视程序,那么出现按钮就不是明智之举了。要实现该功能就要在OnCreate事件里利用到API函数SetWindowLong  
procedure TForm1.FormCreate(sender:TObject);  
begin  
  SetWindowLong(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);  
end;  

//****************************************************
作 者: xiaorj(DrX) 2001-02-10 22:25:32 :0 :0    


procedure TForm1.FormShow(Sender: TObject); 
begin 
  ShowWindow(Application.Handle, SW_HIDE); //隐藏任务栏上的图标 
end; 
 
//************************************************** 
作 者: showskyws(示天) 2001-02-10 23:17:56 :0 :0    


procedure hideTaskbar; //隐藏 
var 
  wndHandle : THandle; 
  wndClass : array[0..50] of Char; 
begin 
  StrPCopy(@wndClass[0], 'Shell_TrayWnd'); 
  wndHandle := FindWindow(@wndClass[0], nil); 
  ShowWindow(wndHandle, SW_HIDE); 
End; 

procedure showTaskbar; 
var 
  wndHandle : THandle; 
  wndClass : array[0..50] of Char; 
begin 
  StrPCopy(@wndClass[0], 'Shell_TrayWnd'); 
  wndHandle := FindWindow(@wndClass[0], nil); 
  ShowWindow(wndHandle, SW_RESTORE); 
end;


----
我每天都在努力,因为每天都要进步!
沉迷网络,程序人生,这就是我!
欢迎光临我的个人主页:示天工作室 


▇▇▇▇▇▇▇▇
▇网易北京社区▇
▇  DELPHI版 ▇
▇版副印(试用)▇
▇▇▇▇▇▇▇▇

[关闭][返回]