程序运行时,如何使其不在任务栏显示,就像后台服务程序一样 敬请高手指教,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1280667请问Delphi中怎么样可以使不在任务拦内显示 new -> other ->service Application.Initialize; ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);//1 SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);//2 Application.CreateForm(TForm1, Form1); Application.Run;在你的工程unit 里面,对应的地方加入如上两条即可 先设置窗口最小化uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginshowwindow(application.Handle,sw_hide);setwindowlong(application.Handle,GWL_EXSTYLE,GETwindowLONG(application.Handle,GWL_exstyle) or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);end;end. 关于IdHttp的GET和POST问题,高手啊,大神啊,大虾啊!帮帮忙啊! 杭州或者萧山有没有公司需要delphi的星期天免费工作 不知是不是发现了fastreport 中的大bug ,大家见来看看哟 delphi5+win2000下自定义纸张的问题 。。。急等!!!(100分) 如何编写光盘自启动程序? 奇怪啊!!!关于日期查询,请进! 各位,下班后去哪儿呆着呢? Combobox的怪问题 序列号 击键: 求助:打印走纸问题.急!答对立即给分。 Delphi函数指针的使用
请问Delphi中怎么样可以使不在任务拦内显示
ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);//1
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);//2
Application.CreateForm(TForm1, Form1);
Application.Run;在你的工程unit 里面,对应的地方加入如上两条即可
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
showwindow(application.Handle,sw_hide);
setwindowlong(application.Handle,GWL_EXSTYLE,GETwindowLONG(application.Handle,GWL_exstyle) or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end;end.