paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 14:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the win16api power management constants

Browse Source 
git-svn-id: trunk@31715 -
This commit is contained in:
nickysn 2015-09-16 15:00:14 +00:00
parent 90d4b116d7
commit 475c24670b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win16/win31.pp
View File

@ -494,6 +494,16 @@ const
QS_ALLINPUT = $007f; QS_ALLINPUT = $007f;
{ Power management }
WM_POWER = $0048;
{ wParam for WM_POWER window message and DRV_POWER driver notification }
PWR_OK = 1;
PWR_FAIL = (-1);
PWR_SUSPENDREQUEST = 1;
PWR_SUSPENDRESUME = 2;
PWR_CRITICALRESUME = 3;
function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER'; function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL'; procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';