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

这个例子描述了如何使程序不出现在系统任务栏上。

程序的初始化过程，即在表单的FormCreate()事件中添加代码。在编程阶段，用鼠标左键双击表单上的空空白处，屏幕上会弹出一个代码窗口。将光标移动到FormCreate()进程的处理代码，并添加以下代码:

程序TForm1。FormCreate(发件人:to object)；
begin
SetWindowLong(应用程序。句柄，GWL_EXSTYLE，WS _ EX _ tool window)；
end；

程序运行之初，先激活FormCreate()进程中的代码，通过语句setwindowlong(application . handle，gwl _ exstyle，ws _ ex _ toolwindow)可以实现在系统任务栏隐藏这个程序的功能。

程序代码如下:

unit Unit1
界面
使用
窗口、消息、系统工具、变体、类、图形、控件、表单、
对话框；

type
t form 1 = class(t form)
过程form create(Sender:to object)；
私有
{私有声明}
公共
{公共声明}
end；

var
form 1:t form 1；
实现
{$R *。dfm}

程序TForm1。FormCreate(发件人:to object)；
begin
SetWindowLong(应用程序。句柄，GWL_EXSTYLE，WS _ EX _ tool window)；
end；
结束。