Проверьте переменную FileMode и сравните ее значение с приведенным ниже списком:
ConstfmReadOnly = $00;fmWriteOnly = $01;fmReadWrite = $02; fmDenyAll = $10;fmDenyWrite = $20;fmDenyRead = $30;fmDenyNone = $40; fmNoInherit = $80; |
Вы можете использовать их совместно, например так:
|
FileMode := fmReadWrite + fmDenyAll; |
или так:
FileMode := fmReadOnly + fmDenyNone; |
Успехов,
Dr. Bob (drbob@pi.net) [000723]