Потскажите пожалуйста, ткните пальцем на сталью, где описан способ прикручивания старонней dll-лки (например раравской) к проекту и работы с ней.
P.S. Поиск юзал, все 2964 записей перебрать не удалось
Viper писал(а):А Declare не кошенрный уже способ?
BV писал(а):Может, автор о статической библиотеке?
Я не понял о чем идет речь
Private Declare Function GetShortPathName Lib "kernel32" Alias
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath
As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
ngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
MsgBox GetShortPath("c:\Program Files\")
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 41