مخفی کردن دکمه استارت

[shirin71]

میخوایم با یه تابع APi دکمه استارت را مخفی کنیم...

این قسمت ار کدهارو در جنرال وارد کنید:


private a As Long
private f As Long

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public 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 Const hide = 0

private Const show = 5

از تابع FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start که در واقع فرم فرزند (ChildForm) TaskBar ویندوزه استفاده می کنیم.از تابع ShowWindow هم برای کار اصلی استفاده می کنیم.


حالا برای مخفی کردن دکمه Start کد زیر رو مینویسیم:

()Private Sub HideStart_Click

("" ,"a = FindWindow("Shell_TrayWnd

(f = FindWindowEx(a, 0, "Button", vbNullString

ShowWindow f, hide

End Sub

کد نمایش دوباره استارت :

()Private Sub ShowStart_Click

("" ,"a = FindWindow("Shell_TrayWnd

(f = FindWindowEx(a, 0, "Button", vbNullString

ShowWindow f, show

End Sub