第一次显示的窗体以后不在显示。

Question

就象许多软件一样，第一次运行提示注册，注册之后此窗体不在显示。以后运行直接进入主窗体。

Answer 1

标志放在注册表或ini文件中即可

Answer 2

通过写注册表可以但是如何读readstring()
我的edi1.text=readstring()总提示错误了。

Answer 3

program Project1;uses
  Forms,
  INIfiles,
  SysUtils,
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};var
  MyIni: TIniFile;
  MyStr: String;
{$R *.res}begin
  Application.Initialize;
  MyInI:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'UseApp.INI');
  Mystr:=MyInI.ReadString('Login','First','');
  if (Mystr = '') or (MyStr = '2') then
  begin
    //我只想使form2显示一次。
    //Application.CreateForm(Tform2, Form2);
    Application.CreateForm(Tform2, Form2);
    Form2:= TForm2.Create(Application);
    Form2.Show;
    MyIni.WriteString('Login','First','2');//我在form2的button事件中 MyIni.WriteString('Login','First','1')
  end
  else
  begin
    //Application.CreateForm(Tform3, Form3);
    Application.CreateForm(Tform3, Form3);
    Form3:= TForm3.Create(Application);
    Form3.Show;
  end;
  MyIni.Free;
  Application.Run;
end.
我今天试着用ini大家看看总调试不过去。

Answer 4

program Project1;uses
  Forms,
  INIfiles,
  SysUtils,
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};var
  MyIni: TIniFile;
  MyStr: String;
{$R *.res}begin
  Application.Initialize;
  MyInI:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'UseApp.INI');
  Mystr:=MyInI.ReadString('Login','First','');
  if (Mystr = '') or (MyStr = '2') then
  begin
    //我只想使form2显示一次。
    //Application.CreateForm(Tform2, Form2);
    Application.CreateForm(Tform2, Form2);
    Form2:= TForm2.Create(Application);
    Form2.Show;
    MyIni.WriteString('Login','First','2');
  //我在form2的button事件中再使 MyIni.WriteString('Login','First','1')
  end
  else
  begin
    //Application.CreateForm(Tform3, Form3);
    Application.CreateForm(Tform3, Form3);
    Form3:= TForm3.Create(Application);
    Form3.Show;
  end;
  MyIni.Free;
  Application.Run;
end.

Answer 5

interfaceuses
  IniFiles;

Answer 6

Application.CreateForm(Tform2, Form2);
和Form2:= TForm2.Create(Application);
好像重复了吧，你去调Form2:= TForm2.Create(Application);试试看

Answer 7

Application.CreateForm(Tform2, Form2);
和Form2:= TForm2.Create(Application);中任何一个留下都不好使。