[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;

[Alloc]

Всем привет! Уважаемые знатоки, помогите разобраться со следующей задачей:
Допустим имеется простенький инсталлятор, к которому я прикрутил библиотек isskin.dll способом описанном на том же сайте.
Проблема в том, что если я устанавливаю следующие значения

Код:

DiskSpanning=Yes
SlicesPerDisk=1
DiskSliceSize=1566000000

и компилирую приложение, создается отдельный файл Setup-1.bin, как и должно быть.. так вот если данный файл удалить, при запуске Инсталлятора программа сразу выдает форму в которой просит вставить диск №1.. Если нажать отмену и выйти из процесса установки сразу же выскочит сообщение о том, что isskin.dll не найден. Как обработать это событие? Ведь распаковка isskin.dll происходит на этапе InitializeSetup, а диолог о вставке диска вылезает раньше ее? Как предотвратить данную ошибку в случае если Setup-1.bin не будет найден?

[alert30]

Alloc, попробуйте скачать другую isskin.dll и сделать те же действия.

[Gnom_aka_Lexander]

Alloc, просто isskin.dll у тебя внутри Setup-1.bin и при удалении оного, естественно он будет не найден.
вот так такое дело обрабатывается:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*code]
var
  sKLoaded : Boolean;

function InitializeSetup(): Boolean;
begin
  sKLoaded := False;
  // грузим скин
  sKLoaded := True;
  Result := True;
end;

procedure DeinitializeSetup();
begin
  if sKLoaded then
  begin
    // выгружаем скин
  end;
end;

[by_gangster]

Ребята всем привет, возник вопрос по сжатию, мне понравилось сжатие игры Call of Duty MW3... там просто офигенное сжатие, при вскрытии инсталера, я обнаружил файлы связаные с zip (procomp.exe) их там несколько и имели разрешение .exe. В интернете я узнал что самое лучшее сжатие это NanoZip но примеров я не нашёл, если у кого есть примерчик, то выложите пожалуйста...

[Gnom_aka_Lexander]

by_gangster, темой ошибся. Но все-же, вот список параметров для нанозипа: Смотреть Воспользоваться функцией exec в инно я думаю сможешь самостоятельно.
и да, не перестарайся, как механики, у которых последнее время для установки игры комп нужен в разы мощнее, чем для самой игры.

[by_gangster]

Gnom_aka_Lexander, а что ещё хорошо сжимает ?

А на сайте nanozip.net чем отличаются архивы для скачивания 32bit и 64bit ?

[Gnom_aka_Lexander]

by_gangster, по приведенной ссылке - различные параметры для различных типов файлов. логично, что если разложить все ресурсы по полочкам, то при терпеливом подборе параметров очень хорошо сжимает даже винрар. можешь воспользоваться paq, если тебе наплевать на пользователей - сжатие весьма великолепно, но вот распаковка без преувеличение может растянуться на несколько суток(вспомним "знаменитый" репак GTA4). КГБ - аналогично. Если нужно хорошо и быстро - то фриарк с вменяемыми словарями ( словарь - примерно равен свободной нефрагментированной оперативке, которая потребуется для распаковки) с тщательным подбором параметров и препроцессоров (каковых во фриарке - десятки) для каждого типа данных.

А на сайте nanozip.net чем отличаются архивы для скачивания 32bit и 64bit ? »

Только разрядностью системы в которую можно устанавливать. 32bit можно в любую, 64bit - только в х64. теоретически 64bit может дать лучшее сжатие. Для распаковки не имеет значения разраядность упаковщика, как и в любом пакере или прекомпрессоре.

[saurn]

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

Как-то вот так

Код:

[Code]
var
  SerialPage: TWizardPage;
  Block_1, Block_2, Block_3, Block_4: TNewEdit;
  sNumber: String;

procedure InitializeWizard();
begin
 SerialPage := CreateCustomPage(wpSelectTasks, 'Serial number', 'Please insert serial number');

  Block_1 := TNewEdit.Create(nil);
  with Block_1 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(96), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;

  Block_2 := TNewEdit.Create(nil);
  with Block_2 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(152), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;

  Block_3 := TNewEdit.Create(nil);
  with Block_3 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(208), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;

  Block_4 := TNewEdit.Create(nil);
  with Block_4 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(265), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  sNumber := ExpandConstant(Block_1.Text + '-' + Block_2.Text + '-' + Block_3.Text + '-' + Block_4.Text);
  case CurStep of
    ssPostInstall: SaveStringToFile(ExpandConstant('{userdocs}\GameEX\keysgame.ini'), sNumber, True);
  end;
end;


//или вместо шага CurStepChanged записывать серийник в файл при нажатии "Далее" на этой странице.
//function NextButtonClick(CurPageID:integer): Boolean;
//begin
//  sNumber := ExpandConstant(Block_1.Text + '-' + Block_2.Text + '-' + Block_3.Text + '-' + Block_4.Text);
//  case CurPageID of
//    SerialPage.ID: SaveStringToFile(ExpandConstant('{userdocs}\GameEX\keysgame.ini'), sNumber, True);
//  end;
//  Result := True;
//end;

Проверять сейчас неначем, рабочий комп пока на реставрации.

[Alloc]

Gnom_aka_Lexander, спасибо за ответ, я попробовал как Вы сказали? но по прежнему ошибка имеет место быть.

Internal error: ExtractTemporaryFile: The file "isskin.dll" was not found.