hi, warum kommt da n Stream Fehler? Vor ner Woche ging das noch!
Delphi-Quellcode:
var
FileStream: TFileStream;
Pfad: AnsiString;
Pfad1: String;
begin
Pfad1 := GetEnvVarValue('AppData');
if Edit1.Text = Edit2.Text then begin
Pfad := pfad1 + '\LarsPasswordSaver.dat';
if FileExists(Pfad) then
begin
FileStream:= TFileStream.Create(Pfad, fmOpenRead);
try
FileStream.ReadComponent(Form3.ListView1);
finally
FileStream.Free;
end;
end;
Form3.Show;
Form13.Close;
Form3.Timer1.Enabled := true;
Form3.Timer2.Enabled := true;
end
else
ShowMessage('Das angegebene Passwort ist nicht korrekt!');
end;
das mit dem appdata verweist mit ner procedure auf die Anwendungseinstellungen!