mirror of https://github.com/red-prig/fpPS4.git
System Service Gui
This commit is contained in:
Pavel
parent
ac884d9c30
commit
1fb62b438b
237
gui/cfg_edit.lfm
237
gui/cfg_edit.lfm
|
|
@ -1,7 +1,7 @@
|
|||
object frmCfgEditor: TfrmCfgEditor
|
||||
Left = 448
|
||||
Height = 319
|
||||
Top = 221
|
||||
Top = 198
|
||||
Width = 400
|
||||
Caption = 'Config Editor'
|
||||
ClientHeight = 319
|
||||
|
|
@ -13,11 +13,11 @@ object frmCfgEditor: TfrmCfgEditor
|
|||
Height = 270
|
||||
Top = 0
|
||||
Width = 397
|
||||
ActivePage = Tab_Vulkan
|
||||
ActivePage = Tab_PS4System
|
||||
Align = alCustom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Bottom = 10
|
||||
TabIndex = 4
|
||||
TabIndex = 5
|
||||
TabOrder = 0
|
||||
object Tab_MainInfo: TTabSheet
|
||||
Caption = 'Main'
|
||||
|
|
@ -514,6 +514,237 @@ object frmCfgEditor: TfrmCfgEditor
|
|||
}
|
||||
end
|
||||
end
|
||||
object Tab_PS4System: TTabSheet
|
||||
Caption = 'PS4 System'
|
||||
ClientHeight = 242
|
||||
ClientWidth = 389
|
||||
object PanelHalf: TPanel
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrCenter
|
||||
Left = 188
|
||||
Height = 49
|
||||
Top = 64
|
||||
Width = 12
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BevelOuter = bvNone
|
||||
Enabled = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object Edt_PS4SystemService_Language: TComboBox
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 10
|
||||
Height = 23
|
||||
Top = 93
|
||||
Width = 369
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
ItemHeight = 15
|
||||
Items.Strings = (
|
||||
'Japanese'
|
||||
'English (United States)'
|
||||
'French (France)'
|
||||
'Spanish (Spain)'
|
||||
'German'
|
||||
'Italian'
|
||||
'Dutch'
|
||||
'Portuguese (Portugal)'
|
||||
'Russian'
|
||||
'Korean'
|
||||
'Chinese (traditional)'
|
||||
'Chinese (simplified)'
|
||||
'Finnish'
|
||||
'Swedish'
|
||||
'Danish'
|
||||
'Norwegian'
|
||||
'Polish'
|
||||
'Portuguese (Brazil)'
|
||||
'English (United Kingdom)'
|
||||
'Turkish'
|
||||
'Spanish (Latin America)'
|
||||
'Arabic'
|
||||
'French (Canada)'
|
||||
'Czech'
|
||||
'Hungarian'
|
||||
'Greek'
|
||||
'Romanian'
|
||||
'Thai'
|
||||
'Vietnamese'
|
||||
'Indonesian'
|
||||
'Ukrainian'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 2
|
||||
end
|
||||
object Edt_PS4SystemService_DateFormat: TComboBox
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PanelHalf
|
||||
Left = 10
|
||||
Height = 23
|
||||
Top = 151
|
||||
Width = 168
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
ItemHeight = 15
|
||||
Items.Strings = (
|
||||
'YYYYMMDD'
|
||||
'DDMMYYYY'
|
||||
'MMDDYYYY'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 3
|
||||
end
|
||||
object Label6: TLabel
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Edt_PS4SystemService_Language
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PanelHalf
|
||||
Left = 10
|
||||
Height = 15
|
||||
Top = 126
|
||||
Width = 168
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
Caption = 'Date Format:'
|
||||
end
|
||||
object Edt_PS4SystemService_TimeFormat: TComboBox
|
||||
AnchorSideLeft.Control = PanelHalf
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Label6
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 210
|
||||
Height = 23
|
||||
Top = 151
|
||||
Width = 169
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
ItemHeight = 15
|
||||
Items.Strings = (
|
||||
'12HOUR'
|
||||
'24HOUR'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 4
|
||||
end
|
||||
object Label7: TLabel
|
||||
AnchorSideLeft.Control = PanelHalf
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Edt_PS4SystemService_Language
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 210
|
||||
Height = 15
|
||||
Top = 126
|
||||
Width = 169
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
Caption = 'Time Format:'
|
||||
end
|
||||
object Label8: TLabel
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Edt_PS4SystemService_TimeFormat
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PanelHalf
|
||||
Left = 10
|
||||
Height = 15
|
||||
Top = 184
|
||||
Width = 168
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
Caption = 'Button Assign:'
|
||||
end
|
||||
object Edt_PS4SystemService_ButtonAssign: TComboBox
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Label8
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PanelHalf
|
||||
Left = 10
|
||||
Height = 23
|
||||
Top = 209
|
||||
Width = 168
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
ItemHeight = 15
|
||||
Items.Strings = (
|
||||
'CIRCLE'
|
||||
'CROSS'
|
||||
)
|
||||
Style = csDropDownList
|
||||
TabOrder = 5
|
||||
end
|
||||
object Label9: TLabel
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Tab_PS4System
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 10
|
||||
Height = 15
|
||||
Top = 10
|
||||
Width = 369
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
Caption = 'System Name:'
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Edt_PS4SystemService_SystemName
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 10
|
||||
Height = 15
|
||||
Top = 68
|
||||
Width = 369
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
Caption = 'Language:'
|
||||
end
|
||||
object Edt_PS4SystemService_SystemName: TEdit
|
||||
AnchorSideLeft.Control = Tab_PS4System
|
||||
AnchorSideTop.Control = Label9
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Tab_PS4System
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 10
|
||||
Height = 23
|
||||
Top = 35
|
||||
Width = 369
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 10
|
||||
MaxLength = 65
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
object BtnCancel: TButton
|
||||
AnchorSideLeft.Control = Owner
|
||||
|
|
|
|||
|
|
@ -36,6 +36,11 @@ type
|
|||
BtnOk: TButton;
|
||||
BtnLogOpen: TButton;
|
||||
BtnDataOpen: TButton;
|
||||
Edt_PS4SystemService_SystemName: TEdit;
|
||||
Edt_PS4SystemService_ButtonAssign: TComboBox;
|
||||
Edt_PS4SystemService_TimeFormat: TComboBox;
|
||||
Edt_PS4SystemService_Language: TComboBox;
|
||||
Edt_PS4SystemService_DateFormat: TComboBox;
|
||||
GrAppFlags: TCheckGroup;
|
||||
Edt_VulkanInfo_device_cmb: TComboBox;
|
||||
Edt_BootparamInfo_halt_on_exit: TCheckBox;
|
||||
|
|
@ -60,6 +65,13 @@ type
|
|||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
PanelHalf: TPanel;
|
||||
Tab_PS4System: TTabSheet;
|
||||
Tab_Vulkan: TTabSheet;
|
||||
Tab_Misc: TTabSheet;
|
||||
Tab_JIT: TTabSheet;
|
||||
|
|
@ -94,7 +106,9 @@ implementation
|
|||
|
||||
uses
|
||||
TypInfo,
|
||||
Rtti;
|
||||
Rtti,
|
||||
|
||||
ps4_libSceSystemService;
|
||||
|
||||
var
|
||||
FVulkanDeviceInit:Boolean=False;
|
||||
|
|
@ -266,26 +280,26 @@ end;
|
|||
|
||||
procedure SetText(control:TComponent;const Text:RawByteString);
|
||||
begin
|
||||
if control.InheritsFrom(TControl) then
|
||||
begin
|
||||
TMyControl(control).Text:=Text;
|
||||
end else
|
||||
if (control is TVulkanDevGuid) then
|
||||
begin
|
||||
TVulkanDevGuid(control).SetText(Text);
|
||||
end else
|
||||
if control.InheritsFrom(TControl) then
|
||||
begin
|
||||
TMyControl(control).Text:=Text;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetText(control:TComponent):RawByteString;
|
||||
begin
|
||||
Result:='';
|
||||
if control.InheritsFrom(TControl) then
|
||||
begin
|
||||
Result:=TMyControl(control).Text;
|
||||
end else
|
||||
if (control is TVulkanDevGuid) then
|
||||
begin
|
||||
Result:=TVulkanDevGuid(control).GetText;
|
||||
end else
|
||||
if control.InheritsFrom(TControl) then
|
||||
begin
|
||||
Result:=TMyControl(control).Text;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -296,6 +310,28 @@ begin
|
|||
if (control is TVulkanAppFlags) then
|
||||
begin
|
||||
TVulkanAppFlags(control).SetInteger(i);
|
||||
end else
|
||||
if control.InheritsFrom(TCustomComboBox) then
|
||||
begin
|
||||
if (i=-1) then
|
||||
begin
|
||||
//preload default
|
||||
if (control.Name='Edt_PS4SystemService_Language') then
|
||||
begin
|
||||
i:=GetHostSystemLang;
|
||||
end else
|
||||
if (control.Name='Edt_PS4SystemService_DateFormat') then
|
||||
begin
|
||||
i:=GetHostSystemDateFormat;
|
||||
end else
|
||||
if (control.Name='Edt_PS4SystemService_TimeFormat') then
|
||||
begin
|
||||
i:=GetHostSystemTimeFormat;
|
||||
end;
|
||||
//preload default
|
||||
end;
|
||||
|
||||
TCustomComboBox(control).ItemIndex:=i;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -305,6 +341,10 @@ begin
|
|||
if (control is TVulkanAppFlags) then
|
||||
begin
|
||||
Result:=TVulkanAppFlags(control).GetInteger;
|
||||
end else
|
||||
if control.InheritsFrom(TCustomComboBox) then
|
||||
begin
|
||||
Result:=TCustomComboBox(control).ItemIndex;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -166,19 +166,38 @@ type
|
|||
property app_flags:DWORD read Fapp_flags write Fapp_flags;
|
||||
end;
|
||||
|
||||
TPS4SystemService=class(TAbstractObject)
|
||||
private
|
||||
FSystemName :RawByteString;
|
||||
FLanguage :ShortInt;
|
||||
FDateFormat :ShortInt;
|
||||
FTimeFormat :ShortInt;
|
||||
FButtonAssign:Byte;
|
||||
published
|
||||
property SystemName :RawByteString read FSystemName write FSystemName;
|
||||
property Language :ShortInt read FLanguage write FLanguage;
|
||||
property DateFormat :ShortInt read FDateFormat write FDateFormat;
|
||||
property TimeFormat :ShortInt read FTimeFormat write FTimeFormat;
|
||||
property ButtonAssign:Byte read FButtonAssign write FButtonAssign;
|
||||
public
|
||||
Constructor Create; override;
|
||||
end;
|
||||
|
||||
TConfigInfo=class(TAbstractObject)
|
||||
private
|
||||
FMainInfo :TMainInfo;
|
||||
FBootParamInfo:TBootParamInfo;
|
||||
FJITInfo :TJITInfo;
|
||||
FMiscInfo :TMiscInfo;
|
||||
FVulkanInfo :TVulkanInfo;
|
||||
FMainInfo :TMainInfo;
|
||||
FBootParamInfo :TBootParamInfo;
|
||||
FJITInfo :TJITInfo;
|
||||
FMiscInfo :TMiscInfo;
|
||||
FVulkanInfo :TVulkanInfo;
|
||||
FPS4SystemService:TPS4SystemService;
|
||||
published
|
||||
property MainInfo :TMainInfo read FMainInfo write FMainInfo;
|
||||
property BootParamInfo:TBootParamInfo read FBootParamInfo write FBootParamInfo;
|
||||
property JITInfo :TJITInfo read FJITInfo write FJITInfo;
|
||||
property MiscInfo :TMiscInfo read FMiscInfo write FMiscInfo;
|
||||
property VulkanInfo :TVulkanInfo read FVulkanInfo write FVulkanInfo;
|
||||
property MainInfo :TMainInfo read FMainInfo write FMainInfo;
|
||||
property BootParamInfo :TBootParamInfo read FBootParamInfo write FBootParamInfo;
|
||||
property JITInfo :TJITInfo read FJITInfo write FJITInfo;
|
||||
property MiscInfo :TMiscInfo read FMiscInfo write FMiscInfo;
|
||||
property VulkanInfo :TVulkanInfo read FVulkanInfo write FVulkanInfo;
|
||||
property PS4SystemService:TPS4SystemService read FPS4SystemService write FPS4SystemService;
|
||||
end;
|
||||
|
||||
TGameInfo=class(TAbstractObject)
|
||||
|
|
@ -1056,6 +1075,16 @@ begin
|
|||
Ffork_proc:=True;
|
||||
end;
|
||||
|
||||
Constructor TPS4SystemService.Create;
|
||||
begin
|
||||
inherited;
|
||||
FSystemName :='PS4-123';
|
||||
FLanguage :=-1;
|
||||
FDateFormat :=-1;
|
||||
FTimeFormat :=-1;
|
||||
FButtonAssign:=1;
|
||||
end;
|
||||
|
||||
Constructor TGameInfo.Create;
|
||||
begin
|
||||
inherited;
|
||||
|
|
|
|||
|
|
@ -173,6 +173,13 @@ begin
|
|||
TryStringToGUID(ConfInfo.VulkanInfo.device,vDevice.VulkanDeviceGuid);
|
||||
|
||||
vDevice.VulkanAppFlags:=t_vulkan_app_flags(ConfInfo.VulkanInfo.app_flags);
|
||||
//
|
||||
|
||||
ps4_libSceSystemService.FSystemName :=ConfInfo.PS4SystemService.SystemName;
|
||||
ps4_libSceSystemService.FLanguage :=ConfInfo.PS4SystemService.Language;
|
||||
ps4_libSceSystemService.FDateFormat :=ConfInfo.PS4SystemService.DateFormat;
|
||||
ps4_libSceSystemService.FTimeFormat :=ConfInfo.PS4SystemService.TimeFormat;
|
||||
ps4_libSceSystemService.FButtonAssign:=ConfInfo.PS4SystemService.ButtonAssign;
|
||||
end;
|
||||
|
||||
procedure prepare(GameStartupInfo:TGameStartupInfo); SysV_ABI_CDecl;
|
||||
|
|
|
|||
|
|
@ -13,6 +13,13 @@ uses
|
|||
ps4_libSceUserService,
|
||||
ps4_libSceNpCommon;
|
||||
|
||||
var
|
||||
FSystemName :array[0..65] of AnsiChar='PS4-123'#0;
|
||||
FLanguage :ShortInt=-1;
|
||||
FDateFormat :ShortInt=-1;
|
||||
FTimeFormat :ShortInt=-1;
|
||||
FButtonAssign:Byte=0;
|
||||
|
||||
const
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_LANG =1;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_DATE_FORMAT =2;
|
||||
|
|
@ -76,10 +83,10 @@ const
|
|||
SCE_SYSTEM_PARAM_TIME_FORMAT_12HOUR=0;
|
||||
SCE_SYSTEM_PARAM_TIME_FORMAT_24HOUR=1;
|
||||
|
||||
//
|
||||
// System name
|
||||
SCE_SYSTEM_SERVICE_MAX_SYSTEM_NAME_LENGTH=65;
|
||||
|
||||
//
|
||||
// Game parental level
|
||||
SCE_SYSTEM_PARAM_GAME_PARENTAL_OFF =0;
|
||||
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL01=1;
|
||||
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL02=2;
|
||||
|
|
@ -93,7 +100,7 @@ const
|
|||
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL10=10;
|
||||
SCE_SYSTEM_PARAM_GAME_PARENTAL_LEVEL11=11;
|
||||
|
||||
//
|
||||
// Enter button assign
|
||||
SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CIRCLE=0;
|
||||
SCE_SYSTEM_PARAM_ENTER_BUTTON_ASSIGN_CROSS =1;
|
||||
|
||||
|
|
@ -126,6 +133,10 @@ const
|
|||
SCE_SYSTEM_SERVICE_EVENT_OPEN_SHARE_MENU = $30000000;
|
||||
SCE_SYSTEM_SERVICE_EVENT_UNIFIED_ENTITLEMENT_UPDATE = $10000018;
|
||||
|
||||
function GetHostSystemLang:Byte;
|
||||
function GetHostSystemDateFormat:Byte;
|
||||
function GetHostSystemTimeFormat:Byte;
|
||||
|
||||
function ps4_sceSystemServiceParamGetInt(paramId:Integer;value:Pinteger):Integer;
|
||||
|
||||
implementation
|
||||
|
|
@ -205,15 +216,14 @@ type
|
|||
end;
|
||||
end;
|
||||
|
||||
function GetHostSystemLang:Integer;
|
||||
////
|
||||
function GetHostSystemLang:Byte;
|
||||
var
|
||||
info:DWORD;
|
||||
begin
|
||||
Result:=SCE_SYSTEM_PARAM_LANG_ENGLISH_US;
|
||||
|
||||
sig_lock;
|
||||
info:=GetThreadLocale;
|
||||
sig_unlock;
|
||||
|
||||
info:=info and $FFFF;
|
||||
|
||||
|
|
@ -280,16 +290,14 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
function GetHostSystemDateFormat:Integer;
|
||||
function GetHostSystemDateFormat:Byte;
|
||||
var
|
||||
Format:array[0..0] of AnsiChar;
|
||||
begin
|
||||
Result:=0;
|
||||
Format[0]:=#0;
|
||||
|
||||
sig_lock;
|
||||
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_ILDATE,@Format,1);
|
||||
sig_unlock;
|
||||
|
||||
Case Format[0] of
|
||||
'0':Result:=SCE_SYSTEM_PARAM_DATE_FORMAT_MMDDYYYY;
|
||||
|
|
@ -298,22 +306,21 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
function GetHostSystemTimeFormat:Integer;
|
||||
function GetHostSystemTimeFormat:Byte;
|
||||
var
|
||||
Format:array[0..0] of AnsiChar;
|
||||
begin
|
||||
Result:=0;
|
||||
Format[0]:=#0;
|
||||
|
||||
sig_lock;
|
||||
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_ILDATE,@Format,1);
|
||||
sig_unlock;
|
||||
|
||||
Case Format[0] of
|
||||
'0':Result:=SCE_SYSTEM_PARAM_TIME_FORMAT_12HOUR;
|
||||
'1':Result:=SCE_SYSTEM_PARAM_TIME_FORMAT_24HOUR;
|
||||
end;
|
||||
end;
|
||||
////
|
||||
|
||||
function ps4_sceSystemServiceParamGetInt(paramId:Integer;value:Pinteger):Integer;
|
||||
var
|
||||
|
|
@ -327,17 +334,32 @@ begin
|
|||
Case paramId of
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_LANG:
|
||||
begin
|
||||
value^:=GetHostSystemLang;
|
||||
if (FLanguage=-1) then
|
||||
begin
|
||||
FLanguage:=GetHostSystemLang;
|
||||
end;
|
||||
//
|
||||
value^:=FLanguage;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_DATE_FORMAT:
|
||||
begin
|
||||
value^:=GetHostSystemDateFormat;
|
||||
if (FDateFormat=-1) then
|
||||
begin
|
||||
FDateFormat:=GetHostSystemDateFormat;
|
||||
end;
|
||||
//
|
||||
value^:=FDateFormat;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_FORMAT:
|
||||
begin
|
||||
value^:=GetHostSystemTimeFormat;
|
||||
if (FTimeFormat=-1) then
|
||||
begin
|
||||
FTimeFormat:=GetHostSystemTimeFormat;
|
||||
end;
|
||||
//
|
||||
value^:=FTimeFormat;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_TIME_ZONE:
|
||||
|
|
@ -352,27 +374,42 @@ begin
|
|||
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_CROSS;
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME:; //error
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_GAME_PARENTAL_LEVEL:
|
||||
begin
|
||||
value^:=SCE_SYSTEM_PARAM_GAME_PARENTAL_OFF;
|
||||
end;
|
||||
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_ENTER_BUTTON_ASSIGN:
|
||||
begin
|
||||
value^:=FButtonAssign;
|
||||
end
|
||||
|
||||
else
|
||||
Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
|
||||
end;
|
||||
end;
|
||||
|
||||
const
|
||||
SYSTEM_NAME='PS4-123'#0;
|
||||
|
||||
function ps4_sceSystemServiceParamGetString(paramId:Integer;buf:Pchar;bufSize:size_t):Integer;
|
||||
var
|
||||
len:Integer;
|
||||
begin
|
||||
if (buf=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
|
||||
|
||||
Case paramId of
|
||||
SCE_SYSTEM_SERVICE_PARAM_ID_SYSTEM_NAME:
|
||||
begin
|
||||
if (bufSize<Length(SYSTEM_NAME)) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
|
||||
Move(PChar(SYSTEM_NAME)^,buf^,Length(SYSTEM_NAME));
|
||||
//fixup
|
||||
FSystemName[SCE_SYSTEM_SERVICE_MAX_SYSTEM_NAME_LENGTH]:=#0;
|
||||
len:=strlen(@FSystemName);
|
||||
|
||||
if (bufSize<len) then
|
||||
begin
|
||||
Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
|
||||
end;
|
||||
|
||||
Move(FSystemName,buf^,len);
|
||||
end;
|
||||
else
|
||||
Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
|
||||
|
|
@ -442,12 +479,16 @@ begin
|
|||
status^.isGameLiveStreamingOnAir:=false;
|
||||
status^.isOutOfVrPlayArea :=false;
|
||||
Result:=0;
|
||||
|
||||
Writeln('sceSystemServiceGetStatus');
|
||||
end;
|
||||
|
||||
function ps4_sceSystemServiceReceiveEvent(event:pSceSystemServiceEvent):Integer;
|
||||
begin
|
||||
if (event=nil) then Exit(SCE_SYSTEM_SERVICE_ERROR_PARAMETER);
|
||||
|
||||
Writeln('sceSystemServiceReceiveEvent');
|
||||
|
||||
if CAS(display_safe_area_update,1,0) then
|
||||
begin
|
||||
event^:=Default(SceSystemServiceEvent);
|
||||
|
|
|
|||
Loading…
Reference in New Issue