May you also check the DefaultSystemCodePage value and StringCodePage(wParam) before and after assigning wParam
Luiz 2015-02-19 8:02 GMT-03:00 luiz americo pereira camara <[email protected]>: > > > 2015-02-19 5:30 GMT-03:00 FreeMan <[email protected]>: > >> osx fpc & lazarus svn QT x64 >> my project's Compiler options has >> -FcUTF8 >> -dEnableUTF8 >> >> this is my code: this code work normal without ut8 params >> >> const >> WIN_EXE: String = 'MZ'; >> LINUX_EXE: String = #127 + 'ELF'; >> var >> wFileStr: TFileStream; >> ar: array[0..4] of byte; >> ExecType: char; >> wProgram := ParamStrUTF8(0); >> > > > What type is wParam? > > Can you check the return value of the below procedure when passing wParam > with and without -FcUTF8? > > function StrToHex(const S: RawByteString): String; > var > i: Integer; > begin > Result := ''; > if S = '' then > Exit; > for i := 1 to Length(S) do > begin > Result := Result + IntToHex(Byte(S[i]), 0); > end; > end; > > Luiz >
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
