Delphi如何使程序不在系统任务条上出现-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝29
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:219回复:0

Delphi如何使程序不在系统任务条上出现

楼主#
更多 发布于:2016-06-13 13:41



程序的初始化进程,即在窗体的FormCreate()事情中添加代码
。在程序设计阶段,用鼠标的左键双击窗体上的空白处,在屏鼠标就会弹出一个代码窗口,把光标移动到FormCreate()进程的
处理代码中,并且添加如下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
相机大百科 单反拍视频是趋势仍是搞笑win8怎样关机?教你4种win8关机办法
器材基础知识扫盲 全方位掀开焦距的奥秘菜鸟拍照进阶须知 怎么运用水平线构图
end;
在程序运转的前期,首要激活窗体FormCreate()进程中的代码,经过SetWindowLong
(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)这条语句就
能够实现从体系
使命条上
潜藏本程序的
功用 。
程序代码如下:
搞懂用光再拍照 不一样光效下的人像拍照Win7体系不一样的小功用汇总
电子商务网站成功的四大特点揭秘简略易学的长期曝光拍照窍门
unit Unit1;
interface
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);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;
end.
保存文件,
然后按F9键运转程序 。
程序的初始化进程,即在窗体的FormCreate()事情中添加代码
。在程序设计阶段,用鼠标的左键双击窗体上的空白处,在屏鼠标就会弹出一个代码窗口,把光标移动到FormCreate()进程的
处理代码中,并且添加如下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;
在程序运转的前期,首要激活窗体FormCreate()进程中的代码,经过SetWindowLong
(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)这条语句就
能够实现从体系
使命条上
潜藏本程序的
功用 。
程序代码如下:
unit Unit1;
interface
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);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;
end.
保存文件,
然后按F9键运转程序 。









优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频
优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客