program Project1;
uses
Forms,windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
ExtendedStyle:integer;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
//在任务栏里隐藏
//在任务栏里隐藏也可以使用Application.title:=''
ExtendedStyle:=GetWindowLong(application.handle,GWL_EXSTYLE);
//把图标和标题隐藏
setWindowLong(application.handle,GWL_EXSTYLE,ExtendedStyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
Application.Run;
end.