Hallo, 2 Dinge fallen mir auf:
Zitat von
Black07:
if (FileGetAttr(squestverzeichnis4+'\'+squestdateiname4) and faReadOnly) >= 0
Das ergibt
IMHO wahr, denn da kann nur 0 (ergibt wahr) oder faReadOnly (ergibt auch wahr) bei herauskommen.
Zitat von
Black07:
FileSetAttr(squestverzeichnis4+'\'+squestdateiname4, FileGetAttr(squestverzeichnis4+'\'+squestdateiname4) xor faReadOnly);
Damit schaltest Du als Folgefehler das Attribut auf jeden Fall um. Was spricht dagegen, das so zu machen?
FileSetAttr(squestverzeichnis4+'\'+squestdateiname4,FileGetAttr(squestverzeichnis4+'\'+squestdateiname4) and not faReadOnly);