Hello,
I'm trying to make a function for using wine_get_unix_file_name in VB6
programs.
Private Declare Function lstrcpyA Lib "kernel32.dll" (ByVal lpString1 As
String, ByVal lpString2 As Long) As Long
Public Declare Function GetProcessHeap Lib "kernel32" () As Long
Public Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal
dwFlags As Long, IpMem As Any) As Long
Public Declare Function wine_get_unix_file_name Lib "kernel32" (ByVal
lpszSrc As String) As Long
Public Function GetUnixPath(ByVal sPath As String) As String
Dim ptr As Long
Dim sBuffer As String * 255
ptr = wine_get_unix_file_name(StrConv(sPath, vbUnicode))
lstrcpyA sBuffer, ptr
HeapFree GetProcessHeap(), 0, ByVal ptr
GetUnixPath = sBuffer
End Function
Sub Main()
UnixPath = GetUnixPath()
MsgBox UnixPath
End usb
When running this code I got a blank msgbox can anyone help me please.
See you.
Escuder Nicolas
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.winehq.org/pipermail/wine-users/attachments/20080509/4b1f3352/attachment.htm
