обновление

project1.lps

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

unit1.pas

@@ -141,15 +141,8 @@ begin
   Write(f, player_name_edit.Text);
   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;
-
-  Process.Parameters.Add(Parameters);
-
   //ShowMessage(APath+Hytale_Dir+'HytaleClient.exe '+Parameters);
-
   if not FileExists(APath+Hytale_Dir+'HytaleClient.exe') then
   begin
     ShowMessage('HytaleClient.exe не найден');
@@ -158,7 +151,9 @@ begin
   else
   begin
     ChDir(APath+Hytale_Dir);
-    //ExecuteProcess('HytaleClient.exe', Parameters);
+    Process:= TProcess.Create(nil);
+    Process.Executable:= 'HytaleClient.exe';
+    Process.Parameters.Add(Parameters);
     Process.Execute;
     Close;
   end
@@ -172,7 +167,11 @@ end;
 procedure TForm1.FormShow(Sender: TObject);
 begin
   APath:= ExtractFilePath(Application.ExeName);
-  ForceDirectories(ExtractFilePath(APath+user_dir));
+  if not ForceDirectories(ExtractFilePath(APath+user_dir+'\')) then
+  begin
+    ShowMessage('Не удалось создать папку UserData');
+    Close;
+  end;
 
   SetPlayerName();
   GenerateID();