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

+ added the application termination win16api functions and constants

Browse Source 
git-svn-id: trunk@31716 -
This commit is contained in:
nickysn 2015-09-16 15:04:53 +00:00
parent 475c24670b
commit dde243e4e5
2 changed files with 12 additions and 0 deletions

4
rtl/win16/winprocsh.inc
View File

@ -785,3 +785,7 @@ function CallMsgFilter(lpmsg: LPMSG; nCode: SmallInt): BOOL; external 'USER';
{$ifdef VAR_PARAMS_ARE_FAR}
function CallMsgFilter(var msg: MSG; nCode: SmallInt): BOOL; external 'USER';
{$endif}
{ Application termination }
procedure PostQuitMessage(nExitCode: SmallInt); external 'USER';

8
rtl/win16/wintypes.inc
View File

@ -1351,3 +1351,11 @@ const
{ Coalescing messages }
WM_COALESCE_FIRST = $0390;
WM_COALESCE_LAST = $039F;
{ Application termination }
WM_QUERYENDSESSION = $0011;
WM_ENDSESSION = $0016;
WM_QUIT = $0012;
WM_SYSTEMERROR = $0017;