Hi,
ich habe ein ähnliches Problem... mit folgendem Code arbeite ich...
Delphi-Quellcode:
Procedure TFrmMain.Suchen();
Var
I, Posi: Integer;
Datei: File Of Byte;
Begin
For I := 1 To lstAllFiles.Items.Count - 1 Do
Begin
AssignFile(Datei, LstAllFiles.Items[I]);
Reset(Datei);
[...]
DateiSize.Add(IntToStr(FileSize(Datei)));
CloseFile(Datei);
End;
End;
Das funktioniert auch ganz gut, aber aber wenn die Datei schreibgeschützt ist, gibt es eine
Exception ("Zugriff verweigert"). Warum?! AssignFile setzt doch eh nur ReadOnly oder wie sehe ich das ?!
Beste Grüsse und frohe Ostern,
Ricane