[Crazy Noise]

Имеется ключ 1234-5678-ABCD-EFGH который просто записывается в файл keysgame.ini без каких либо секции и дополнительныч строк, просто ключ и всё. Сам keysgame.ini должен создаться при вставке ключа в папке Мои документы/GameEX.

Как это реализовать?

Есть только набросок кода

читать дальше »

Код:

[*code]
var
  CustomPage: TWizardPage;
  Edit1: TNewEdit;
  Edit2: TNewEdit;
  Edit3: TNewEdit;
  Edit4: TNewEdit;

procedure InitializeWizard();
begin
  CustomPage := CreateCustomPage(wpSelectTasks, 'Заголовок', 'Описание');

  Edit1 := TNewEdit.Create(WizardForm);
  with Edit1 do
  begin
    Parent := CustomPage.Surface;
    Left := ScaleX(96);
    Top := ScaleY(98);
    Width := ScaleX(50);
    Height := ScaleY(21);
  end;

  Edit2 := TNewEdit.Create(WizardForm);
  with Edit2 do
  begin
    Parent := CustomPage.Surface;
    Left := ScaleX(152);
    Top := ScaleY(98);
    Width := ScaleX(50);
    Height := ScaleY(21);
  end;

  Edit3 := TNewEdit.Create(WizardForm);
  with Edit3 do
  begin
    Parent := CustomPage.Surface;
    Left := ScaleX(208);
    Top := ScaleY(98);
    Width := ScaleX(50);
    Height := ScaleY(21);
  end;

  Edit4 := TNewEdit.Create(WizardForm);
  with Edit4 do
  begin
    Parent := CustomPage.Surface;
    Left := ScaleX(264);
    Top := ScaleY(98);
    Width := ScaleX(50);
    Height := ScaleY(21);
  end;

  Edit1.TabOrder := 0;
  Edit2.TabOrder := 1;
  Edit3.TabOrder := 2;
  Edit4.TabOrder := 3;
end;