显示(50分)

  • 主题发起人 主题发起人 dingzz
  • 开始时间 开始时间
D

dingzz

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样让自己的程序运行时不在状态条上
 
以前帖子上有,建议楼主先找找
 
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm :=false;
Application.Run;
end.
就是他了
Application.ShowMainForm :=false;
给分把
 
在你程序的主窗口的 OnCreate 中写一行:
procedure TForm1.FormCreate(Sender: TObject);
begin
[red]SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);[/red]
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
 
后退
顶部