如何去掉任务栏中的窗口标题? 我想做一个程序,有界面,但在任务栏上没有任何显示,也不用托盘图标,该怎么实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Application.Initialize; Application.CreateForm(TForm1, Form1); SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); //增加的 Application.Run; 在FormCreate事件中写如下语句就可以了ShowWindow( Application.Handle, SW_HIDE );SetWindowLong( Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);ShowWindow( Application.Handle, SW_SHOW ); 把这句话放到创建窗体过程里procedure TForm1.FormCreate(Sender: TObject);beginSetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);end; 我试过了,可以的。你在uses里加windows就ok了 SetWindowLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); FastReport导出PDF时图像精度严重下降的问题 多语言版本 最近常常在C#版溜达,给C#版的友人来篇“友邦惊诧论”。 Delphi做三维方面的东东,真的不行吗? 询问tcpserver和tcpclient之间传送文件问题! 内存错误,报ntdll出现什么地址不可写的错误,是什么原因造成的呢 谁能帮我把这段程序打包一下?因为我没装Delphi! 关于TTreeview控件的问题。 DELPHI6下如何安装EmbeddedWb? 如何充填记录: 轮廓跟踪(分不够,再加)! 求助利用cr85vcl.exe结合Delphi6.0开发的Crystal报表的打包问题?
Application.Initialize;
Application.CreateForm(TForm1, Form1);
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); //增加的
Application.Run;
SetWindowLong( Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
ShowWindow( Application.Handle, SW_SHOW );
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;