Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с NetShareGetInfo()

Pearled © (2007-05-17 10:09:00)
Не получается получить информацию о расшаренном ресурсе..
Вот код:

Function NetShareGetInfo(const pszServer: PWideChar; const pszNetName: PWideChar; sLevel: DWORD; var pbBuffer: Pointer): DWORD; stdcall; External 'netapi32.dll' name 'NetShareGetInfo'; Function GetShareInfo(ComputerNetName,ResourceNetName:String): string ; Var PBuffer: PShareInfo2;//указатель на буфер Res:Integer; s,p: PWideChar; Begin result:= ''; ResourceNetName:= 'CORBA'; GetMem(s, length(ResourceNetName)*2); StringToWideChar(ResourceNetName, s, length(ResourceNetName)); res:= NetShareGetInfo(nil,s,2,Pointer(PBuffer)); // Здесь возвращает код 87 If Res = 0 Then Result:= WideCharToString(PBuffer^.shi2_path); end;

С WinAPI практически не работал раньше.. поэтому возможно код криво написан...

(2007-06-17 15:48:00) [1]
Удалено модератором

(2007-06-17 15:48:00) [2]
Удалено модератором

(2007-06-17 15:48:00) [3]
Удалено модератором

(2007-06-17 15:47:00) [4]
Удалено модератором

Buckster_oka (2007-06-11 23:49:00) [5]
Удалено модератором

Buckster_nsy (2007-06-11 23:49:00) [6]
Удалено модератором

Pearled (2007-05-17 11:29:00) [7]
Офигеть! Работает!
Большое спасибо!

clickmaker (2007-05-17 10:48:00) [8]
а, впрочем

nLen := length(ResourceNetName) * 2 + 1;
GetMem(s, nLen);
StringToWideChar(ResourceNetName, s, nLen);

clickmaker (2007-05-17 10:41:00) [9]
PShareInfo2 как описано?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »