اللّهُمَّ کُنْ لِوَلِیِّکَ الْحُجَّةِ بْنِ الْحَسَنِ صَلَواتُکَ عَلَیْهِ وَعَلى آبائِهِ فی هذِهِ السّاعَةِ وَفی کُلِّ ساعَةٍ وَلِیّاً وَحافِظاً وَقائِدا ‏وَناصِراً وَدَلیلاً وَعَیْناً حَتّى تُسْکِنَهُ أَرْضَک َطَوْعاً وَتُمَتِّعَهُ فیها طَویلاً

کمیابترین کدهای جاوا


این وب سایت را صفحه خانگی خود کن ! این وب سایت را به لیست علاقه مندی های خود اضافه کنید ! شماره 4 : این API برای مخفی کردن دکمه Start ویندوز - بوی عطر بهار نارنج
X
تبلیغات
رایتل
سه‌شنبه 22 مرداد‌ماه سال 1387 ساعت 03:21 ب.ظ

شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

Start Button

مثل همیشه تعریف تابع توی یه Module :

Public

Public

Public Declare Function

Public Declare Function

Public Declare Function

OP As LongOH As Long ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Const

SW_HIDE = 0

Public Const

SW_SHOW = 5

از تابع

حالا برای مخفی کردن دکمه

FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start استفاده می کنیم.Start کد زیر رو بنویسید :

()Private Sub HideStart_Click

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_HIDE

End Sub

این کد هم برای نمایش دوباره دکمه 

Start است :

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_SHOW

()Private Sub ShowStart_Click

End Sub

del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo
bache tabas 's Search Engine : FunnyLogo.info : Personal Search Engine with many styles Yahoo

 

Web ImagesVideoNewsMapsBooks More»
 
 Advanced Search
 Preferences
 Language Tools


BookMark     Create your own Search Engine Now


FunnyLogo is not affiliated with Google Inc.
Trademarks remain trademarks of their respective companies.
© 2008 FunnyLogo

Sedo - Buy and Sell Domain Names and Websites project info: funnylogo.info Statistics for project funnylogo.info etracker® web controlling instead of log file analysis