Проверить, заблокирована ли рабочая станция

Советы » Компьютер » Проверить, заблокирована ли рабочая станция

function

IsWorkstationLocked: Boolean; var

hDesktop: HDESK; begin

Result := False; hDesktop := OpenDesktop('default', 0, False, DESKTOP_SWITCHDESKTOP); if

hDesktop <> 0 then

begin

Result := not

SwitchDesktop(hDesktop); CloseDesktop(hDesktop); end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com