AlexL/Hytale_Launcher
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

обновление

Browse Source
This commit is contained in:
AlexL
2026-02-09 01:08:56 +02:00
parent 8aa6422d67
commit 477d042670
2 changed files with 17 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
project1.lps
View File

@@ -10,7 +10,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<UsageCount Value="47"/> <UsageCount Value="48"/>
</Unit> </Unit>
<Unit> <Unit>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@@ -20,9 +20,9 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="156"/> <TopLine Value="150"/>
<CursorPos X="3" Y="164"/> <CursorPos Y="177"/>
<UsageCount Value="47"/> <UsageCount Value="48"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit> </Unit>
@@ -31,14 +31,10 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="963"/> <TopLine Value="963"/>
<CursorPos Y="1007"/> <CursorPos Y="1007"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit> </Unit>
</Units> </Units>
<JumpHistory HistoryIndex="29"> <JumpHistory HistoryIndex="29">
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="26" Column="70" TopLine="11"/>
</Position>
<Position> <Position>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="27" Column="48" TopLine="11"/> <Caret Line="27" Column="48" TopLine="11"/>
@@ -155,6 +151,10 @@
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="161" Column="21" TopLine="140"/> <Caret Line="161" Column="21" TopLine="140"/>
</Position> </Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="175" Column="11" TopLine="146"/>
</Position>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>

17
unit1.pas
View File

@@ -141,15 +141,8 @@ begin
Write(f, player_name_edit.Text); Write(f, player_name_edit.Text);
CloseFile(f); CloseFile(f);
Process:= TProcess.Create(nil);
Process.Executable:= 'HytaleClient.exe';
Parameters:= '--app-dir "'+APath+app_dir+'" --java-exec "'+APath+java_exec+'" --user-dir "'+APath+user_dir+'" --auth-mode offline --uuid '+PLAYER_UUID+' --name '+PLAYER_NAME; Parameters:= '--app-dir "'+APath+app_dir+'" --java-exec "'+APath+java_exec+'" --user-dir "'+APath+user_dir+'" --auth-mode offline --uuid '+PLAYER_UUID+' --name '+PLAYER_NAME;
Process.Parameters.Add(Parameters);
//ShowMessage(APath+Hytale_Dir+'HytaleClient.exe '+Parameters); //ShowMessage(APath+Hytale_Dir+'HytaleClient.exe '+Parameters);
if not FileExists(APath+Hytale_Dir+'HytaleClient.exe') then if not FileExists(APath+Hytale_Dir+'HytaleClient.exe') then
begin begin
ShowMessage('HytaleClient.exe не найден'); ShowMessage('HytaleClient.exe не найден');
@@ -158,7 +151,9 @@ begin
else else
begin begin
ChDir(APath+Hytale_Dir); ChDir(APath+Hytale_Dir);
//ExecuteProcess('HytaleClient.exe', Parameters); Process:= TProcess.Create(nil);
Process.Executable:= 'HytaleClient.exe';
Process.Parameters.Add(Parameters);
Process.Execute; Process.Execute;
Close; Close;
end end
@@ -172,7 +167,11 @@ end;
procedure TForm1.FormShow(Sender: TObject); procedure TForm1.FormShow(Sender: TObject);
begin begin
APath:= ExtractFilePath(Application.ExeName); APath:= ExtractFilePath(Application.ExeName);
ForceDirectories(ExtractFilePath(APath+user_dir)); if not ForceDirectories(ExtractFilePath(APath+user_dir+'\')) then
begin
ShowMessage('Не удалось создать папку UserData');
Close;
end;
SetPlayerName(); SetPlayerName();
GenerateID(); GenerateID();