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
