program Project1;uses Windows,Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res} var dwExStyle:integer; begin //代码可以把程序的任务栏图标去掉 SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
在application.run语句之前写入:
application.showmainform:=false;
就可以了,给分吧
Windows,Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}
var
dwExStyle:integer;
begin
//代码可以把程序的任务栏图标去掉
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
或
form.hide;都可以。