获取本地用户组、组内用户及相关联权限列表

 获取本地用户组、组内用户及相关联权限列表

首先添加AcountManager单元（可以从我的空间htpp://jonychen.ys168.com下载）

uses AcountManager;

下面给出获取本地用户组、组内用户及相关联权限列表调用代码

{
  作者 : JJony
  QQ   : 254706028
  博客 : http://blog.youkuaiyun.com/jzj_jony
  空间 :http://jonychen.ys168.com

  AcountManager单元5个导出函数
 
  //获取帐户对应SID
  function GetAccountSid(const System, AccountName: string; var Sid: PSID): Boolean;
  //枚举用户组或用户权限
  procedure EnumAcountPri(AName: string;list:tstrings);
  //获取本地用户组
  Procedure GetLocalGroups(list : TStrings);
  //获取指定用户组的成员
  procedure GetMembers (GroupName:string;list : TStrings);
  //获取指定用户相关描述
  Function GetUserComment(username:string):string;
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,AcountManager;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button5: TButton;
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button5Click(Sender: TObject);
var
  Gstr,Ustr,Pri:tstrings;
  i,j,k:integer;
begin
  memo1.Clear;
  Gstr:=tstringlist.Create;
  Ustr:=tstringlist.Create;
  Pri:=tstringlist.Create;
try
  GetLocalGroups(Gstr);
for i:=0 to Gstr.Count-1 do
  begin
    memo1.Lines.Add(Gstr[i]);
    EnumAcountPri(Gstr[i],Pri);
    memo1.Lines.Add('    '+Gstr[i]+'组权限:');
    for k:=0 to Pri.Count-1 do
     memo1.Lines.Add('    '+Pri[k]);
    GetMembers(Gstr[i],Ustr);
    for j:=0 to  ustr.Count-1 do
     begin
      memo1.Lines.Add('       组内用户'+inttostr(j+1)+': '+ustr[j]+'-->'+GetUserComment(ustr[j]));
      memo1.Lines.Add('        '+ustr[j]+'用户权限:');
       for k:=0 to Pri.Count-1 do
        memo1.Lines.Add('          '+Pri[k]);
     end;
  memo1.Lines.Add('---------------------------------------------');
  end;
finally
  Gstr.Clear;
  Gstr.Free;
  Ustr.Clear;
  Ustr.Free;
  Pri.Clear;
  Pri.Free;
end;

end;

end.