برای استفاده از api ها روش کلی وجود دارد؟با یکی دوتا مثال به صورت خیلی مبتدی توضیح بدید.
برای استفاده از api ها روش کلی وجود دارد؟با یکی دوتا مثال به صورت خیلی مبتدی توضیح بدید.
عزیز منظورت چیه بیشتر توضیح بده
خوب باید تابع رو تو قسمت general تعریف کنی بعد تو برنامه ازش استفاده کنی دیگه
کلی و جزئی نداره
اینم یه نمونه ساده:
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type
Private Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32.dll" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As Long) As Long
Private Sub Form_Load()
Dim hsearch As Long
Dim findinfo As WIN32_FIND_DATA
Dim success As Long
Dim buffer As String
Dim retval As Long
Me.AutoRedraw = True
hsearch = FindFirstFile("C:\*.*", findinfo)
If hsearch = -1 Then
Me.Print "(no files matched search parameter)"
End If
Do
buffer = Left(findinfo.cFileName, InStr(findinfo.cFileName, vbNullChar) - 1)
Me.Print buffer
success = FindNextFile(hsearch, findinfo)
Loop Until success = 0
retval = FindClose(hsearch)
End Sub
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)