mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 15:43:41 +02:00
2e186a91fa
scandir.pas: + add function "get_peflag_const" to retrieve the value of a constant * dir_setpeflags & dir_setpeoptflags: first check for an identifier (value is retrieved through "get_peflag_const") and then read a value + added messages for illegal parameters for SetPEFlags and SetPEOptFlags respectively + added tests git-svn-id: trunk@24887 -
19 lines
332 B
ObjectPascal
19 lines
332 B
ObjectPascal
{ %NORUN }
|
|
{ %TARGET=win32,win64,wince }
|
|
|
|
program tb0596;
|
|
|
|
const
|
|
IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020;
|
|
IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000;
|
|
|
|
{$setpeflags IMAGE_FILE_LARGE_ADDRESS_AWARE}
|
|
{$setpeflags $0800}
|
|
|
|
{$setpeoptflags IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE}
|
|
{$setpeoptflags $0040}
|
|
|
|
begin
|
|
|
|
end.
|