обновление

unit1.pas

@@ -19,6 +19,7 @@ type
     Image4: TImage;
     Image5: TImage;
     player_name_edit: TEdit;
+    procedure player_name_editDblClick(Sender: TObject);
     procedure start_btnClick(Sender: TObject);
     procedure exit_btnClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -121,6 +122,7 @@ begin
     Read(f, FileContent);
     CloseFile(f);
     player_name_edit.Text:=FileContent;
+    player_name_edit.ReadOnly:= True;
     PLAYER_NAME:=FileContent;
   end
 end;
@@ -142,7 +144,7 @@ begin
   CloseFile(f);
 
   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;
-  //ShowMessage(APath+Hytale_Dir+'HytaleClient.exe '+Parameters);
+  //ShowMessage(Parameters);
   if not FileExists(APath+Hytale_Dir+'HytaleClient.exe') then
   begin
     ShowMessage('HytaleClient.exe не найден');
@@ -159,6 +161,11 @@ begin
   end
 end;
 
+procedure TForm1.player_name_editDblClick(Sender: TObject);
+begin
+  player_name_edit.ReadOnly:= False;
+end;
+
 procedure TForm1.exit_btnClick(Sender: TObject);
 begin
   Close;