;=============================================================================== ; Name: OemToChar ; Description: Wandelt einen ASCII- in einen ANSI-String ; Parameter(s): $szSrc = String der umgewandelt werden soll ; Requirement(s): keine ; Return Value(s): bei Erfolg: umgewandelter String ; bei Fehler: "" und @error = 1 ; Author(s): bernd670 ;=============================================================================== Func OemToChar($szSrc) ;~ Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Local $placeholder For $i = 0 To StringLen($szSrc) $placeholder &= " " Next Local $lRetVal = DllCall("user32.dll", "long", "OemToChar", "str", $szSrc, "str", $placeholder) If IsArray($lRetVal) And $lRetVal[0] = 1 Then Return SetError(0, 0, $lRetVal[2]) EndIf Return SetError(1, 0, "") EndFunc ;==>OemToChar |