چگونگی استفاده از api

[seh x]

برای استفاده از api ها روش کلی وجود دارد؟با یکی دوتا مثال به صورت خیلی مبتدی توضیح بدید.

[sherwood]

عزیز منظورت چیه بیشتر توضیح بده
خوب باید تابع رو تو قسمت general تعریف کنی بعد تو برنامه ازش استفاده کنی دیگه
کلی و جزئی نداره

[sherwood]

اینم یه نمونه ساده:



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