mirror of
https://github.com/red-prig/fpPS4.git
synced 2024-11-23 06:19:57 +00:00
third_party_gui
This commit is contained in:
Pavel
parent
99fd87dad8
commit
00aa7fb6ef
75
third_party_gui/GUI/main.py
Normal file
75
third_party_gui/GUI/main.py
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
import tkinter
|
||||||
|
import tkinter.messagebox
|
||||||
|
import tkinter.filedialog
|
||||||
|
import os
|
||||||
|
import os.path
|
||||||
|
|
||||||
|
fpps4 = ""
|
||||||
|
game = ""
|
||||||
|
#create open fpps4 dialog
|
||||||
|
def open_fpps4():
|
||||||
|
global fpps4
|
||||||
|
file_path = tkinter.filedialog.askopenfilename(title="Select the fpps4.exe", filetypes=[("Applications", "*.exe")])
|
||||||
|
if file_path:
|
||||||
|
fpps4_path_label['text'] = file_path
|
||||||
|
fpps4 = file_path
|
||||||
|
else:
|
||||||
|
fpps4_path_label['text'] = "No file selected"
|
||||||
|
#create open game dialog
|
||||||
|
def open_game():
|
||||||
|
global game
|
||||||
|
file_path = tkinter.filedialog.askdirectory(title="Select the games Folder")
|
||||||
|
if file_path:
|
||||||
|
game_path_label['text'] = file_path
|
||||||
|
game = file_path
|
||||||
|
else:
|
||||||
|
game_path_label['text'] = "No file selected"
|
||||||
|
#autodetect
|
||||||
|
def autodetect():
|
||||||
|
global fpps4
|
||||||
|
for dirpath, dirnames, filenames in os.walk("../../"):
|
||||||
|
for filename in [f for f in filenames if f.endswith(".exe")]:
|
||||||
|
if filename == "fpPS4.exe":
|
||||||
|
fpps4 = os.path.abspath(os.path.join(dirpath, filename))
|
||||||
|
fpps4_path_label['text'] = fpps4
|
||||||
|
tkinter.messagebox.showinfo(title="Found fpPS4!", message=fpps4)
|
||||||
|
#rungame
|
||||||
|
def rungame():
|
||||||
|
global fpps4
|
||||||
|
global game
|
||||||
|
if fpps4 == "":
|
||||||
|
autodetect()
|
||||||
|
if game == "":
|
||||||
|
open_game()
|
||||||
|
if game != "" and fpps4 != "":
|
||||||
|
print(fpps4 + " -e " + game + "/eboot.bin")
|
||||||
|
os.system(fpps4 + " -e " + game + "/eboot.bin")
|
||||||
|
else:
|
||||||
|
tkinter.messagebox.showinfo(title="Error!", message="Please select a game and the fpPS4 folder!")
|
||||||
|
|
||||||
|
#create main window
|
||||||
|
root = tkinter.Tk()
|
||||||
|
root.title("fpPS4 GUI")
|
||||||
|
#open game button
|
||||||
|
open_game_button = tkinter.Button(root, text="Open game folder", command=open_game)
|
||||||
|
open_game_button.grid(row=0, column=0)
|
||||||
|
#open fpps4 button
|
||||||
|
open_fpps4_button = tkinter.Button(root, text="Open fpps4 file", command=open_fpps4)
|
||||||
|
open_fpps4_button.grid(row=0, column=2)
|
||||||
|
#autodetect fpps4 button
|
||||||
|
open_fpps4_button = tkinter.Button(root, text="Autodedect fpps4", command=autodetect)
|
||||||
|
open_fpps4_button.grid(row=0, column=4)
|
||||||
|
#rungame button
|
||||||
|
open_fpps4_button = tkinter.Button(root, text="Run!", command=rungame)
|
||||||
|
open_fpps4_button.grid(row=0, column=6)
|
||||||
|
#print selected game path
|
||||||
|
game_path_label = tkinter.Label(root, text="No game selected")
|
||||||
|
game_path_label.grid(row=2, column=0, columnspan=2)
|
||||||
|
#print selected fpps4 path
|
||||||
|
fpps4_path_label = tkinter.Label(root, text="fpPS4 not selected")
|
||||||
|
fpps4_path_label.grid(row=4, column=0, columnspan=2)
|
||||||
|
#quit
|
||||||
|
quit_button = tkinter.Button(root, text="Quit", command=root.destroy)
|
||||||
|
quit_button.grid(row=6, column=6, columnspan=2)
|
||||||
|
#run main loop
|
||||||
|
root.mainloop()
|
||||||
1
third_party_gui/GUI/readme.txt
Normal file
1
third_party_gui/GUI/readme.txt
Normal file
@ -0,0 +1 @@
|
|||||||
|
Author: https://github.com/GameTec-live
|
||||||
6
third_party_gui/README.md
Normal file
6
third_party_gui/README.md
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
|
||||||
|
### Various graphical interfaces provided by other developers:
|
||||||
|
|
||||||
|
- frofpp4 provided SlrHui
|
||||||
|
- GUI provided GameTec-live
|
||||||
|
- fpPS4-Temmie-s-Launcher provided themitosan
|
||||||
BIN
third_party_gui/frofpp4/project1.ico
Normal file
BIN
third_party_gui/frofpp4/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 130 KiB |
109
third_party_gui/frofpp4/project1.lpi
Normal file
109
third_party_gui/frofpp4/project1.lpi
Normal file
@ -0,0 +1,109 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="project1"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes>
|
||||||
|
<Item Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="LazUtils"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="laz.virtualtreeview_package"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="LazControls"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Unit1"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="unit2.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form2"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Unit2"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="unit3.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form3"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Unit3"/>
|
||||||
|
</Unit>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="project1"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
27
third_party_gui/frofpp4/project1.lpr
Normal file
27
third_party_gui/frofpp4/project1.lpr
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
program project1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, Unit1, lazcontrols, Unit2, Unit3
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.CreateForm(TForm2, Form2);
|
||||||
|
Application.CreateForm(TForm3, Form3);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
third_party_gui/frofpp4/project1.res
Normal file
BIN
third_party_gui/frofpp4/project1.res
Normal file
Binary file not shown.
1
third_party_gui/frofpp4/readme.txt
Normal file
1
third_party_gui/frofpp4/readme.txt
Normal file
@ -0,0 +1 @@
|
|||||||
|
Author: https://github.com/SlrHui
|
||||||
170
third_party_gui/frofpp4/unit1.lfm
Normal file
170
third_party_gui/frofpp4/unit1.lfm
Normal file
@ -0,0 +1,170 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 359
|
||||||
|
Height = 854
|
||||||
|
Top = 308
|
||||||
|
Width = 1217
|
||||||
|
Caption = 'GUI'
|
||||||
|
ClientHeight = 854
|
||||||
|
ClientWidth = 1217
|
||||||
|
DesignTimePPI = 120
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '2.2.2.0'
|
||||||
|
object StatusBar1: TStatusBar
|
||||||
|
Left = 0
|
||||||
|
Height = 29
|
||||||
|
Top = 825
|
||||||
|
Width = 1217
|
||||||
|
Panels = <>
|
||||||
|
end
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Height = 49
|
||||||
|
Top = 0
|
||||||
|
Width = 1217
|
||||||
|
ButtonHeight = 50
|
||||||
|
ButtonWidth = 50
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Images = ImageList1
|
||||||
|
TabOrder = 1
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 1
|
||||||
|
Hint = 'Options'
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton2'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 51
|
||||||
|
Hint = 'Quit'
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton3'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 101
|
||||||
|
Hint = 'Info'
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton1'
|
||||||
|
ImageIndex = 3
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 776
|
||||||
|
Top = 49
|
||||||
|
Width = 1217
|
||||||
|
Align = alClient
|
||||||
|
ClientHeight = 776
|
||||||
|
ClientWidth = 1217
|
||||||
|
TabOrder = 2
|
||||||
|
object StringGrid1: TStringGrid
|
||||||
|
Left = 1
|
||||||
|
Height = 774
|
||||||
|
Top = 1
|
||||||
|
Width = 1215
|
||||||
|
Align = alClient
|
||||||
|
BorderStyle = bsNone
|
||||||
|
ColCount = 1
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
MaxSize = 800
|
||||||
|
ReadOnly = True
|
||||||
|
Title.Caption = 'Title'
|
||||||
|
Width = 250
|
||||||
|
end>
|
||||||
|
FixedCols = 0
|
||||||
|
GridLineStyle = psClear
|
||||||
|
RowCount = 20
|
||||||
|
TabOrder = 0
|
||||||
|
OnDblClick = StringGrid1DblClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ImageList1: TImageList
|
||||||
|
Left = 191
|
||||||
|
Top = 717
|
||||||
|
Bitmap = {
|
||||||
|
4C7A040000001000000010000000060700000000000078DAB5960B50945514C7
|
||||||
|
CFB2BB8085CD62A5694349638E8E532924453A3D3495B4874E358E394DBE324A
|
||||||
|
0DEDE523C9344D4B6B261915301F64A95398BA8802F2D65A1EF25E59160444C9
|
||||||
|
A56D11B09087C8BF73EFB2BB2CBB1BCD58FBCD7FBE73BFEFFCCE3DF7DCC7B720
|
||||||
|
FCE7D7DA5900ED61EDEDB9B32EF903FD71A336022F5503892DEE4547803695FB
|
||||||
|
38A28F680B1073FC3C628EB26A5A11D3C8EDBA36C4687B9E715BA30752463BC7
|
||||||
|
98FC3E37437722B2A409910DF0AC9A7644C6E6828A9D795A9B03FF32607E9D1B
|
||||||
|
5D7415CD8803ADBF648F41F96CB2A61881699127F0DCA727317D63329EDF92CA
|
||||||
|
3A8DB0C8044C59750CD3379CC494921B201DFB275973D83B916FBF5A151AF113
|
||||||
|
6C3FBD5E6FB7131212ECB6EF6CEE3B1B5282EFF2E25B96555E613BEC7ED9D9D9
|
||||||
|
767BEEDCB9769BBE3180D2F87EC251034A613395751A484A4A46666626B45AAD
|
||||||
|
9D09090971F0493DDAE3E00744B379B24753A3A45F5C5C1CFCFCFC9095958531
|
||||||
|
63C6203E3E1EF4D03C100F45C8DDFCD371AB62121D6317BFE4E4646BDFDFFD05
|
||||||
|
FA1978EA2357DE4216EB5AE512D227C5305D6D758AA1E0BCE810B0FE69339AA9
|
||||||
|
D9856FA44618C9089D42678D13DB21C722B5B91E211166E42BF251433568A116
|
||||||
|
B76BB89DDA6126336AA9160632A0944A514665A8A00AD4511D441F37E80640FF
|
||||||
|
FFD5A16A41D58FCBA5FE2D533DEC47BB6FEAA373D0DEA0679D77E2F5813BDCC6
|
||||||
|
8B994968CA8D85B88B76F4D48138F0C250EC9F3114FB2605C0E6D35CB01F879E
|
||||||
|
7DD02546C67B8371257E01CAA266A229FB6BB49C8D4253DE6ED4E292554DE750
|
||||||
|
FFD322988E86DBFBE87DB5FA34C0F8E52858B411683EF5218C1DA530B615A3A2
|
||||||
|
CB80CAD64294A312E759856B8778AC47E932251A0FBD0A53CE7A14410FE3D554
|
||||||
|
545C4D473193A52DD92840298EBCECE7C4273C3159E62354BD5209CBB713F00B
|
||||||
|
F291CBDE791C259F6953FCEBC8E176D537539196F086DDBF76E8517937AC269C
|
||||||
|
7C93F9556A346CD2209D2364317196E95F596738DAD9ABC750FCFE209C890A95
|
||||||
|
FE42BB5FF091BC7E2541BB88D59D84FA0D1AFCF1D5BD68DE3112191C278323A4
|
||||||
|
7204E32701285CEE8FBCB7BD259BBFC2CADBC6719DAE23E36C04AA3FF643FDA6
|
||||||
|
21306D1B2E39A114CE26E34214CE2DBB03796F293DD66FD7A4BBA15FE183CA35
|
||||||
|
1A5C58370485DAB9484226CA560E4141843FF2DFF145F4343F8FEBA7E423C2D1
|
||||||
|
976F47E1321F94BC3790A541D10A0DF73B50B2FBC206C9DCF74DD7B8C4487ED3
|
||||||
|
5A93B470C2CEC9FEC85DEC85BC70B554EE5B2AC43DF380AC93F0899D451E73B0
|
||||||
|
D9879F1D69AFF35FBEF570E7D3F7BA4937D1466DB846D75071D7713B2FF6BD38
|
||||||
|
735AA9B5DFFDDF4DDDE8A22E88B3C4E25323256CC18977FDEDE11A3E9B148A58
|
||||||
|
78DF9908DFC02228030AF9708DC5EB7CE8F6C72B95BBF1D06C600D6FF1437CE4
|
||||||
|
FE700AD8C467E1B4A5C01D4F32AA494692FCD8B95E03EE3C86A55F0025955676
|
||||||
|
CE1A20883F3BA35F01C6BD063C38EB2654E33BA018DB846D74187DFB0DFF1CC8
|
||||||
|
E5637F267FCB6F9BC0AF837BAB0B8AE076D69FF00A6E8262F83979B6DAC63B92
|
||||||
|
FFAFA4E400131702DDDDDD520EF606E6ADEB94CFF66BDB99374319FC9BAC89A8
|
||||||
|
87A8D5C20DC0E24DFCFD1CEFE0AD3104DB616F07CD6964B61EAAA08B50DE7F46
|
||||||
|
9EED4ACD092CE171DF33D5916FEF180ED6D2C3D6B2AAA00E2AC756DA2AE72774
|
||||||
|
3EA00AB1F19C5370471FF60F662F3357C3AA64F63CAB18CB69396858017C436D
|
||||||
|
EC4D59A779EBDA5DFAB7B2C61EB608DE0FA75979AE43EF1AF76683E6989D62A8
|
||||||
|
83F45676DC2F508FD8832DB445AE2B512745701BEB9A13AB0CAEE33E2F38C5F0
|
||||||
|
0ECA83F718FE2F40AB504005720E48738AE7E51AAB91E7E83AB3BFCB1A5BEB64
|
||||||
|
6095F6B0B9F0792405EAC0F578925E442775CA3520D6A4D75813F7D7D0532747
|
||||||
|
8DD54125CC15B074CC2641FDC06750D2DBC8A44CA7FD20D6A4D7701D73D5508D
|
||||||
|
2D857A5C11AB90C7AA83F723A7E13D6A2F54F7AF647621B6D376B7FB58AC49A2
|
||||||
|
189ED304A8461D846AC476A802374275EF07FC7C3E1EA32948A4447BDE9EF6BF
|
||||||
|
58579B6933C2291C8B681156D36AA4F19F36F1BFC3650FC3599D9D9DE39A9B9B
|
||||||
|
A3CD6673A5C964EA1412B67826DEF5F5B789EB3B807D62AF5CB9D25D5BA943F9
|
||||||
|
99CD30A42E4155C6BBA8C9DD86FAEA3C8877C247F8F6652D164B76FDA52AE425
|
||||||
|
2C40FEFE0094FD1088AAAC0FA484AD3FC8EDF425F8EDF20508DFDE31444CC166
|
||||||
|
7F3F112507EE63FFE1309E9A2DFA9312B6782664D086C91882B18D57E4A53B3E
|
||||||
|
0F05710176BFF29F27B05F9594B06DCF85441E82B1D54A8C373D7AB0938F90FE
|
||||||
|
F0682997E73C16510F5B9D8B32362267EF30279FDA73BB50577644AAFCC8E32E
|
||||||
|
31444D6D73A4D32E4461AFDC658E5C77DBF80DC726B9F0E2BD6D7EDDF182F937
|
||||||
|
BCA7FCFBE36DF97BAADF3FF1BDEBE769FE2A4F2FB0F3C2F6347F9ED6CFC59283
|
||||||
|
B86C4C9712B6A7F5E379FDBACEB9A7F57BABFBE756F6EFDFEB888C78
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object Process1: TProcess
|
||||||
|
Active = False
|
||||||
|
Options = []
|
||||||
|
Priority = ppNormal
|
||||||
|
StartupOptions = []
|
||||||
|
ShowWindow = swoNone
|
||||||
|
WindowColumns = 0
|
||||||
|
WindowHeight = 0
|
||||||
|
WindowLeft = 0
|
||||||
|
WindowRows = 0
|
||||||
|
WindowTop = 0
|
||||||
|
WindowWidth = 0
|
||||||
|
FillAttribute = 0
|
||||||
|
Left = 316
|
||||||
|
Top = 730
|
||||||
|
end
|
||||||
|
end
|
||||||
175
third_party_gui/frofpp4/unit1.pas
Normal file
175
third_party_gui/frofpp4/unit1.pas
Normal file
@ -0,0 +1,175 @@
|
|||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ExtCtrls,
|
||||||
|
ComCtrls, Buttons, StdCtrls, ButtonPanel, Grids, Unit2,Unit3, process, INIFiles,
|
||||||
|
FileUtil;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
ImageList1: TImageList;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Process1: TProcess;
|
||||||
|
StatusBar1: TStatusBar;
|
||||||
|
StringGrid1: TStringGrid;
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
procedure BitBtn1Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure Page1BeforeShow(ASender: TObject; ANewPage: TPage;
|
||||||
|
ANewIndex: Integer);
|
||||||
|
procedure SpeedButton1Click(Sender: TObject);
|
||||||
|
procedure StringGrid1DblClick(Sender: TObject);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure GetAllFiles(Path, ExtMask: String; List: TStrings;SubFolder: Boolean);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
emup: String;
|
||||||
|
gamep: String;
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.Page1BeforeShow(ASender: TObject; ANewPage: TPage;
|
||||||
|
ANewIndex: Integer);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpeedButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.StringGrid1DblClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
row : integer;
|
||||||
|
AProcess: TProcess;
|
||||||
|
befehl,bf: String;
|
||||||
|
pfademu: String;
|
||||||
|
begin
|
||||||
|
row := StringGrid1.Row;
|
||||||
|
befehl := emup + '\fpPS4.exe';
|
||||||
|
//befehl := emup + '\game.bat';
|
||||||
|
AProcess := TProcess.Create(nil);
|
||||||
|
pfademu := '-e ' + gamep + '\' + StringGrid1.Cells[0,row] + '\eboot.bin';
|
||||||
|
bf := befehl + ' ' + pfademu;
|
||||||
|
chDir(emup);
|
||||||
|
AProcess.CommandLine := bf;
|
||||||
|
|
||||||
|
AProcess.Options := AProcess.Options + [poWaitOnExit];
|
||||||
|
AProcess.Execute;
|
||||||
|
AProcess.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Form3.Parent := Form1;
|
||||||
|
Form3.Position:= poMainFormCenter;
|
||||||
|
Form3.Show;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ToolButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Form2.Parent := Form1;
|
||||||
|
Form2.Position:= poMainFormCenter;
|
||||||
|
Form2.Show;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
Var
|
||||||
|
INI : TINIFile;
|
||||||
|
Dirs : Array[0..127] of pchar;
|
||||||
|
m,n,l,I,Count : longint;
|
||||||
|
NewDir,temp,tempo,home : String;
|
||||||
|
sl,sg : TStringList;
|
||||||
|
begin
|
||||||
|
home := GetCurrentDir;
|
||||||
|
home := home + '\Frofpp4.ini';
|
||||||
|
INI := TIniFile.Create(home);
|
||||||
|
sl := TStringList.Create;
|
||||||
|
sg := TStringList.Create;
|
||||||
|
emup := INI.ReadString('PFAD', 'path', '');
|
||||||
|
gamep := INI.ReadString('PFAD', 'path1', '');
|
||||||
|
|
||||||
|
try
|
||||||
|
|
||||||
|
GetAllFiles(gamep,'*',sl,true);
|
||||||
|
|
||||||
|
finally
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
n := 0;
|
||||||
|
|
||||||
|
sg.Sorted:= true;
|
||||||
|
|
||||||
|
for I:=0 to sl.Count-1 do begin
|
||||||
|
NewDir := sl[i];
|
||||||
|
l := Length(gamep);
|
||||||
|
temp := Copy(NewDir,l+2,Length(NewDir)-l);
|
||||||
|
m := Pos('\',temp);
|
||||||
|
|
||||||
|
if m <> 0 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
temp := Copy(temp,0,m-1);
|
||||||
|
sg.Add(temp);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
StringGrid1.Clear;
|
||||||
|
StringGrid1.RowCount:=sg.Count;
|
||||||
|
for I := 0 to sg.Count - 1 do
|
||||||
|
StringGrid1.Cells[0, I] := sg[I];
|
||||||
|
sl.free;
|
||||||
|
sg.free;
|
||||||
|
end;
|
||||||
|
procedure TForm1.GetAllFiles(Path, ExtMask: String; List: TStrings;
|
||||||
|
SubFolder: Boolean);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
with TStringList.Create do
|
||||||
|
try
|
||||||
|
CommaText := ExtMask;
|
||||||
|
for i := 0 to Count - 1 do
|
||||||
|
FindAllFiles(List, Path, '*' + Strings[i], SubFolder);
|
||||||
|
finally
|
||||||
|
Free
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
80
third_party_gui/frofpp4/unit2.lfm
Normal file
80
third_party_gui/frofpp4/unit2.lfm
Normal file
@ -0,0 +1,80 @@
|
|||||||
|
object Form2: TForm2
|
||||||
|
Left = 874
|
||||||
|
Height = 461
|
||||||
|
Top = 313
|
||||||
|
Width = 693
|
||||||
|
Caption = 'Options'
|
||||||
|
ClientHeight = 461
|
||||||
|
ClientWidth = 693
|
||||||
|
DesignTimePPI = 120
|
||||||
|
OnActivate = FormActivate
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '2.2.2.0'
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 60
|
||||||
|
Height = 31
|
||||||
|
Top = 400
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Save'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 558
|
||||||
|
Height = 31
|
||||||
|
Top = 400
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Close'
|
||||||
|
OnClick = Button2Click
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 24
|
||||||
|
Height = 211
|
||||||
|
Top = 32
|
||||||
|
Width = 639
|
||||||
|
Caption = 'Directories'
|
||||||
|
ClientHeight = 186
|
||||||
|
ClientWidth = 635
|
||||||
|
TabOrder = 2
|
||||||
|
object Button3: TButton
|
||||||
|
Left = 16
|
||||||
|
Height = 31
|
||||||
|
Top = 24
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Emu'
|
||||||
|
OnClick = Button3Click
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button4: TButton
|
||||||
|
Left = 16
|
||||||
|
Height = 31
|
||||||
|
Top = 72
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Games'
|
||||||
|
OnClick = Button4Click
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Edit1: TEdit
|
||||||
|
Left = 152
|
||||||
|
Height = 28
|
||||||
|
Top = 24
|
||||||
|
Width = 452
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Edit2: TEdit
|
||||||
|
Left = 152
|
||||||
|
Height = 28
|
||||||
|
Top = 72
|
||||||
|
Width = 452
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'Edit2'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object SelectDirectoryDialog1: TSelectDirectoryDialog
|
||||||
|
Left = 24
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
121
third_party_gui/frofpp4/unit2.pas
Normal file
121
third_party_gui/frofpp4/unit2.pas
Normal file
@ -0,0 +1,121 @@
|
|||||||
|
unit Unit2;
|
||||||
|
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ActnList,
|
||||||
|
ExtCtrls, StdCtrls, ExtendedNotebook, INIFiles;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm2 }
|
||||||
|
|
||||||
|
TForm2 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
Button4: TButton;
|
||||||
|
Edit1: TEdit;
|
||||||
|
Edit2: TEdit;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
SelectDirectoryDialog1: TSelectDirectoryDialog;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
procedure Button3Click(Sender: TObject);
|
||||||
|
procedure Button4Click(Sender: TObject);
|
||||||
|
procedure FormActivate(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form2: TForm2;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm2 }
|
||||||
|
|
||||||
|
procedure TForm2.Button2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.Button1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
INI: TINIFile;
|
||||||
|
path: string;
|
||||||
|
path1: string;
|
||||||
|
home: string;
|
||||||
|
begin
|
||||||
|
home := GetCurrentDir;
|
||||||
|
home := home + '\Frofpp4.ini';
|
||||||
|
INI := TIniFile.Create(home);
|
||||||
|
path := Edit1.Text;
|
||||||
|
path1 := Edit2.Text;
|
||||||
|
|
||||||
|
INI.WriteString('PFAD', 'path', path);
|
||||||
|
INI.WriteString('PFAD', 'path1', path1);
|
||||||
|
INI.free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.Button3Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
path: string;
|
||||||
|
begin
|
||||||
|
if SelectDirectoryDialog1.Execute then
|
||||||
|
begin
|
||||||
|
path := SelectDirectoryDialog1.FileName;
|
||||||
|
Edit1.Text := path;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.Button4Click(Sender: TObject);
|
||||||
|
var path: string;
|
||||||
|
begin
|
||||||
|
if SelectDirectoryDialog1.Execute then
|
||||||
|
begin
|
||||||
|
path := SelectDirectoryDialog1.FileName;
|
||||||
|
Edit2.Text := path;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.FormActivate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
INI: TINIFile;
|
||||||
|
path: string;
|
||||||
|
path1: string;
|
||||||
|
home: string;
|
||||||
|
begin
|
||||||
|
home := GetCurrentDir;
|
||||||
|
home := home + '\Frofpp4.ini';
|
||||||
|
INI := TIniFile.Create(home);
|
||||||
|
|
||||||
|
path := INI.ReadString('PFAD', 'path', '');
|
||||||
|
path1 := INI.ReadString('PFAD', 'path1', '');
|
||||||
|
Edit1.Text := path;
|
||||||
|
Edit2.Text := path1;
|
||||||
|
INI.free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
68
third_party_gui/frofpp4/unit3.lfm
Normal file
68
third_party_gui/frofpp4/unit3.lfm
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
object Form3: TForm3
|
||||||
|
Left = 892
|
||||||
|
Height = 368
|
||||||
|
Top = 406
|
||||||
|
Width = 461
|
||||||
|
Caption = 'Info'
|
||||||
|
ClientHeight = 368
|
||||||
|
ClientWidth = 461
|
||||||
|
DesignTimePPI = 120
|
||||||
|
LCLVersion = '2.2.2.0'
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 168
|
||||||
|
Height = 31
|
||||||
|
Top = 306
|
||||||
|
Width = 94
|
||||||
|
Caption = 'OK'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 144
|
||||||
|
Height = 20
|
||||||
|
Top = 40
|
||||||
|
Width = 136
|
||||||
|
Caption = 'Gui for Emu "fpPS4" '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 168
|
||||||
|
Height = 20
|
||||||
|
Top = 80
|
||||||
|
Width = 80
|
||||||
|
Caption = 'V 0.000001a'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 112
|
||||||
|
Height = 20
|
||||||
|
Top = 128
|
||||||
|
Width = 203
|
||||||
|
Caption = 'this program is free of charge. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 144
|
||||||
|
Height = 20
|
||||||
|
Top = 160
|
||||||
|
Width = 133
|
||||||
|
Caption = 'use at your own risk.'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 96
|
||||||
|
Height = 20
|
||||||
|
Top = 200
|
||||||
|
Width = 234
|
||||||
|
Caption = 'no warranty of any kind is assumed.'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 144
|
||||||
|
Height = 20
|
||||||
|
Top = 248
|
||||||
|
Width = 135
|
||||||
|
Caption = 'SLRHUI 2022 Austria'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
end
|
||||||
44
third_party_gui/frofpp4/unit3.pas
Normal file
44
third_party_gui/frofpp4/unit3.pas
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
unit Unit3;
|
||||||
|
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm3 }
|
||||||
|
|
||||||
|
TForm3 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form3: TForm3;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm3 }
|
||||||
|
|
||||||
|
procedure TForm3.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user