p00401.dpr

来自「Delphi编程五大妙招源程序」· DPR 代码 · 共 31 行

program P00401;

uses
  Forms,
  U00401 in 'U00401.pas' {Form1},
  Windows;

{$R *.RES}

var
ExtendedStyle : Integer;

begin
  Application.Initialize;

  ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
                AND NOT WS_EX_APPWINDOW);

  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.


begin