Oh man... vielleicht sollte ich mit dem Programmieren aufhören, so unfähig wie ich kann man doch eigentlich garnicht sein!
Vielen dank, plötzlich läuft alles perfekt, genau wie ich es mir gedacht hatte xD
Delphi-Quellcode:
procedure Tfload.Load;
var
Regist: TRegistry;
begin
ProgBar_Load.Position := 60;
If ParamStr(1) = '' then
begin
ProgBar_Load.Position := 100;
Application.CreateForm(TfMain, fMain);
fLoad.Hide;
fMain.Show;
end
else if StrToInt(ParamStr(1)) > 0 then
begin
PasswordNumber := 'Password' + ParamStr(1);
PathNumber := 'Path' + ParamStr(1);
Regist := TRegistry.Create;
Regist.RootKey := HKEY_LOCAL_MACHINE;
Regist.OpenKeyReadOnly('SOFTWARE\FNAG Coorperation\FNAG Secret\1.0');
RPassword := Regist.ReadString(PasswordNumber);
Path := Regist.ReadString(PathNumber);
Regist.CloseKey;
Regist.Free;
ProgBar_Load.Position := 100;
Application.CreateForm(TfPW, fPW);
fLoad.Hide;
fPW.Show;
end;
end;
Ich Create die Formen jetzt einfach nur noch bei Bedarf, unnötig beide zu Createn aber nur eine zu brauchen, oder?
Nochmals danke!
