Как же получить код ошибки последней дисковой операци

[Troublemaker]

Вызываю CreateDir(чего-нибудь).

Код: Выделить всё

function CreateDir(
  const NewDir: String
):Boolean;

Она возвращает только "угу" или "ни фига", без каких-либо объяснений. А как же узнать, почему именно "ни фига"? ErrorCode всегда равен нулю, а мне надо объяснить пользователю, почему он не может сохранить файл под таким-то именем...

[SAK]

CreateDir сама сбрасывает признак ошибки, поэтому узнать причину уже невозможно.
Надо использовать MkDir

Код: Выделить всё

{$I-}
MkDir('g:\xxx');
{$I+}
ShowMessage(IntToStr(IoResult));

[Troublemaker]

Спасибо, помогло.