+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد چک کردن فعال بودن uac(دلفی) (/showthread.php?tid=2649)
سورس کد چک کردن فعال بودن uac(دلفی) - Amin_Mansouri - 08-07-2012
درود
با سورس زیر میتونید میتوانید وضعیت فعال بودن یا فعال بودن uac یا همان User Account Control رو بدست بیارید.
english
کد:
Snippet below can be used to programmatically determine if User Account Control is enabled:سورس کد :
کد:
uses
JwaWinbase, JwaWinNt;
function IsUACEnabled: Boolean;
var
hToken: THandle;
tet: TOKEN_ELEVATION_TYPE;
dwSize: DWORD;
begin
Win32Check(OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hToken));
// TokenElevationType class only available on Vista+
Win32Check(GetTokenInformation(hToken, TokenElevationType, @tet, SizeOf(tet), dwSize));
Result := tet <> TokenElevationTypeDefault;
end;