您现在的位置：星云电脑教程 >> 电脑教程 >> 经验共享 >> 操作系统 >> win98-win2000-NT >> 正文

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

星云电脑教程文章来源：PConline 作者：happy_da… 更新时间：2004-8-4 9:29:53 点击数【有问必答】

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;