From d41be42b847f300a500ba796e99d6a7824f6a659 Mon Sep 17 00:00:00 2001
From: Pavel <68122101+red-prig@users.noreply.github.com>
Date: Tue, 7 Mar 2023 14:48:54 +0300
Subject: [PATCH] ops

---
 sys/sys_kernel.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/sys/sys_kernel.pas b/sys/sys_kernel.pas
index 50803071..46b02381 100644
--- a/sys/sys_kernel.pas
+++ b/sys/sys_kernel.pas
@@ -81,6 +81,20 @@ function  BCryptGenRandom(hAlgorithm:Pointer;
                           cbBuffer:DWORD;
                           dwFlags:DWORD):DWORD; stdcall; external 'Bcrypt';
 
+const
+ HW_PROFILE_GUIDLEN=39;
+ MAX_PROFILE_LEN   =80;
+
+type
+ P_HW_PROFILE_INFOA=^HW_PROFILE_INFOA;
+ HW_PROFILE_INFOA=packed record
+  dwDockInfo:DWORD;
+  szHwProfileGuid:array[0..HW_PROFILE_GUIDLEN-1] of Char;
+  szHwProfileName:array[0..MAX_PROFILE_LEN   -1] of Char;
+ end;
+
+function GetCurrentHwProfileA(lpHwProfileInfo:P_HW_PROFILE_INFOA):Boolean; stdcall; external 'advapi32';
+
 type
  PPROCESS_MEMORY_COUNTERS = ^_PROCESS_MEMORY_COUNTERS;
  _PROCESS_MEMORY_COUNTERS = record