App.Path, App.EXEName вопросительные знаки в англоязычных ОС

[Adam Smith]

Перепроверял в

Windows XP x64 En
Windows 2008 x64 En
Windows 2012 x64 En

ОС с интерфейсом на английском нормально отображает пути и имена файлов в национальных кодировках, и кириллические в т.ч.
В таких ОС App.Path и App.EXEName вместо русских названий папки и файла возвращают только вопросительные знаки и латиницу.

В таких ОС попытки получить например App.Comments вызывают краш приложения с ошибкой чтения ресурса VERSIONINFO.
Вот такое решение нормально работает:

Код: Выделить всё

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameW" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Код: Выделить всё

    Const MAX_PATH = 32000 '260

    Dim ModuleName As String, sNameTXT As String
    ModuleName = String$(MAX_PATH, vbNullChar)
    GetModuleFileName App.hInstance, ModuleName, MAX_PATH
    ModuleName = StrConv(ModuleName, vbFromUnicode)
    ModuleName = Left$(ModuleName, InStr(ModuleName, vbNullChar) - 1)
    sNameTXT = Right$(ModuleName, Len(ModuleName) - InStrRev(ModuleName, "\"))

[Хакер]

WshFSO.GetFolder(".").Path

Но это совершенно не App.Path, это CurDir.

MsgBox WshShell.CurrentDirectory

То же самое: это CurDir, а не App.Path

CurDir и App.Path только в редких случаях совпадают. Если программа запущена из командной строки и там текущая директория была другой, или если програма запущена через ярлык, и в свойствах ярлыка указана другая рабочая директория, то она будет другой изначально. Кроме того, рабочая директория (CurDir) может легко и многократно меняться по ход работы программы. Во-первых явно: ChDrive+ChDir, во-вторых неявно, например, насколько я помню, диалог выбора/сохранения папки её меняет.

попробовал вот так, но это не работает

Дурацкий код. Коль уж мы работаем с юникодом, то и не должны закладываться на ограничение MAX_PATH, ибо для юникода ограничение существенно большее. Где объвление GetModuleFileName-то?

[Adam Smith]

Но это совершенно не App.Path, это CurDir.

MsgBox WshShell.CurrentDirectory

То же самое: это CurDir, а не App.Path
CurDir и App.Path только в редких случаях совпадают. Если программа запущена из командной строки и там текущая директория была другой, или если программа запущена через ярлык, и в свойствах ярлыка указана другая рабочая директория, то она будет другой изначально. Кроме того, рабочая директория (CurDir) может легко и многократно меняться по ход работы программы. Во-первых явно: ChDrive+ChDir, во-вторых неявно, например, насколько я помню, диалог выбора/сохранения папки её меняет.

попробовал вот так, но это не работает

Дурацкий код. Коль уж мы работаем с юникодом, то и не должны закладываться на ограничение MAX_PATH, ибо для юникода ограничение существенно большее. Где объявление GetModuleFileName-то?

Ты прав, как обычно. Только я не понял, неужели я отредактировал свой первый пост после твоего комментария в 6 утра?
К сожалению до настоящего момента я не видел твой коммент. Кое-как нашел нормальный, рабочий вариант.

Тебе лучше, чем мне понятна суть проблемы App.Path, App.EXEName в аглоязычных виндусах.

[Adam Smith]

В англоязычных ОСях, где в консолях OEM кодировка CP437 консольные утилиты могут выдавать вот такую дичь:

?? ??? ??? ??? ??? ??

??? ??? ??? ?? ??: mrinfo [-n?] [-i ??? ??] [-t ??? ?? ??] [-r ??? ??? ??] ??? ??? ??? ??? ??

-n ??? ??? ?? ?? IP-??? ??? ? ??? ??? ?? ??? ?? ??
-i ??? ?? ??? ?? ?? ??? ?? ??? ??? ?? ?? ??? ??? ?? ?? ? ??? ??? ?? ??? ??? ?? ?? ??? ?? ??
-t ??? ?? ?? ??? ?? ?? ??? IGMP-??? ??? ?? (? ???). ?? ??? ??? ??? ??? ?? 3 ???.
-r ??? ??? ?? ??? ?? ??? ??? ?? ??? ??? ?? SNMP-??? ??? ??. ?? ??? ??? ??? ??? ?? 0.
-? ??? ?? ?? ?? ??? ?? ??

??? ??? ??? ??? ?? ??? ??? ??? ?? ?? ?? ??? ??? ?? ??

Прикол в том, что это не какой-то голимый индус быдлокодинг, это Микрософтовская утилита mrinfo

[The trick]

Adam Smith, отличный вывод

[Adam Smith]

Adam Smith, отличный вывод

Отлично - это описание моей жизни страничку обнови
И вообще я нихрена не понял о чём ты пишешь, яш тупой капец.
Так что объясняй как школьнику, что именно Отлично.

[Adam Smith]

Код: Выделить всё

Private Declare Function OemToChar Lib "user32" Alias "OemToCharW" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

вот так объявил функцию и преобразую:

Код: Выделить всё

    sTextANSI = String$(Len(sText, vbNullChar)
    If OemToChar(sText, sTextANSI) = 1 Then sText = StrConv(sTextANSI, vbFromUnicode)

потом пишу в файл

Код: Выделить всё

    Set oStream = WshFSO.OpenTextFile(sFileTXT, ForWriting, CreateTrue, TristateUnicode)
    oStream.Write sText

в результате вот такой бред в Unicode-файле вместо переводов строки Cr Lf:

Не был указан адрес♪♪◙♪♪◙♪♪◙Использование: mrinfo [-n?] [-i Адрес] [-t Таймаут] [-r Повторов] УзелНазначения♪♪◙ ♪♪◙ -n Отображать IP-адреса в числовом формате♪♪◙ -i Адрес Указать адрес локального интерфейса с которого отправлять

Неужели обязательно построчно читать текстовик CP866, преобразовывать и записывать построчно?

[Adam Smith]

Дурацкий код. Коль уж мы работаем с юникодом, то и не должны закладываться на ограничение MAX_PATH, ибо для юникода ограничение существенно большее. Где объвление GetModuleFileName-то?

Нормальный код написать я не способен в принципе , вот например, зацени, ато я так и не ответил где объвление

Код: Выделить всё

Private Declare Function SendMessage Lib "user32.dll" _
                Alias "SendMessageA" (ByVal hWnd As Long, _
                                      ByVal wMsg As Long, _
                                      ByVal wParam As Long, _
                                      ByVal lParam As Long) As Long

Private Declare Function GetModuleFileName Lib "kernel32.dll" _
                Alias "GetModuleFileNameW" (ByVal hModule As Long, _
                                            ByVal lpFileName As String, _
                                            ByVal nSize As Long) As Long

Private Declare Function ExtractIconEx Lib "shell32.dll" _
                Alias "ExtractIconExW" (ByVal lpszFile As String, _
                                        ByVal nIconIndex As Long, _
                                        ByRef phiconLarge As Long, _
                                        ByRef phiconSmall As Long, ByVal nIcons As Long) As Long

With Me
    .Caption = LoadResString(1&)

'32х битные иконки
    .Icon = Nothing                     ' удаляем корявую иконку если она была
'Unicode App.Path\App.EXEName в первозданном национальном алфавите
    Const MAX_PATH = 32000&
    Dim UnicodeEXE As String

    UnicodeEXE = String$(MAX_PATH, vbNullChar)
    UnicodeEXE = Left$(UnicodeEXE, GetModuleFileName(App.hInstance, UnicodeEXE, MAX_PATH) * 2&)

    Const WM_SETICON As Long = 128& ' &H80
    Const ICON_SMALL As Long = 0&   ' значок в уголке окна
    Const ICON_BIG As Long = 1&     ' значок в окне alt-tab
    Dim lIcoB As Long
    Dim lIcoS As Long
    ExtractIconEx UnicodeEXE, 0&, lIcoB, lIcoS, 1&
'    lIcoB = LoadResPicture(2&, vbResIcon)
    SendMessage .hWnd, WM_SETICON, ICON_BIG, ByVal lIcoB
    SendMessage .hWnd, WM_SETICON, ICON_SMALL, ByVal lIcoS