[Sevas]

Помогите с запуском exe-шника. Материалы для новичков читал. Как запустить проблем не возникает.
Но у меня есть особенность.
Моя программка будет запускать игру. Предназначена для нескольких пользователей, у которых игра может находится в разных местах, т.е. пути будут различны, поэтому вбивать путь к ехе-шнику в код было бы неправильно.
Мне не хватает мозгов чтобы реализовать следующее.
При первом запуске создаётся некий config.txt в который с помощью Opendialog указывается путь к ехе-шнику игры, но при следующих запусках нужно просто проверять сущесвует ли config.txt, потом считать из него путь к ехе-шнику и в конце концов его запустить.
Как реализовать всё по отдельно вроде понятно, но собрать всё воедино не могу...
Заранее спасибо.

[Страдалецъ]

А не проще передавать нужный путь как параметр вашего исполняемого файла?

[Sevas]

А более подробно можно? не совсем понятно что такое параметр исполняемого файла.
В идеале путь к файлу хотелось бы брать из реестра куда игра прописывает свой путь при установке. в моём случае это

Код:

HKEY_CURRENT_USER\Software\Eagle Dynamics\LockOn Flaming Cliffs 2\Path

но работа с реестром для меня ещё более тёмная.
как мне кажется лучше указать путь при первом запуске моей программки.

[Страдалецъ]

Не люблю программ которые захламляют реестр ненужным мустором. Я предлагаю сделать проще, передавать параметр при запуске. Например:
YouApp.exe c:\SuperPuperGame\
Этот параметр можно в ярлык прописать. А в программе обрабатывается так:

Код:

GamePath := ParamStr(1)

[Sevas]

Про реестр я имел ввиду, что лучше только считать путь и по нему запускать игру по нажатию на Button. Записывать что-то в реестр ничего не надо.
Может я не очень подробно описал задачу.
1. по нажатию на Button открывается Opendialog. Пользователь указывает путь к ехе-шнику игры. Это я могу сделать. Проблема далее.
2. Полученный путь нужно записать в файл в конфиг.txt.
3. При следующих запусках моей программки, по нажатию на Button обратиться к конфиг.txt, взять из него путь и запустить ехе-шник, ну к примеру так.

ShellExecute(Handle, 'open', 'c:\game.exe',nil,nil,SW_SHOWNORMAL) ;

Я не могу сообразить как сделать так чтобы при первом запуске создался конфиг.txt и в него указать путь, а при последующих запусках происходила проверка существования конфиг.txt. Если он не существует, то провести пункты 1-3
Вот как-то так.

[lmikle]

Код:

uses
  Registry;

const
  cKeyName = 'Software\Eagle Dynamics\LockOn Flaming Cliffs 2\';

function GetGamePath : String;
var
  R : TRegistry;
begin
  Result := '';
  R := TRegistry.Create;
  Try
    If R.OpenKeyReadOnly(cKeyName) Then
      Begin
        If R.ValueExists('Path') 
          Then Result := R.ReadString('Path');
        R.CloseKey;
      End;
  Finally
    R.Free;
  End;
  If Result = '' Then Raise Exception.Create('Key not found.');
end;

Если ключа нет, то получишь ошибку.

[SilverSnow]

Код:

const FileName='config.txt';
var GameFile:string;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
var OpenDialog:TOpenDialog;
    ExeFile:TextFile;
begin
  assignFile (ExeFile,FileName);
  if FileExists (FileName) then
    begin
      reset (Exefile);
      ReadLn (Exefile,GameFile);
      closeFile (ExeFile);
    end else
      begin
        OpenDialog:=TOpenDialog.Create(Self);
        OpenDialog.Filter:='Only exe|*.exe';
        OpenDialog.Title:='Выберите екзешник с игрой';
        If openDialog.Execute then
          begin
            rewrite (Exefile);
            GameFile:=OpenDialog.FileName;
            WriteLn (Exefile,GameFile);
            closeFile (ExeFile);
          end;
        OpenDialog.free;
      end;
end;

Admin: Пользуемся тегами!

Лови после выполнения кода, имя к екзешнику будет храниться в переменной gamefile. Нужна будет помощь обращайся icq 491385275.