forked from pozitronik/CloudMailRu
-
Notifications
You must be signed in to change notification settings - Fork 0
/
app_linker.inc
39 lines (36 loc) · 1.07 KB
/
app_linker.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
{ app_linker.inc }
(*
const
IMAGE_SIZEOF_FILE_HEADER = 20;
IMAGE_FILE_RELOCS_STRIPPED = $0001;
IMAGE_FILE_EXECUTABLE_IMAGE = $0002;
IMAGE_FILE_LINE_NUMS_STRIPPED = $0004;
IMAGE_FILE_LOCAL_SYMS_STRIPPED = $0008;
IMAGE_FILE_AGGRESIVE_WS_TRIM = $0010;
IMAGE_FILE_DEBUG_STRIPPED = $0200;
IMAGE_FILE_NET_RUN_FROM_SWAP = $0800;
{$SETPEFLAGS IMAGE_SIZEOF_FILE_HEADER
or IMAGE_FILE_RELOCS_STRIPPED
or IMAGE_FILE_EXECUTABLE_IMAGE
or IMAGE_FILE_LINE_NUMS_STRIPPED
or IMAGE_FILE_LOCAL_SYMS_STRIPPED
or IMAGE_FILE_AGGRESIVE_WS_TRIM
or IMAGE_FILE_DEBUG_STRIPPED
or IMAGE_FILE_NET_RUN_FROM_SWAP
}
//*)
//(*
{$SETPEFLAGS 20 // IMAGE_SIZEOF_FILE_HEADER
or $0200 // IMAGE_FILE_DEBUG_STRIPPED
or $0002 // IMAGE_FILE_EXECUTABLE_IMAGE
or $0004 // IMAGE_FILE_LINE_NUMS_STRIPPED
or $0008 // IMAGE_FILE_LOCAL_SYMS_STRIPPED
or $0800 // IMAGE_FILE_NET_RUN_FROM_SWAP
or $0010 // IMAGE_FILE_AGGRESIVE_WS_TRIM
}//*)
{$IFDEF UNICODE}
{$IFNDEF DEBUG}
{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
{$ENDIF}
{$ENDIF}