如何用代码隐藏窗口

Question

我的delphi程序，想在　启动的时候，对注册表进行判断，如果存在需要的数据，就显示，否则就自动隐藏，我在onPaint里面加了这样一行代码，form1.visible:=false;
可是在启动的时候，窗口还是出现了，是一闪而过，然后就隐藏了，请问大家有办法办法，让窗口彻底隐藏，绝对不出现．

Answer 1

为什么要放在OnPaint内啊？

Answer 2

在工程文件中把Application.ShowMainForm := False加上

Answer 3

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := false;  //加上这行
  Application.Run;

Answer 4

Application.Initialize; 
    Application.CreateForm(TForm1,   Form1); 
    Application.ShowMainForm   :=   false;     //加上这行 
    Application.Run;
不行啊,我加上了这行:
Application.ShowMainForm   :=   false;     //加上这行可是也不行,还是不能隐藏啊.

Answer 5

设计时将窗体的Visible设置为False
判断后如果显示的话Show一下

Answer 6

在屏蔽创建工程文件，你是你要显示的文件，，，然后在程序判断是否显示，，from1.visible:=True;

Answer 7

新建一个单元文件：CheckReg.pas
里面放一个函数：function ChekcReg:Boolean;在工程文件里Uses CheckReg.pas然后：
program Project1;uses
  Forms,
  CheckReg,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  if CheckReg then
  begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
    Application.Terminate;
end.