Получить сетевой путь к зашаренному файлу по локальному пути 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; Статья Получить сетевой путь к зашаренному файлу по локальному пути 2 раздела Интернет и Сети Сеть может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |