FreezePc
Public Declare Function SetParent Lib "user32" _ Alias "SetParent" (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long Function freeze_computer(frm as form) call SetParent(frm.hwnd, frm.hwnd) End Function
Public Declare Function SetParent Lib "user32" _
Alias "SetParent" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Function freeze_computer(frm as form)
call SetParent(frm.hwnd, frm.hwnd)
End Function
(freezepc.html)- by Paolo Puglisi - Modifica del 25/3/2019