uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Windows;
{$R *.res}
var
ExtendedStyle : Integer;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
//===========修改如下:
ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
//===============================================================