قفل النظام ومنع اليوزر من التحكم

للسؤالين 1 و 2 : /index.ph...st&p=610380

3 مش هرد عليه , راجع كل الموضوع اللى فيه مشاركتى اللى رابطها فوق.

5 أساسا المفوض بيقى عدد معين من الأجهزة فيه CD Rom و لا تستعمل الا بموافقة المسئول.

4- الكود التالى :

فى Module

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOACTIVATE = &H10
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOPMOST = -1
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function FormOnTop(FormName As Form, OnTop As Boolean)
Dim wFlags As Long
Dim PosFlag As Long

wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE

Select Case OnTop
	Case True
		PosFlag = HWND_TOPMOST
	Case False
		PosFlag = HWND_NOTOPMOST
End Select

SetWindowPos FormName.hwnd, PosFlag, 0, 0, 0, 0, wFlags

End Function

فى الفورم

FormOnTop Me, True

مش عايز بردة تتطلع الكود الخاص بالسيستم :lol:

السلام عليكم ورحمة الله وبركاته

عليك بالرجستري انظر إلى توقيعي وإن أردت شئ إسأل في الموضوع

والسلام عليكم ورحمة الله وبركاته