Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.008 c
15-1196672711
Kerk
2007-12-03 12:05
2008.01.06
Одно и то же в разных источниках


9-1161888652
Pa5ha
2006-10-26 22:50
2008.01.06
Физика самолета


2-1197369129
Washington
2007-12-11 13:32
2008.01.06
WinAPI - закрашивание круглой кнопки


6-1177360433
Sergey M.
2007-04-24 00:33
2008.01.06
Delphi&Cgi


2-1197227587
alikon1
2007-12-09 22:13
2008.01.06
Удаление записей в связанных таблицах