Browse Source

+ added the win16api shell consts

git-svn-id: trunk@31818 -
nickysn 10 years ago
parent
commit
5c9a09a38b
1 changed files with 9 additions and 0 deletions
  1. 9 0
      rtl/win16/win31.pp

+ 9 - 0
rtl/win16/win31.pp

@@ -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';