Hallo,
also, das Erstellen der INI funzt, wie gewünscht. Nun setzte ich in das "OnCreate" Ereignis folgendes:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists(ExtractFilePath(ParamStr(0))+'ua44.ini') then
Form2.show//Login-Fenster
else
Form1.show;//Registrierungs-Fenster
end;
Nun kommt aber beim Start des Programmes (INI ist vorhanden) eine AccessViolation...
Zitat:
Project Project1.exe raised
exception class EAccessViolation with message '
Access Violation at adress 0044A49E in module
'Project1.exe'. Read of adress...
Der Code zum erstellen der INI sieht folgendermasßen aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ua44.ini');
try
Ini.WriteString('User','Name', Edit1.Text);
Ini.WriteString('Password','Password', Edit2.Text);
finally
FreeAndNil(Ini);
end;
Form3.showmodal;
end;
Die Form3 ist einfach nur ein Hinweisfenster, dass das Programm neu gestartet werden muss.
Bitte helft mir...