폼을 안보이게 하기

먼저 작업표시줄에서 숨기기

 

program unit1;

uses
  Forms,
  Windows, //추가
  Unit1 in 'Unit1.pas' {Form1};

{$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.

 

procedure TForm1.FormCreate(Sender: TObject);
begin

ShowWindow(application.Handle, SW_HIDE);

end;

 

아래와 같이 창최소화하면 타이틀바때문에 보이게 되므로 최소화하지 않는다.

Form1.WindowState := wsMinimized;