1 | function GetAdminSid: PSID; |
---|
2 | const |
---|
3 | // bekannte SIDs ... (WinNT.h) |
---|
4 | SECURITYNTAUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5)); |
---|
5 | // bekannte RIDs ... (WinNT.h) |
---|
6 | SECURITYBUILTINDOMAINRID: DWORD = $00000020; |
---|
7 | DOMAINALIASRIDADMINS: DWORD = $00000220; |
---|
8 | begin |
---|
9 | Result := nil; |
---|
10 | AllocateAndInitializeSid(SECURITYNTAUTHORITY, |
---|
11 | 2, |
---|
12 | SECURITYBUILTINDOMAINRID, |
---|
13 | DOMAINALIASRIDADMINS, |
---|
14 | 0, |
---|
15 | 0, |
---|
16 | 0, |
---|
17 | 0, |
---|
18 | 0, |
---|
19 | 0, |
---|
20 | Result); |
---|
21 | end; |
---|
22 | |
---|
23 | function IsAdmin: LongBool; |
---|
24 | var |
---|
25 | TokenHandle : THandle; |
---|
26 | ReturnLength : DWORD; |
---|
27 | TokenInformation : PTokenGroups; |
---|
28 | AdminSid : PSID; |
---|
29 | Loop : Integer; |
---|
30 | wv : TOSVersionInfo; |
---|
31 | begin |
---|
32 | wv.dwOSVersionInfoSize := sizeof(TOSversionInfo); |
---|
33 | GetVersionEx(wv); |
---|
34 | |
---|
35 | Result := (wv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS); |
---|
36 | |
---|
37 | if(wv.dwPlatformId = VER_PLATFORM_WIN32_NT) then |
---|
38 | begin |
---|
39 | TokenHandle := 0; |
---|
40 | if OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, TokenHandle) then |
---|
41 | try |
---|
42 | ReturnLength := 0; |
---|
43 | GetTokenInformation(TokenHandle, TokenGroups, nil, 0, ReturnLength); |
---|
44 | TokenInformation := GetMemory(ReturnLength); |
---|
45 | if Assigned(TokenInformation) then |
---|
46 | try |
---|
47 | if GetTokenInformation(TokenHandle, TokenGroups, |
---|
48 | TokenInformation, ReturnLength, ReturnLength) then |
---|
49 | begin |
---|
50 | AdminSid := GetAdminSid; |
---|
51 | for Loop := 0 to TokenInformation^.GroupCount - 1 do |
---|
52 | begin |
---|
53 | if EqualSid(TokenInformation^.Groups[Loop].Sid, AdminSid) then |
---|
54 | begin |
---|
55 | Result := True; break; |
---|
56 | end; |
---|
57 | end; |
---|
58 | FreeSid(AdminSid); |
---|
59 | end; |
---|
60 | finally |
---|
61 | FreeMemory(TokenInformation); |
---|
62 | end; |
---|
63 | finally |
---|
64 | CloseHandle(TokenHandle); |
---|
65 | end; |
---|
66 | end; |
---|
67 | end; |
---|
68 | |
---|
69 | function WVersion: string; |
---|
70 | var |
---|
71 | OSInfo: TOSVersionInfo; |
---|
72 | begin |
---|
73 | Result := '3X'; |
---|
74 | OSInfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO); |
---|
75 | GetVersionEx(OSInfo); |
---|
76 | case OSInfo.dwPlatformID of |
---|
77 | VER_PLATFORM_WIN32S: begin |
---|
78 | Result := '3X'; |
---|
79 | Exit; |
---|
80 | end; |
---|
81 | VER_PLATFORM_WIN32_WINDOWS: begin |
---|
82 | Result := '9X'; |
---|
83 | Exit; |
---|
84 | end; |
---|
85 | VER_PLATFORM_WIN32_NT: begin |
---|
86 | Result := 'NT'; |
---|
87 | Exit; |
---|
88 | end; |
---|
89 | end; //case |
---|
90 | end; |
---|