paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: add/change some token related types

Browse Source 
git-svn-id: trunk@25574 -
This commit is contained in:
paul 2013-09-26 03:51:06 +00:00
parent 2c664ac6ae
commit bc636658d6
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/win/wininc/base.inc
View File

@ -333,6 +333,21 @@
_SID_NAME_USE = SID_NAME_USE;
TOKEN_TYPE = (
TokenPrimary = 1,
TokenImpersonation
);
_TOKEN_TYPE = TOKEN_TYPE;
TTokenType = TOKEN_TYPE;
TOKEN_ELEVATION_TYPE = (
TokenElevationTypeDefault = 1,
TokenElevationTypeFull,
TokenElevationTypeLimited
);
_TOKEN_ELEVATION_TYPE = TOKEN_ELEVATION_TYPE;
TTokenElevationType = TOKEN_ELEVATION_TYPE;
TOKEN_INFORMATION_CLASS = (
TokenUser = 1,
TokenGroups,
@ -364,14 +379,15 @@
TokenLogonSid,
MaxTokenInfoClass // MaxTokenInfoClass should always be the last enum
);
_TOKEN_INFORMATION_CLASS = TOKEN_INFORMATION_CLASS;
TTokenInformationClass = TOKEN_INFORMATION_CLASS;
TOKEN_TYPE = (TokenPrimary := 1,TokenImpersonation
);
tagTOKEN_TYPE = TOKEN_TYPE;
_TOKEN_ELEVATION = record
TokenIsElevated: DWORD;
end;
TOKEN_ELEVATION = _TOKEN_ELEVATION;
TTokenElevation = _TOKEN_ELEVATION;
PTokenElevation = ^TTokenElevation;
_FINDEX_INFO_LEVELS = (FindExInfoStandard,FindExInfoBasic,FindExInfoMaxInfoLevel);
_FINDEX_SEARCH_OPS = (FindExSearchNameMatch, FindExSearchLimitToDirectories,