发信人: 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版 ▇
▇版副印(试用)▇
▇▇▇▇▇▇▇▇ |
|