Legal
17-04-2008, 15:52
دوستان ميخواستم ببينم چه جوري ميشه توابع رو تو برنامه به كار برد :
در زير اين توابع رو چطور ميشه در برنامه به كار برد ؟
1.EndMenu
Private Declare Function EndMenu Lib "user32.dll" () As Long 2.OpenIcon
Private Declare Function Openicon Lib "user32.dll" (ByVal hwnd As Long) As Long
3.SetPixel
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long,ByVal y As Long, ByVal crColor As Long) As Long
4.SetCursorPos
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
5.SetCapture
Private Declare Function SetCapture Lib "user32.dll" (ByVal hwnd As Long) As Long
6.ReleaseCapture
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
7.PaintDesktop
Private Declare Function PaintDesktop Lib "user32.dll" (ByVal hdc As Long) As Long
8.IsIconic
Private Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
9.IsNTAdmin
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByVal lpdwReserved As Long) As Long
10.CreateDirectoryA
Private Declare Function CreateDirectoryA Lib "kernel32.dll" (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long
با تشكر از دوستاني كه كمك خواهند كرد
در زير اين توابع رو چطور ميشه در برنامه به كار برد ؟
1.EndMenu
Private Declare Function EndMenu Lib "user32.dll" () As Long 2.OpenIcon
Private Declare Function Openicon Lib "user32.dll" (ByVal hwnd As Long) As Long
3.SetPixel
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long,ByVal y As Long, ByVal crColor As Long) As Long
4.SetCursorPos
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
5.SetCapture
Private Declare Function SetCapture Lib "user32.dll" (ByVal hwnd As Long) As Long
6.ReleaseCapture
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
7.PaintDesktop
Private Declare Function PaintDesktop Lib "user32.dll" (ByVal hdc As Long) As Long
8.IsIconic
Private Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
9.IsNTAdmin
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByVal lpdwReserved As Long) As Long
10.CreateDirectoryA
Private Declare Function CreateDirectoryA Lib "kernel32.dll" (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long
با تشكر از دوستاني كه كمك خواهند كرد