Hi,
ich steh mal wieder auf'em Schlauch.
Ich hab folgenden Code:
Delphi-Quellcode:
if FileExists(FDoc.FFilename) then
begin
lbPfad.Caption := 'Pfad: ' + FDoc.FFilename;
if FindFirst(FDoc.FFilename, faAnyFile, SR) = 0 then
begin
lbFileSize.Caption := ConvertBytes(SR.Size);
ShowMessage(IntToStr(SR.Attr)); // Das ist nur zum Test
end;
end;
Ich komme ja mit SR.Attr (SR ist ein TSearchRec) an die Dateiattribute dran. Z.B. kommt mal 32 raus. Was kann ich nun damit anfangen?
Ich hab 2 Checkboxen auf meiner Form. Einmal "Schreibgeschützt" und "Archiviert". Wie bekomme ich raus, welche Checkbox ich "checken" kann?
*MFG*
Manu
PS: Ich hoffe das kapiert einer.