Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413621&view=findpost&p=3780353 Tue, 09 Oct 2018 06:49:44 +0000 В чем может быть ошибка CreateDirectory на сетевом диске? https://forum.sources.ru/index.php?showtopic=413621&view=findpost&p=3780353 СергА Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413621&view=findpost&p=3780276 Mon, 08 Oct 2018 03:12:31 +0000 В чем может быть ошибка CreateDirectory на сетевом диске? https://forum.sources.ru/index.php?showtopic=413621&view=findpost&p=3780276
    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;

есть подозрения, что ошибка в настройках системы, так как раньше этот код работал нормально, на других компьютерах и сейчас этот код работает нормально :wacko:
может кто-то сталкивался с такой проблемой?]]> СергА Delphi: Сетевое программирование