mirror of
https://github.com/red-prig/fpPS4.git
synced 2024-11-23 14:29:53 +00:00
add locale detect
This commit is contained in:
Pavel
parent
d143734fb7
commit
2ce5c4caca
@ -5,14 +5,18 @@ unit ps4_libSceSystemService;
|
||||
interface
|
||||
|
||||
uses
|
||||
ps4_program,
|
||||
Classes,
|
||||
SysUtils;
|
||||
SysUtils,
|
||||
windows,
|
||||
ps4_program;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
sys_kernel;
|
||||
sys_types,
|
||||
sys_kernel,
|
||||
sys_signal,
|
||||
sys_time;
|
||||
|
||||
const
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_LANG =1;
|
||||
@ -36,29 +40,29 @@ const
|
||||
SCE_SYSTEM_SERVICE_ERROR_NOT_FLAG_IN_PARAM_SFO =-2136932342;
|
||||
|
||||
// Language
|
||||
SCE_SYSTEM_PARAM_LANG_JAPANESE =0;
|
||||
SCE_SYSTEM_PARAM_LANG_ENGLISH_US =1;
|
||||
SCE_SYSTEM_PARAM_LANG_FRENCH =2;
|
||||
SCE_SYSTEM_PARAM_LANG_SPANISH =3;
|
||||
SCE_SYSTEM_PARAM_LANG_GERMAN =4;
|
||||
SCE_SYSTEM_PARAM_LANG_ITALIAN =5;
|
||||
SCE_SYSTEM_PARAM_LANG_DUTCH =6;
|
||||
SCE_SYSTEM_PARAM_LANG_PORTUGUESE_PT =7;
|
||||
SCE_SYSTEM_PARAM_LANG_RUSSIAN =8;
|
||||
SCE_SYSTEM_PARAM_LANG_KOREAN =9;
|
||||
SCE_SYSTEM_PARAM_LANG_CHINESE_T =10;
|
||||
SCE_SYSTEM_PARAM_LANG_CHINESE_S =11;
|
||||
SCE_SYSTEM_PARAM_LANG_FINNISH =12;
|
||||
SCE_SYSTEM_PARAM_LANG_SWEDISH =13;
|
||||
SCE_SYSTEM_PARAM_LANG_DANISH =14;
|
||||
SCE_SYSTEM_PARAM_LANG_NORWEGIAN =15;
|
||||
SCE_SYSTEM_PARAM_LANG_POLISH =16;
|
||||
SCE_SYSTEM_PARAM_LANG_PORTUGUESE_BR =17;
|
||||
SCE_SYSTEM_PARAM_LANG_ENGLISH_GB =18;
|
||||
SCE_SYSTEM_PARAM_LANG_TURKISH =19;
|
||||
SCE_SYSTEM_PARAM_LANG_SPANISH_LA =20;
|
||||
SCE_SYSTEM_PARAM_LANG_ARABIC =21;
|
||||
SCE_SYSTEM_PARAM_LANG_FRENCH_CA =22;
|
||||
SCE_SYSTEM_PARAM_LANG_JAPANESE =0; //LANG_JAPANESE
|
||||
SCE_SYSTEM_PARAM_LANG_ENGLISH_US =1; //else
|
||||
SCE_SYSTEM_PARAM_LANG_FRENCH =2; //LANG_FRENCH else
|
||||
SCE_SYSTEM_PARAM_LANG_SPANISH =3; //LANG_SPANISH SUBLANG_SPANISH SUBLANG_SPANISH_MEXICAN SUBLANG_SPANISH_MODERN
|
||||
SCE_SYSTEM_PARAM_LANG_GERMAN =4; //LANG_GERMAN
|
||||
SCE_SYSTEM_PARAM_LANG_ITALIAN =5; //LANG_ITALIAN
|
||||
SCE_SYSTEM_PARAM_LANG_DUTCH =6; //LANG_DUTCH
|
||||
SCE_SYSTEM_PARAM_LANG_PORTUGUESE_PT =7; //LANG_PORTUGUESE SUBLANG_PORTUGUESE
|
||||
SCE_SYSTEM_PARAM_LANG_RUSSIAN =8; //LANG_RUSSIAN
|
||||
SCE_SYSTEM_PARAM_LANG_KOREAN =9; //LANG_KOREAN
|
||||
SCE_SYSTEM_PARAM_LANG_CHINESE_T =10; //LANG_CHINESE else
|
||||
SCE_SYSTEM_PARAM_LANG_CHINESE_S =11; //LANG_CHINESE SUBLANG_CHINESE_SIMPLIFIED
|
||||
SCE_SYSTEM_PARAM_LANG_FINNISH =12; //LANG_FINNISH
|
||||
SCE_SYSTEM_PARAM_LANG_SWEDISH =13; //LANG_SWEDISH
|
||||
SCE_SYSTEM_PARAM_LANG_DANISH =14; //LANG_DANISH
|
||||
SCE_SYSTEM_PARAM_LANG_NORWEGIAN =15; //LANG_NORWEGIAN
|
||||
SCE_SYSTEM_PARAM_LANG_POLISH =16; //LANG_POLISH
|
||||
SCE_SYSTEM_PARAM_LANG_PORTUGUESE_BR =17; //LANG_PORTUGUESE SUBLANG_PORTUGUESE_BRAZILIAN
|
||||
SCE_SYSTEM_PARAM_LANG_ENGLISH_GB =18; //LANG_ENGLISH SUBLANG_ENGLISH_UK
|
||||
SCE_SYSTEM_PARAM_LANG_TURKISH =19; //LANG_TURKISH
|
||||
SCE_SYSTEM_PARAM_LANG_SPANISH_LA =20; //LANG_SPANISH else
|
||||
SCE_SYSTEM_PARAM_LANG_ARABIC =21; //LANG_ARABIC
|
||||
SCE_SYSTEM_PARAM_LANG_FRENCH_CA =22; //LANG_FRENCH SUBLANG_FRENCH_CANADIAN
|
||||
|
||||
// Date
|
||||
SCE_SYSTEM_PARAM_DATE_FORMAT_YYYYMMDD=0;
|
||||
@ -91,23 +95,129 @@ const
|
||||
SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CROSS =1;
|
||||
|
||||
function ps4_sceSystemServiceParamGetInt(paramId:Integer;value:Pinteger):Integer; SysV_ABI_CDecl;
|
||||
var
|
||||
info:DWORD;
|
||||
Format:array[0..0] of AnsiChar;
|
||||
z:timezone;
|
||||
begin
|
||||
Writeln('ParamGetInt:',paramId);
|
||||
Result:=SCE_SYSTEM_SERVICE_ERROR_PARAMETER;
|
||||
if value=nil then Exit;
|
||||
if (value=nil) then Exit;
|
||||
value^:=0;
|
||||
|
||||
if ((paramId<>SCE_SYSTEM_SERVICE_PARAM_ID_ENTER_BUTTON_ASSIGN) and
|
||||
((paramId < SCE_SYSTEM_SERVICE_PARAM_ID_LANG) or (paramId > SCE_SYSTEM_SERVICE_PARAM_ID_GAME_PARENTAL_LEVEL))) then
|
||||
Exit;
|
||||
Case paramId of
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_LANG,
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_GAME_PARENTAL_LEVEL,
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_ENTER_BUTTON_ASSIGN:Result:=0;
|
||||
else
|
||||
Exit;
|
||||
end;
|
||||
|
||||
Case paramId of
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_LANG :value^:=SCE_SYSTEM_PARAM_LANG_CHINESE_T;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_DATE_FORMAT:value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_DDMMYYYY;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_FORMAT:value^:=SCE_SYSTEM_PARAM_TIME_FORMAT_12HOUR;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_ZONE :value^:=480;// GMT+8
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_SUMMERTIME :value^:=1; // 1 in daylight savings time, 0 not in daylight savings time
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME:;// for sceSystemServiceParamGetString, shouldn't be used here.
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_LANG:
|
||||
begin
|
||||
_sig_lock;
|
||||
info:=GetThreadLocale;
|
||||
_sig_unlock;
|
||||
info:=info and $FFFF;
|
||||
|
||||
Case (info and $3FF) of //LANG_*
|
||||
LANG_JAPANESE :value^:=SCE_SYSTEM_PARAM_LANG_JAPANESE;
|
||||
|
||||
LANG_ENGLISH :
|
||||
Case (info shr 10) of //SUBLANG_*
|
||||
SUBLANG_ENGLISH_UK:value^:=SCE_SYSTEM_PARAM_LANG_ENGLISH_GB;
|
||||
else value^:=SCE_SYSTEM_PARAM_LANG_ENGLISH_US;
|
||||
end;
|
||||
|
||||
LANG_FRENCH :
|
||||
Case (info shr 10) of //SUBLANG_*
|
||||
SUBLANG_FRENCH_CANADIAN:value^:=SCE_SYSTEM_PARAM_LANG_FRENCH_CA;
|
||||
else value^:=SCE_SYSTEM_PARAM_LANG_FRENCH;
|
||||
end;
|
||||
|
||||
LANG_SPANISH :
|
||||
Case (info shr 10) of //SUBLANG_*
|
||||
SUBLANG_SPANISH,
|
||||
SUBLANG_SPANISH_MEXICAN,
|
||||
SUBLANG_SPANISH_MODERN:value^:=SCE_SYSTEM_PARAM_LANG_SPANISH;
|
||||
else
|
||||
value^:=SCE_SYSTEM_PARAM_LANG_SPANISH_LA;
|
||||
end;
|
||||
|
||||
LANG_GERMAN :value^:=SCE_SYSTEM_PARAM_LANG_GERMAN;
|
||||
LANG_ITALIAN :value^:=SCE_SYSTEM_PARAM_LANG_ITALIAN;
|
||||
LANG_DUTCH :value^:=SCE_SYSTEM_PARAM_LANG_DUTCH;
|
||||
|
||||
LANG_PORTUGUESE:
|
||||
Case (info shr 10) of //SUBLANG_*
|
||||
SUBLANG_PORTUGUESE:value^:=SCE_SYSTEM_PARAM_LANG_PORTUGUESE_PT;
|
||||
else value^:=SCE_SYSTEM_PARAM_LANG_PORTUGUESE_BR;
|
||||
end;
|
||||
|
||||
LANG_RUSSIAN :value^:=SCE_SYSTEM_PARAM_LANG_RUSSIAN;
|
||||
LANG_KOREAN :value^:=SCE_SYSTEM_PARAM_LANG_KOREAN;
|
||||
|
||||
LANG_CHINESE :
|
||||
Case (info shr 10) of //SUBLANG_*
|
||||
SUBLANG_CHINESE_SIMPLIFIED:value^:=SCE_SYSTEM_PARAM_LANG_CHINESE_S;
|
||||
else value^:=SCE_SYSTEM_PARAM_LANG_CHINESE_T;
|
||||
end;
|
||||
|
||||
LANG_FINNISH :value^:=SCE_SYSTEM_PARAM_LANG_FINNISH;
|
||||
LANG_SWEDISH :value^:=SCE_SYSTEM_PARAM_LANG_SWEDISH;
|
||||
LANG_DANISH :value^:=SCE_SYSTEM_PARAM_LANG_DANISH;
|
||||
LANG_NORWEGIAN :value^:=SCE_SYSTEM_PARAM_LANG_NORWEGIAN;
|
||||
LANG_POLISH :value^:=SCE_SYSTEM_PARAM_LANG_POLISH;
|
||||
LANG_TURKISH :value^:=SCE_SYSTEM_PARAM_LANG_TURKISH;
|
||||
LANG_ARABIC :value^:=SCE_SYSTEM_PARAM_LANG_ARABIC;
|
||||
|
||||
else
|
||||
value^:=SCE_SYSTEM_PARAM_LANG_ENGLISH_US;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_DATE_FORMAT:
|
||||
begin
|
||||
Format[0]:=#0;
|
||||
_sig_lock;
|
||||
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_ILDATE,@Format,1);
|
||||
_sig_unlock;
|
||||
|
||||
Case Format[0] of
|
||||
'0':value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_MMDDYYYY;
|
||||
'1':value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_DDMMYYYY;
|
||||
'2':value^:=SCE_SYSTEM_PARAM_DATE_FORMAT_YYYYMMDD;
|
||||
end;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_FORMAT:
|
||||
begin
|
||||
Format[0]:=#0;
|
||||
_sig_lock;
|
||||
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_ILDATE,@Format,1);
|
||||
_sig_unlock;
|
||||
|
||||
Case Format[0] of
|
||||
'0':value^:=SCE_SYSTEM_PARAM_TIME_FORMAT_12HOUR;
|
||||
'1':value^:=SCE_SYSTEM_PARAM_TIME_FORMAT_24HOUR;
|
||||
end;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_ZONE:
|
||||
begin
|
||||
Swgettimezone(@z);
|
||||
value^:=z.tz_minuteswest;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_SUMMERTIME:
|
||||
begin
|
||||
Swgettimezone(@z);
|
||||
value^:=z.tz_dsttime;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME:;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_GAME_PARENTAL_LEVEL:value^:=SCE_SYSTEM_PARAM_GAME_PARENTAL_OFF;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_ENTER_BUTTON_ASSIGN:value^:=SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CIRCLE;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user