Hallo,
ich möchte beim Start meines Programmes checken, ob eine Registrierung vorhanden ist.
Sollte diese nicht vorhanden sein, soll sich die TForm öffnen, in dem man den Registriercode eingeben kann.
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
WindowState := wsMaximized;
strStartVerzeichnis := GetCurrentDir; //übergibt das Startverzeichnis;
if NOT (FileExists('C:\Reg.file')) then
begin
FormRegistrierung.Show;
end;
end;
Ich bekomme beim Start aber immer die Meldung "Zugriffsverletzung bei Adresse..."
Wenn das Programm einmal gestartet ist, dann kann ich ohne Weiteres auf FormRegistrierung.Show; zugreifen, also öffnet sich ohne Probleme.
Warum geht das beim Start-Up des Programms nicht bzw. warum kann ich keine zweite Form beim Start öffnen?
Vielen Dank
Gregor