project1.dpr

来自「这个是先生供奉」· DPR 代码 · 共 19 行

program Project1;

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

{$R *.res}
 var
  es:integer;
begin
  application.title:='';
  Application.Initialize;
 es:= GetWindowLong(Application.Handle, GWL_EXSTYLE);
 es:=es or WS_EX_TOOLWINDOW and not ws_ex_appwindow;
 SetWindowLong(Application.Handle, GWL_EXSTYLE, es);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.