在WIN2000与WIN98中创建共享文件夹的方法

MyShare.shi50_type := 0;
MyShare.shi50_flags := 0;
MyShare.shi50_remark := Remark;
MyShare.shi50_path := FilePath;
{MyShare.shi50_rw_password := nil ;
MyShare.shi50_ro_password :=nil ;}
PMyShare := @MyShare;
Result := MENetShareAdd(ServerName,50,PMyShare,SizeOf(MyShare));
finally
FreeLibrary(Libhandle);
end;
end;

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;

上一篇： 一个组合数的求解谈开去
下一篇： Delphi 8 for .NET是什么?

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!