function DelShareResource(ServerName: string; NetName: string): Integer; var _ServerName : Pchar ; LibHandle : THandle; begin LibHandle := LoadLibrary(NTlib); if LibHandle = 0 then raise Exception.Create('Unable to map library: ' + MElib); try @NTNetShareDel := GetProcAddress(Libhandle, 'NetShareDel'); GetMem(_ServerName,255) ; //分配内存 strpcopy(_ServerName,ServerName); try Result := NTNetShareDel(_ServerName, NetName,0); finally FreeMem(_ServerName,255); end; finally FreeLibrary(Libhandle); end; end; |
正在阅读:在WIN2000与98中创建共享文件夹在WIN2000与98中创建共享文件夹
2004-03-18 14:45
出处:PConline
责任编辑:linjixiong
键盘也能翻页,试试“← →”键