Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.22.114.121] |
|
Сообщ.
#1
,
|
|
|
Имеется сетевой диск z: код, указанный ниже выдает ошибку 3, даже если программу запускаю от имени администратора, причем в ручную (например из total commander'а) папка создается без проблем
procedure TForm1.Button5Click(Sender: TObject); var destDir:string; b:boolean; f:textfile; err:cardinal; begin destDir:='z:\x_y'; b:=winapi.Windows.CreateDirectory(pchar(destDir),nil); err:= getlasterror; assignfile(f,'save.rep'); rewrite(f); writeln(f,destdir); closefile(f); if not b then begin messagebox(0, pchar('не удалось создать папку для архива '+inttostr(err)), 'Ошибка',0); end; end; есть подозрения, что ошибка в настройках системы, так как раньше этот код работал нормально, на других компьютерах и сейчас этот код работает нормально может кто-то сталкивался с такой проблемой? |
Сообщ.
#2
,
|
|
|
Решил задачу прямым указанием сетевой папки через \\имя_компьютера\имя_папки\ вместо указания сетевого диска. Похоже что windows где-то в кэше не так прописал имена сетевых дисков
|