Delphi編程使程序不在系統任務條上出現

本實例介紹如何使程序不在系統任務條上出現。

程序的初始化過程，即在窗體的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鍵運行程序，程序運行結果如圖1所示。

程序運行結果圖

本實例是演示如何使程序不在系統任務條上顯示，其實充分利用SetWindowLong函數的功能，還可以對設置程序的很多額外風格。