- Код: Выделить всё
Option Explicit
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Function ToWin(sText As String) As String
ToWin = Space(Len(sText))
OemToChar sText, ToWin
End Function
Sub Main()
MsgBox ToWin(Command)
End Sub
BAT файл:
- Код: Выделить всё
project1.exe Привет
При запуске выдает: жи°Єїк
Конечно можно писать BAT файлы в OEM кодировке, но это же извращение
