function DeleteShareResource(ServerName: string; NetName: string): Integer; //for win98 function AddShareResource (ServerName : PChar; FilePath : PChar; NetName : PChar; Remark : PChar ) : Integer; function DelShareResource(ServerName: string; NetName: string): Integer; implementation function IsWinNT: Boolean; var VersionInfo: TOSVersionInfo; begin VersionInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); Result := GetVersionEx(VersionInfo); if Result then Result := VersionInfo.dwPlatformID = VER_PLATFORM_WIN32_NT; end; function GetPDCName: string; var pDomain : PWideChar; LibHandle : THandle; begin Result := ''; LibHandle := LoadLibrary(NTlib); if LibHandle = 0 then raise Exception.Create('Unable to map library: ' + NTlib); try @NTNetGetDCName := GetProcAddress(Libhandle, 'NetGetDCName'); @NTNetApiBufferFree := GetProcAddress(Libhandle, 'NetApiBufferFree'); try if NTNetGetDCName(nil, nil, pDomain) = 0 then Result := WideCharToString(pDomain); finally NTNetApiBufferFree(pDomain); end; finally FreeLibrary(Libhandle); |
正在阅读:在WIN2000与98中创建共享文件夹在WIN2000与98中创建共享文件夹
2004-03-18 14:45
出处:PConline
责任编辑:linjixiong
键盘也能翻页,试试“← →”键