正在阅读：在WIN2000与98中创建共享文件夹在WIN2000与98中创建共享文件夹

2004-03-18 14:45 出处：PConline 作者：happy_david 责任编辑：linjixiong

//开始创建结构
with ShInfo do
begin
shi502_netname := _NetName;
shi502_type := STYPE_DISKTREE ;
shi502_remark := _Remark ;
shi502_max_uses := $FFFFFFFF;
shi502_current_uses := 10;
shi502_path := _FilePath;
shi502_passwd := nil;
shi502_reserved := 0;
shi502_security_descriptor := nil;
shi502_permissions := ACCESS_ALL;
end;
try
Result := NTNetShareAdd(_ServerName, 502, @ShInfo, parm_err);
finally // 别忘了释放内存
FreeMem(_ServerName,255);
FreeMem(_FilePath,255);
FreeMem(_NetName,255);
FreeMem(_Remark,255);
end;
finally
FreeLibrary(Libhandle);
end;
end;

function DeleteShareResource(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: ' + NTlib);
try
@NTNetShareDel := GetProcAddress(Libhandle, 'NetShareDel');
GetMem(_ServerName,255) ; //分配内存

察看评论详细内容我要发表评论