کدهای API 

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

۱– تغییر برچسب درایو ها                                                                     SetVolumeLabelA

Public Declare Function SetVolumeLabelA Lib "kernel32.dl ")ByVal lpRootName As String, ByVal lpVolumeName As String)As Long

 

lpRootName : نام ریشه درایو   مثل : C:\

lpVolumeName : برچسب یا نام جدید درایو

مثال :

Dim A As Long

Private sub command1_click()

A = SetVolumeLabelA("C:\" , " Visual Basic")

End sub

توجه: اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.

 

 

 

۲-Hide TaskBar

Public Hwnd1 As Long

Public Const SWP_HIDEWINDOW = &H80

Public Const SWP_SHOWWINDOW = &H40

Public 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

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

 

Private Sub HideTask_Click()

Hwnd1 = FindWindow("Shell_Traywnd("" ,"

Call SetWindowPos(Hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

End Sub

Private Sub ShowTask_Click()

Call SetWindowPos(Hwnd1, 0, 0, 0, 0,0, SWP_SHOWWINDOW(

End sub