Получить сетевой путь к зашаренному файлу по локальному пути 2Delphi , Интернет и Сети , СетьПолучить сетевой путь к зашаренному файлу по локальному пути 2
Оформил: DeeCo function GetUNCName(const LocalPath: string): string; var BufferSize: DWord; DummyBuffer: Byte; Buffer: Pointer; Error: DWord; begin BufferSize := 1; WNetGetUniversalName(PChar(LocalPath), UNIVERSAL_NAME_INFO_LEVEL, @DummyBuffer, BufferSize); Buffer := AllocMem(BufferSize); try Error := WNetGetUniversalName(PChar(LocalPath), UNIVERSAL_NAME_INFO_LEVEL, Buffer, BufferSize); if Error <> NO_ERROR then begin SetLastError(Error); RaiseLastWin32Error; end; Result := PUniversalNameInfo(Buffer)^.lpUniversalName finally FreeMem(Buffer); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := GetUNCName('y:\xyz\') end; В статье описывается функция на языке Delphi, которая преобразует локальный путь к зашаренному файлу в сетевой путь (UNC-название) и пример ее использования в приложении. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |