Code : Tout sélectionner
Func _OEMToAnsi($sOEM)
Local $a_AnsiFName = DllCall('user32.dll', 'Int', 'OemToChar', 'str', $sOEM, 'str', '')
If @error = 0 Then $sAnsi = $a_AnsiFName[2]
Return $sAnsi
EndFunc ;==>_OEMToAnsi
Func _AnsiToOEM($sAnsi)
Local $a_OEMFName = DllCall('user32.dll', 'Int', 'CharToOem', 'str', $sAnsi, 'str', '')
If @error = 0 Then Return $a_OEMFName[2]
EndFunc ;==>_AnsiToOEM
Code : Tout sélectionner
Dim $Foo, $line
$Foo = Run(@ComSpec & ' /c DIR', @ScriptDir, @SW_HIDE, 2) ; 2 = $STDOUT_CHILD
; Lecture du STDOut
While 1
$line &= StdoutRead($Foo)
If @error Then ExitLoop
WEnd
MsgBox(0, 'Version OEM', $line)
MsgBox(0, 'Version ANSI', _OEMToAnsi($line))
Func _OEMToAnsi($sOEM)
Local $a_AnsiFName = DllCall('user32.dll', 'Int', 'OemToChar', 'str', $sOEM, 'str', '')
If @error = 0 Then $sAnsi = $a_AnsiFName[2]
Return $sAnsi
EndFunc ;==>_OEMToAnsi