Martijn Laan 2 mēneši atpakaļ
vecāks
revīzija
e8078533cb
2 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 1 1
      Components/NewUxTheme.pas
  2. 1 1
      Components/RestartManager.pas

+ 1 - 1
Components/NewUxTheme.pas

@@ -1103,7 +1103,7 @@ const
   themelib = 'uxtheme.dll';
   themelib = 'uxtheme.dll';
 
 
 var
 var
-  ThemeLibrary: THandle;
+  ThemeLibrary: HMODULE;
   ReferenceCount: Integer;  // We have to keep track of several load/unload calls.
   ReferenceCount: Integer;  // We have to keep track of several load/unload calls.
 
 
 procedure FreeThemeLibrary;
 procedure FreeThemeLibrary;

+ 1 - 1
Components/RestartManager.pas

@@ -106,7 +106,7 @@ const
   restartmanagerlib = 'Rstrtmgr.dll';
   restartmanagerlib = 'Rstrtmgr.dll';
 
 
 var
 var
-  RestartManagerLibrary: THandle;
+  RestartManagerLibrary: HMODULE;
   ReferenceCount: Integer;  // We have to keep track of several load/unload calls.
   ReferenceCount: Integer;  // We have to keep track of several load/unload calls.
 
 
 procedure FreeRestartManagerLibrary;
 procedure FreeRestartManagerLibrary;