程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi如何使程序不在系統任務條上出現

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

編輯: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. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved