غیر فعال کردن کلید Start!!

[HoneySaberi]

دوستان سلام.
من میخوام کلید Start غیر فعال کنم!!
البته منظورم مخفی کردنش نیست. چون در اون صورت بازم با صفحه کلید میشه منوی Start آورد.
اگه راه حلی برای این کار میدونید خیلی ممنون میشم که راهنماییم کنید.

از همتون ممنونم.

راستی... بابا من هرچی میگم یه تک ستاره هم تو هفت آسمون ندارم میگن "بروبابا" !!
اون وقت که ما عضو سایت شدیم که روز بود و از ستاره متاره خبری نبود. مدتی مشکل داشتمو نبودم حالام که برگشتم ظاهرا شب شده ستاره میدن. ولی ما که همه ستاره هامون پنچره بابا :roll: !!

آقا یه پارتی پیدا بشه یه ستاره به ما بده دلمون خوش بشه. خدا امواتتونو بیامورزه... شب جمعه است ....

[vbstar]

سلا م دوست عزیز :
این کدهای را میتونی تو یک ماژول ذخیره کنی و بعد اسامی توابع را فراخونی کنید .
اسم ماژول را هم بذار Func_API .


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

Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

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

Declare Function EnableWindow Lib "user32" _
(ByVal hWnd As Long, ByVal fEnable As Long) As Long

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

Public Sub Taskbar(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
If Visible Then
ShowWindow hWnd, 5
Else
ShowWindow hWnd, 0
End If
End Sub

Public Sub desktop(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Program", "Program Manager")
If Visible Then
ShowWindow hWnd, 5
Else
ShowWindow hWnd, 0
End If
End Sub

Public Sub Button(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
dwnd = FindWindowEx(hWnd, 0, "Button", vbNullString)
If Visible Then
ShowWindow hWnd, 5
Else
ShowWindow hWnd, 0
End If
End Sub

نگاه کن به اسامی سابها و چک باکس ها را ایجاد کند با همان نامهای که مشخص شده و بعد کدهای زیر را توی آنها کپی کنو

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub ch_DeskTop_Click()
Select Case ch_DeskTop.Value
Case 0:
ch_DeskTop.Caption = "Visible"
desktop (False)
Case 1:
ch_DeskTop.Caption = "Enable"
desktop (True)
End Select
End Sub

Private Sub ch_StarBtn_Click()
Select Case ch_StarBtn.Value
Case 0:
ch_StarBtn.Caption = "Visible"
Button (False)
Case 1:
ch_StarBtn.Caption = "Enable"
Button (True)
End Select
End Sub

Private Sub ch_taskbar_Click()
Dim Thwnd As Long
Select Case ch_Taskbar.Value
Case 0:
ch_Taskbar.Caption = "Hide Taskbar"
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Case 1:
ch_Taskbar.Caption = "Show TAskbar"
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Select
End Sub

Private Sub ch_Visible_Taskbar_Click()
Select Case ch_Visible_Taskbar.Value
Case 0:
ch_Visible_Taskbar.Caption = "Visible Taskbar"
Taskbar (False)
Case 1:
ch_Visible_Taskbar.Caption = "Enable Taskbar"
Taskbar (True)
End Select
End Sub

اگر مشکلی بود بپرس / ببخشید !! زیاد فرصت نداشتم / اگر کم توضیح دادم

سلام آقایون مایکروسافتی
من اصلا وی بی بلد نیستم دلفی کار میکنم اگه ممکنه توضیح بدین که چطور بعد از هاید کردن تسک بار جلوی باز شدن منوی استارت رو با زدن دکمه استارت روی کیبرد رو یا ctrl+esc از کیبرد میگیرید
مرسی :)

[HoneySaberi]

vbstar جان، سلام.
از لطف و توجهت خیلی ممنون :) :heart: .
راستش مواردی که گفته بودی رو امتحان کردم، اما فقط TaskBar مخفی میشد و باز هم از طریق صفحه کلید میشه Start آورد.
مورد دیگه اینکه ch_DeskTop که ظاهرا قراره آیکونهای DeskTop مخفی کنه، کار خاصی انجام نمیداد.

به هر حال باز هم از توجه و لطفت خیلی ممنونم.

راستی... دوست غیر ماکروسافتی عزیزم، اگر موفق شدم با کمک دوستان دیگه این کارو انجام بدم حتما توضیح میدم :wink: