mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: IsUserAdmin function

Browse source
This commit is contained in:
Alexander Koblov 2019-09-18 16:45:56 +00:00
commit 7018ab2327
3 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/platform/uosforms.pas
View file

@ -557,7 +557,7 @@ begin
SetWindowLong(AppHandle, GWL_EXSTYLE, GetWindowLong(AppHandle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
// Register network file source
RegisterVirtualFileSource(rsVfsNetwork, TWinNetFileSource);
if (Win32MajorVersion > 5) and IsUserAdmin then // if run under administrator
if (IsUserAdmin = dupAccept) then // if run under administrator
MainForm.Caption:= MainForm.Caption + ' - Administrator';
// Add main window message handler

25
src/platform/win/umywindows.pas
View file

@ -139,7 +139,7 @@ function GetAsyncKeyStateEx(vKey: Integer): Boolean;
process is a member of the Administrators local group.
@returns(The function returns @true if caller has Administrators local group, @false otherwise)
}
function IsUserAdmin: LongBool;
function IsUserAdmin: TDuplicates;
{en
This routine returns @true if the caller's process is running in the remote desktop session
}
@ -866,33 +866,36 @@ begin
Result:= False;
end;
function IsUserAdmin: LongBool;
function IsUserAdmin: TDuplicates;
var
Success: Boolean;
ReturnLength: DWORD = 0;
TokenHandle: HANDLE = INVALID_HANDLE_VALUE;
TokenInformation: array [0..1023] of Byte;
ElevationType: JwaVista.TTokenElevationType absolute TokenInformation;
begin
Result:= OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True, TokenHandle);
if not Result then
if (Win32MajorVersion < 6) then Exit(dupIgnore);
Success:= OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True, TokenHandle);
if not Success then
begin
if GetLastError = ERROR_NO_TOKEN then
Result:= OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, TokenHandle);
Success:= OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, TokenHandle);
end;
if Result then
if Success then
begin
Result:= GetTokenInformation(TokenHandle, Windows.TTokenInformationClass(TokenElevationType),
Success:= GetTokenInformation(TokenHandle, Windows.TTokenInformationClass(TokenElevationType),
@TokenInformation, SizeOf(TokenInformation), ReturnLength);
CloseHandle(TokenHandle);
if Result then
if Success then
begin
case ElevationType of
TokenElevationTypeDefault: Result:= True; // The token does not have a linked token. (UAC disabled)
TokenElevationTypeFull: Result:= True; // The token is an elevated token. (Administrator)
TokenElevationTypeLimited: Result:= False; // The token is a limited token. (User)
TokenElevationTypeDefault: Result:= dupIgnore; // The token does not have a linked token. (UAC disabled)
TokenElevationTypeFull: Result:= dupAccept; // The token is an elevated token. (Administrator)
TokenElevationTypeLimited: Result:= dupError; // The token is a limited token. (User)
end;
end;
end;
if not Success then Result:= dupError;
end;
function RemoteSession: Boolean;

4
src/rpc/sys/usuperuser.pas
View file

@ -14,7 +14,7 @@ implementation
uses
SysUtils
{$IF DEFINED(MSWINDOWS)}
, Windows, DCOSUtils, ShellApi, uMyWindows
, Types, Windows, DCOSUtils, ShellApi, uMyWindows
{$ELSEIF DEFINED(UNIX)}
, Unix, BaseUnix, DCUnix
{$IF DEFINED(DARWIN)}
@ -178,7 +178,7 @@ initialization
{$IF DEFINED(UNIX)}
AdministratorPrivileges:= (fpGetUID = 0);
{$ELSE}
AdministratorPrivileges:= (Win32MajorVersion < 6) or IsUserAdmin;
AdministratorPrivileges:= (IsUserAdmin <> dupError);
{$ENDIF}
end.