在WIN2000与98中创建共享文件夹

  var

  Win95_NetUserGetInfo: TWin95_NetUserGetInfo;
  Win95_NetWkstaUserGetInfo: TWin95_NetWkstaUserGetInfo;
  Win95_NetApiBufferFree: TWin95_NetApiBufferFree;

  WinNT_NetWkstaGetInfo: TWinNT_NetWkstaGetInfo;
  WinNT_NetApiBufferFree: TWinNT_NetApiBufferFree;

  WSNT: ^WKSTA_INFO_100;
  WS95: ^WKSTA_USER_INFO_1;

  EC: DWord;
  hNETAPI: THandle;
  begin
  try

  Result := '';

  if IsWinNT then
  begin
  hNETAPI := LoadLibrary('NETAPI32.DLL');
  if hNETAPI <> 0 then
  begin @WinNT_NetWkstaGetInfo := GetProcAddress(hNETAPI, 'NetWkstaGetInfo');
  @WinNT_NetApiBufferFree := GetProcAddress(hNETAPI, 'NetApiBufferFree');

  EC := WinNT_NetWkstaGetInfo(nil, 100, Pointer(WSNT));
  if EC = 0 then
  begin
  Result := WideCharToString(WSNT^.wki100_langroup);
  WinNT_NetApiBufferFree(Pointer(WSNT));
  end;
  end;
  end
  else
  begin
  hNETAPI := LoadLibrary('RADMIN32.DLL');
  if hNETAPI <> 0 then

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页