مساعدة

السلام عليكم

توجد دالة API تجعل الفورم هو الاعلى دائما اي لا يمكن فتح او الضغط على شئ خارج نطاق الفورم ارجو ممن يعرفها ادراجها لانني بصراحة كنت استعملها و لا اذكرها الان( بعد ان عملت format لجهازي )

باستعمال هذه الدالة و حفظ البرنامج المذكور اعلاه في قائمة startUp و بذلك نتمكن من جعل المستخدم لا يفتح برنامج اخر غيره ولن يخرج منه الا باخال password

شكرا أخ hishamnasr

و إذا كان أحد يعرف الدالة أرجو منه أن

يخبرني عليها

............................................

يا جماعة الـ API

السلام عليكم

هذه هي الدالة ،، التي تجعل الفورم فوق كل النوافذ الاخرى

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


Private Sub Form_Load()

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 1


End Sub

تحياتي لكم

الطريقة محتاجة أكثر يا جماعة

لا زم يشتغل البرنامج قبل ما يشتغل الستارت أب أي قبل رموز سطح المكتب وقبل ظهور شريط المهام

بانسبة للتحكم بسطح المكتب و ابدأ

حصلت على كود لني إلى الآن لم أفهم منه شيئا ممكن توضيحه أكثر

هذا هو الكود:

اقتباس

Hide task bar

'Declarations
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Private Sub TaskBar(ByVal Show As Boolean)

Dim TaskBarHwnd As Long

   
   TaskBarHwnd = FindWindow("Shell_TrayWnd", "")
   If TaskBarHwnd <> 0 Then
       Select Case Show
           Case True
               ShowWindow TaskBarHwnd, SW_SHOW
           Case False
               ShowWindow TaskBarHwnd, SW_HIDE
       End Select
   End If
       
   
End Sub

Start Button Enabled

'Declarations
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const GW_CHILD = 5

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Public Sub StartButtonEnabled(ByVal Enabled As Boolean)

Dim TaskBarHwnd As Long
Dim ChildWindow As Long
Dim ClassName As Long

   TaskBarHwnd = FindWindow("Shell_TrayWnd", "")
   ChildWindow = GetWindow(TaskBarHwnd, GW_CHILD)
   ClassName = GetClassName(ChildWindow, "", 1000)
   
   If ChildWindow <> 0 Then
       If ClassName > 0 Then
           EnableWindow ChildWindow, Enabled
       End If
   End If

End Sub

Start Button Visible

'Declarations
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const GW_CHILD = 5

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Public Sub StartButtonShow(ByVal Visible As Boolean)

Dim TaskBarHwnd As Long
Dim ChildWindow As Long
Dim ClassName As Long

   TaskBarHwnd = FindWindow("Shell_TrayWnd", "")
   ChildWindow = GetWindow(TaskBarHwnd, GW_CHILD)
   ClassName = GetClassName(ChildWindow, "", 1000)
   
   If ChildWindow <> 0 Then
       If ClassName > 0 Then
           Select Case Visible
               Case True
                   ShowWindow ChildWindow, SW_SHOW
               Case False
                   ShowWindow ChildWindow, SW_HIDE
           End Select
       End If
   End If

End Sub