Fix viewing access for WinSta and desktop

diversenok · Aug 7, 2023 · 32b7eb8 · 32b7eb8
1 parent 5b01aad
commit 32b7eb8
Showing 1 changed file with 4 additions and 10 deletions.
diff --git a/Core/TU.Access.pas b/Core/TU.Access.pas
@@ -542,18 +542,12 @@ function TuMakeSingletonOpener(
         ltScmDatabase: Result := ScmxConnect(hxObject, DesiredAccess);
 
         ltCurrentWinSta:
-        begin
-          hxObject := Auto.CaptureHandle(UsrxCurrentWindowStation);
-          hxObject.AutoRelease := False;
-          Result.Status := STATUS_SUCCESS;
-        end;
+          Result := NtxDuplicateHandleLocal(UsrxCurrentWindowStation, hxObject,
+            DesiredAccess);
 
         ltCurrentDesktop:
-        begin
-          hxObject := Auto.CaptureHandle(UsrxCurrentDesktop);
-          hxObject.AutoRelease := False;
-          Result.Status := STATUS_SUCCESS;
-        end
+          Result := NtxDuplicateHandleLocal(UsrxCurrentDesktop, hxObject,
+            DesiredAccess);
       else
         Result.Location := 'TuMakeSingletonOpener';
         Result.Status := STATUS_INVALID_PARAMETER;