VB6的Unicode文件名支持

acme_pjz · 发表于 2012-4-18 22:05:23

如题，给Dir,FileLen等函数加了Unicode版本，另外通过API钩子实现Open语句支持Unicode文件名

补充内容 (2012-4-22 13:24):
发现一个问题，Name xx As xx语句没有Unicode化……

补充内容 (2012-4-25 13:11):
还有另一个函数不支持Unicode：Shell

JuncoJet · 发表于 2012-4-18 22:05:24

O(∩_∩)O哈哈~，沙发是我的啦
JuncoJet 于 2012-4-19 04:20 使用抢沙发抢夺本帖沙发

garyng · 发表于 2012-4-18 22:19:54

沙发是我的～～～

强得顶！
下载试试

flash · 发表于 2012-4-18 22:22:52

用VC定义一个UNICODE条件编译就支持了...

Jen · 发表于 2012-4-18 22:53:40

本帖最后由 Jen 于 2012-4-18 22:58 编辑

我常用：

Public Function FileExists(FileName As String, Optional ByVal useUnicode As Boolean) As Boolean
' test to see if a file exists
Const INVALID_HANDLE_VALUE = -1&
Dim bISNT As Boolean
bISNT = IsWinNt
If bISNT = False Then bISNT = (Not (IsWindowUnicode(GetDesktopWindow) = 0&))
If bISNT Then
FileExists = Not (GetFileAttributesW(StrPtr(FileName)) = INVALID_HANDLE_VALUE)
Else
FileExists = Not (GetFileAttributesA(FileName) = INVALID_HANDLE_VALUE)
End If
End Function
Private Function OpenFileW(FileName As String)
' Function uses APIs to read file name with unicode characters
Const GENERIC_READ As Long = &H80000000
Const GENERIC_WRITE = &H40000000
Const OPEN_EXISTING = &H3
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20
Const FILE_ATTRIBUTE_HIDDEN As Long = &H2
Const FILE_ATTRIBUTE_READONLY As Long = &H1
Const FILE_ATTRIBUTE_SYSTEM As Long = &H4
Const FILE_ATTRIBUTE_NORMAL = &H80&
Dim Flags As Long, Access As Long
Dim Disposition As Long, Share As Long
Dim hFile As Long
Access = GENERIC_READ
Share = FILE_SHARE_READ
Disposition = OPEN_EXISTING
Flags = FILE_ATTRIBUTE_ARCHIVE Or FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_NORMAL _
Or FILE_ATTRIBUTE_READONLY Or FILE_ATTRIBUTE_SYSTEM
hFile = CreateFileW(StrPtr(FileName), Access, Share, 0&, Disposition, Flags, 0&)
If hFile = 0 Then
If isStringANSI(FileName) Then
' hFile should never be zero. It should be -1 (error) or a valid handle
' when hFile is zero, most likely API was called on a Win9x system
' so we will call the ANSI version and see if that returns a handle
hFile = CreateFileA(FileName, Access, Share, 0&, Disposition, Flags, 0&)
End If
End If
If Not hFile = -1 Then OpenFileW = hFile
End Function
Public Function isStringANSI(inText As String) As Boolean
' simple test to determine if passed string is ANSI-like or not.
' In other words, does it contain unicode characters.
Dim tArray() As Byte
Dim x As Long
If inText = vbNullString Then
isStringANSI = True
Else
tArray = inText
For x = LBound(tArray) + 1 To UBound(tArray) Step 2
If Not tArray(x) = 0 Then Exit For
Next x
isStringANSI = (x > UBound(tArray))
End If
End Function

复制代码

lekj · 发表于 2012-4-18 23:03:40

我倒真没想过要加这些函数..........

菜鸟学飞 · 发表于 2012-4-18 23:23:10

HOOK? 这东西不用说 250 肯定报毒....

JuncoJet · 发表于 2012-4-19 04:22:10

菜鸟学飞发表于 2012-4-18 23:23
HOOK? 这东西不用说 250 肯定报毒....

inline Hook自己，估计不会报的

JuncoJet · 发表于 2012-4-19 04:23:19

论坛点评和回复标签位置是不是交换过了？为什么一直按错的说…………
每次想点评都按成回复

renyucai1963 · 发表于 2012-4-19 07:52:32

		自动登录	找回密码
密码			立即注册

VBGood网站全文搜索

[分享] VB6的Unicode文件名支持

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评

点评

点评

点评