A more comprehensible and maintainable version (plain Pascal, never used Inno Setup myself):
Code:
function GetLocales(Param: string): string;
var
UILanguage: Integer;
begin
UILanguage := GetUILanguage and $3FF;
if not (UILanguage in [$10, $09, $0A, $07, $0C, $15, $19, $13])
then UILanguage := $09;
Str($0400 or UILanguage, Result);
end;
__________________
Joe Forster/STA
For more information, see the
FileForums forum rules and the
PC Games forum FAQ!
Don't contact me via E-mail or PM to ask for help with anything other than patches (or software in general) done by me, otherwise your request may be deleted without any reply!
Homepage:
http://sta.c64.org, E-mail:
[email protected]; for attachments, send compressed (ZIP or RAR) files only, otherwise your E-mail will bounce back!