paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the win16api shell consts

Browse Source 
git-svn-id: trunk@31818 -
This commit is contained in:
nickysn 2015-09-24 15:44:09 +00:00
parent d6fdab5e0e
commit 5c9a09a38b
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win16/win31.pp
View File

@ -704,6 +704,15 @@ type
end; end;
THardwareHookStruct = HARDWAREHOOKSTRUCT; THardwareHookStruct = HARDWAREHOOKSTRUCT;
{ Shell support }
const
{ SetWindowsHook() Shell hook code }
WH_SHELL = 10;
HSHELL_WINDOWCREATED = 1;
HSHELL_WINDOWDESTROYED = 2;
HSHELL_ACTIVATESHELLWINDOW = 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';