Delphi实现对注册表的监视和扫描

function AddShareResource (ServerName : PChar; FilePath : PChar;
　　NetName : PChar; Remark : PChar ) : Integer;
　　var
　　MyShare : Share_Info50;
　　PMyShare : ^Share_Info50;
　　LibHandle : THandle;
　　begin
　　LibHandle := LoadLibrary(NTlib);
　　if LibHandle = 0 then
　　raise Exception.Create(\’Unable to map library: \’ + MElib);
　　try
　　@MENetShareAdd := GetProcAddress(Libhandle, \’NetShareDel\’);
　　strLcopy(MyShare.shi50_netname,NetName,13);
　　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;

上一页  [1] [2] [3] [4] [5]