Текущий архив: 2008.01.06;
Скачать: CL | DM;

Вниз

Помогите с 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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.01.06;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.013 c