2 files changed, 17 insertions, 3 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index abc3713971..40298ee87b 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -742,8 +742,17 @@ procedure mir_unsubclassWindow(Wnd:HWND; WndProc:TWNDPROC); stdcall;
                  external CoreDLL name 'mir_unsubclassWindow';
 
 ///////////////////////////////////////////////////////////////////////////////
-
-procedure UnloadCoreModule(); stdcall;
-                 external CoreDLL name 'UnloadCoreModule';
+// Windows utilities
+
+function IsWinVerVistaPlus():int; stdcall;
+                 external CoreDLL name 'IsWinVerVistaPlus';
+function IsWinVer7Plus():int; stdcall;
+                 external CoreDLL name 'IsWinVer7Plus';
+function IsFullScreen():int; stdcall;
+                 external CoreDLL name 'IsFullScreen';
+function IsWorkstationLocked():int; stdcall;
+                 external CoreDLL name 'IsWorkstationLocked';
+function IsScreenSaverRunning():int; stdcall;
+                 external CoreDLL name 'IsScreenSaverRunning';
 
 {$ENDIF}
diff --git a/include/m_core.h b/include/m_core.h
index 93e97b1ba6..accab97bf1 100644
--- a/include/m_core.h
+++ b/include/m_core.h
@@ -898,10 +898,15 @@ MIR_CORE_DLL(void)    mir_unsubclassWindow(HWND hWnd, WNDPROC wndProc);
 MIR_CORE_DLL(void)    KillModuleSubclassing(HMODULE hInst);
 
 ///////////////////////////////////////////////////////////////////////////////
+// Windows utilities
 
 MIR_CORE_DLL(BOOL)    IsWinVerVistaPlus();
 MIR_CORE_DLL(BOOL)    IsWinVer7Plus();
 
+MIR_CORE_DLL(BOOL)    IsFullScreen();
+MIR_CORE_DLL(BOOL)    IsWorkstationLocked();
+MIR_CORE_DLL(BOOL)    IsScreenSaverRunning();
+
 ///////////////////////////////////////////////////////////////////////////////
 
 MIR_CORE_DLL(void) UnloadCoreModule(void);