레지스트리 ID 찾기

레지스트리 ID 찾기

728x90

 

 

레지스트리 Hkey_User 밑에 S-1-5-21 로 해당되는 ID를 얻는다.

 

uses Registry 를 추가

 

function GetOwnerID: String;

var

Reg: TRegistry;

S: TStringList;

S_Tmp: String;

i: integer;

begin

Result := '';

Reg := TRegistry.Create;

S := TStringList.Create;

 

try

Reg.RootKey := HKEY_USERS;

if Reg.OpenKeyReadOnly('') then

begin

Reg.GetKeyNames(S);

for I := 0 to s.Count - 1 do

begin

S_Tmp := Copy(S.Strings[i], 1, 8);

if S_Tmp = 'S-1-5-21' then

begin

if Pos('_', S.Strings[i]) = 0 then

Result := S.Strings[i];

end;

end;

end;

finally

Reg.CloseKey;

S.Free;

Reg.Free;

end;

end;

 

 

사용방법

var

Reg_SID: String;

Reg_SID := GetOwnerID;

 

showmessage(Reg_SID);