Dzięki, ale mam jeszcze pytanko.
- Punkt idzie świetnie i tworzy plik INI z nazwą formy w środku
Drugi punkt nie wiem czy dobrze wkleiłem, bo po uruchomieniu programu, nadal MainForm jest Form5
program Project1;
uses
Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6};
{$R *.res}
procedure SetAsMainForm(aForm:TForm);
var
P:Pointer;
begin
P := @Application.Mainform;
Pointer(P^) := aForm;
end;
var
f:TextFile;
ini:string;
mf:string;
begin
Application.Initialize;
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm6, Form6);
mf:='';
ini:=ChangeFileExt(ParamStr(0),'ini');
if FileExists(ini) then
begin
AssignFile(f,ini);
Reset(f);
ReadLn(f,mf);
CloseFile(f);
if mf='Form6' then SetAsMainForm(Form6);
if mf='Form5' then SetAsMainForm(Form5);
end;
Application.Run;
end.