Pārlūkot izejas kodu

+ added the win16api shell consts

git-svn-id: trunk@31818 -
nickysn 10 gadi atpakaļ
vecāks
revīzija
5c9a09a38b
1 mainītis faili ar 9 papildinājumiem un 0 dzēšanām
  1. 9 0
      rtl/win16/win31.pp

+ 9 - 0
rtl/win16/win31.pp

@@ -704,6 +704,15 @@ type
   end;
   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';
 
 procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';