如何使程序不出现在任务栏上！？(50分)

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #1

各位大虾，我使用了一个trayicon组件，在mainform的formclosequery事件里使用了
canclose：=false。这样在只有一个线程和一个窗体的时候在任务栏点击鼠标右键弹出
的popmenum中点击关闭就可以不关闭程序，只是最小化到icon，但是我的程序有好几个
线程，所以不管用，点击关闭的时候就关闭了整个程序而不是最小化到icon，请问
如何解决！？
或者干脆就不让程序出现在任务栏上，如何实现把程序不出现在任务栏上！？

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #2

在窗口创建时加入
showwindow(application.Handle,SW_HIDE);
工程文件如下
begin
; Application.Initialize;
; application.ShowMainForm :=false;//主窗口不显示
; Application.CreateForm(TForm1, Form1);
; Application.Run;
end.

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #3

showwindow(application.handle,sw_hide)

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #4

两位大虾，我按照你们的要求作了，可是不行，能不能做成像输入法选择那样，
任务栏里没有这个程序的标题

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #5

procedure TForm1.Button1Click(Sender: TObject);
var Owner : HWnd;
begin
; Owner:=GetWindow(Handle,GW_OWNER);
; ShowWindow(Owner,SW_HIDE);
end;

 

U

ufo!

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #6

在form1.oncreate事件中加入：
; stewindowlong(application.handle,GWL_EXSTYLE,WS_EX_ToolWindow);
任务栏上就没有这个标题了。

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #7

不行，我要求点击icon的时候显示程序窗体，但是在任务栏里不显示程序

 

鹦

鹦鹉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #8

thanks

 

D

DiamondKing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-02

• #9

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
; ; ShowWindow(application.Handle,0);
end;