GetUserDir

[LA.Center]

GetUserDir does not support Chinese/Russian chars, need a workaround.

Code: [Select]

var
  _userpath: string;
begin
  _userpath := GetUserDir;
...

comes out like c:\Users\???????????\

[Bart]

Maybe use SysToUtf8() if you are displaying it in an LCL application?

Bart

[LA.Center]

Thx for the info, yes I tried that already and it works for Turkish and Slavish chars but not for Greek, Russian, Chinese -> the higher set chars.

I do display it in a FileEdit and a normal Edit and it is really a problem.

[Bart]

If you are on windows, you could try implementing a GetSpecialDir() function that uses SHGetFolderPathW instead of SHGetFolderPathA?
Then convert the WideString to Utf8?

The GetSpecialDir source is in rtl\win\sysutils.pp

Bart

[LA.Center]

I need it for all platforms, its weird that it does not work though.

[felipemdc]

I need it for all platforms, its weird that it does not work though.

The Free Pascal RTL does not yet support Unicode, although maybe FPC 2.8 will support. So nothing from the RTL supports Unicode reliably at the moment.

If you track GetUserDir is from the unit SysUtils which is inside the RTL http://www.freepascal.org/docs-html/rtl/sysutils/getuserdir.html

Lazarus has it's own set of routines in the package lazutils in units like fileutils, lazutf8sysutils and lazutf8classes, but those are very far from complete. Of course patches are welcome to implement missing parts, you can see how fileutils implements various things and do something similar.