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-08 15:41:19 +02:00
parent 4e22482371
commit 8aa6422d67
4 changed files with 103 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored Normal file
View File

@@ -0,0 +1,4 @@
backup
lib
UserData
Hytale_Launcher.exe

64
project1.lps
View File

@@ -10,7 +10,7 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<UsageCount Value="42"/>
<UsageCount Value="47"/>
</Unit>
<Unit>
<Filename Value="unit1.pas"/>
@@ -20,9 +20,9 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="129"/>
<CursorPos X="9" Y="146"/>
<UsageCount Value="42"/>
<TopLine Value="156"/>
<CursorPos X="3" Y="164"/>
<UsageCount Value="47"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
@@ -35,34 +35,6 @@
</Unit>
</Units>
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="168" Column="3" TopLine="148"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="161" TopLine="146"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="171" Column="18" TopLine="147"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="170" Column="18" TopLine="16"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="26" Column="70" TopLine="10"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="27" Column="48" TopLine="12"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="27" Column="48" TopLine="12"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="26" Column="70" TopLine="11"/>
@@ -155,6 +127,34 @@
<Filename Value="unit1.pas"/>
<Caret Line="138" TopLine="125"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="146" Column="3" TopLine="135"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="44" Column="8" TopLine="29"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="103" Column="30" TopLine="78"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="168" Column="7" TopLine="146"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="150" Column="6" TopLine="134"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="156" TopLine="138"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="161" Column="21" TopLine="140"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

1
unit1.lfm
View File

@@ -8,7 +8,6 @@ object Form1: TForm1
ClientHeight = 426
ClientWidth = 758
Position = poScreenCenter
LCLVersion = '4.2.0.0'
OnShow = FormShow
object Image1: TImage
Left = 0

114
unit1.pas
View File

@@ -5,7 +5,8 @@ unit Unit1;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
Process;
type
@@ -31,13 +32,17 @@ type
var
Form1: TForm1;
APath: String;
PLAYER_UUID: String;
PLAYER_NAME: String;
PX, PY: Integer;
MouseIsDown: Boolean;
const
Hytale_Dir = '.\package\game\latest\Client\';
//JAVA_EXE = '.\package\jre\latest\bin\java.exe';
Hytale_Dir = 'package\game\latest\Client\';
app_dir = 'package\game\latest';
java_exec = 'package\jre\latest\bin\java.exe';
user_dir = 'UserData';
implementation
@@ -59,11 +64,11 @@ end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
MouseIsDown := True;
PX := X;
PY := Y;
end;
begin
MouseIsDown := True;
PX := X;
PY := Y;
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -85,23 +90,23 @@ var
FileContent: string;
tmp_uuid: string;
begin
if not FileExists(Hytale_Dir+'uuid.txt') then
begin
tmp_uuid:= GenerateUniqueID();
AssignFile(f, Hytale_Dir+'uuid.txt');
Rewrite(f);
Write(f, AnsiLowerCase(tmp_uuid));
CloseFile(f);
PLAYER_UUID:=AnsiLowerCase(tmp_uuid);
end
else
begin
AssignFile(f, Hytale_Dir+'uuid.txt');
Reset(f);
Read(f, FileContent);
CloseFile(f);
PLAYER_UUID:=FileContent;
end;
if not FileExists(APath+user_dir+'\uuid.txt') then
begin
tmp_uuid:= GenerateUniqueID();
AssignFile(f, APath+user_dir+'\uuid.txt');
Rewrite(f);
Write(f, AnsiLowerCase(tmp_uuid));
CloseFile(f);
PLAYER_UUID:=AnsiLowerCase(tmp_uuid);
end
else
begin
AssignFile(f, APath+user_dir+'\uuid.txt');
Reset(f);
Read(f, FileContent);
CloseFile(f);
PLAYER_UUID:=FileContent;
end;
end;
procedure TForm1.SetPlayerName();
@@ -109,15 +114,15 @@ var
f: TextFile;
FileContent: string;
begin
if FileExists(Hytale_Dir+'username.txt') then
begin
AssignFile(f,Hytale_Dir+'username.txt');
Reset(f);
Read(f, FileContent);
CloseFile(f);
player_name_edit.Text:=FileContent;
PLAYER_NAME:=FileContent;
end
if FileExists(APath+user_dir+'\username.txt') then
begin
AssignFile(f,APath+user_dir+'\username.txt');
Reset(f);
Read(f, FileContent);
CloseFile(f);
player_name_edit.Text:=FileContent;
PLAYER_NAME:=FileContent;
end
end;
{$R *.lfm}
@@ -125,25 +130,38 @@ end;
{ TForm1 }
procedure TForm1.start_btnClick(Sender: TObject);
var
f: TextFile;
Parameters: string;
APath, JAVA_EXE: String;
begin
APath:= ExtractFilePath(Application.ExeName);
JAVA_EXE:= APath+'package\jre\latest\bin\java.exe';
APath:= APath+'package\game\latest\';
Process: TProcess;
AssignFile(f, Hytale_Dir+'username.txt');
Parameters: string;
begin
AssignFile(f, APath+user_dir+'\username.txt');
Rewrite(f);
Write(f, player_name_edit.Text);
CloseFile(f);
Parameters:= '--app-dir '+APath+' --java-exec '+JAVA_EXE+' --auth-mode offline --uuid '+PLAYER_UUID+' --name '+PLAYER_NAME;
//ShowMessage(Parameters);
ExecuteProcess(APath+'Client\HytaleClient.exe', Parameters);
Close;
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;
Process.Parameters.Add(Parameters);
//ShowMessage(APath+Hytale_Dir+'HytaleClient.exe '+Parameters);
if not FileExists(APath+Hytale_Dir+'HytaleClient.exe') then
begin
ShowMessage('HytaleClient.exe не найден');
Close;
end
else
begin
ChDir(APath+Hytale_Dir);
//ExecuteProcess('HytaleClient.exe', Parameters);
Process.Execute;
Close;
end
end;
procedure TForm1.exit_btnClick(Sender: TObject);
@@ -152,8 +170,10 @@ begin
end;
procedure TForm1.FormShow(Sender: TObject);
begin
APath:= ExtractFilePath(Application.ExeName);
ForceDirectories(ExtractFilePath(APath+user_dir));
SetPlayerName();
GenerateID();
end;