كود اخفاء عناصر سطح المكتب

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كود اخفاء عناصر سطح المكتب

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء مارس 04, 2014 9:30 pm

اهلا وسهلا بكم في منتدى مصر التقني
-------------------------------
                        بسم الله
في قسم التصريحات :

الكود:


Option Explicit

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
 (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal
 lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
وفي الكود :


الكود:


 

Sub Change_DesktopIcons(isVisible As Boolean)

Dim hWnd As Long

hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)

If isVisible Then

' Show Desktop

ShowWindow hWnd, 5

Else

' Hide Desktop

ShowWindow hWnd, 0

End If

End Sub


----
والى لقاء في اكواد جديدة بأذن الله
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى