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

← →
Pearled © (2007-05-17 10:09) [0]

Не получается получить информацию о расшаренном ресурсе..
Вот код:

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 практически не работал раньше.. поэтому возможно код криво написан...

← →
clickmaker © (2007-05-17 10:41) [1]

PShareInfo2 как описано?

← →
clickmaker © (2007-05-17 10:48) [2]

а, впрочем

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

← →
Pearled © (2007-05-17 11:29) [3]

Офигеть! Работает!
Большое спасибо!

← →
Buckster_oka (2007-06-11 23:49) [4]

Удалено модератором

← →
Buckster_nsy (2007-06-11 23:49) [5]

Удалено модератором

← →
имя (2007-06-17 15:47) [6]

Удалено модератором

← →
имя (2007-06-17 15:48) [7]

Удалено модератором

← →
имя (2007-06-17 15:48) [8]

Удалено модератором

← →
имя (2007-06-17 15:48) [9]

Удалено модератором

Помогите с NetShareGetInfo() Найти похожие ветки