[slysoft]

Спасибо огромное Лександер, всё работает, УРА!!!

[Gnom_aka_Lexander]

Вот сама ошибка а именно белый фон на концовке установки. Как его убрать? »

Держи пример - нужно скрыть Ран-лист и создать свой чекбокс, который выполнит эту функцию.

[ChVL]

Как прописать атрибут файла Только чтение? В строку Source: добавляю Permissions: everyone-readexec, но ничего не происходит. Что ещё не хватает или как правильно?
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
P.S. Зашёл в топик и сразу был ошарашен: куда я попал?? - "Мня", "ща", "тока"... С каких пор здесь процветает падонкавский жаргон?

[Gnom_aka_Lexander]

Как прописать атрибут файла Только чтение? »

Код:

[Files]
Source: My_file; DestDir: {app}; Attribs: readonly

Зашёл в топик и сразу был ошарашен: куда я попал?? »

этож модно, ниче ты не понимаеш А если серьезно - школота уже второй форум загаживает...

[Bond01]

Подскажите: Как внести данные(скрипт) в реестр(ключ), после установки программы, например с помощью рег-файла чтобы инсталятор искал рядом этот файлик, а потом тихо запускал или с помощью Inf или еще как то?
Это решение нужно для аддона, чтобы пользователи могли вносить свои ключи.

[Gnom_aka_Lexander]

Bond01, Можно вот так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
 var
  reg,RegEdit: string;
  ResultCode: Integer;
  begin
  if CurStep = ssDone  then begin  //по окончании установки
  RegEdit := ExpandConstant('{sys}\reg.exe');// вызов консольной системной утилиты для работы с реестром
   reg := ExpandConstant('{src}\') + 'reg.reg';  // берем рег-файл рядом с инсталлом
   Exec(RegEdit, ' import ' + ' ' + AddQuotes(reg),ExpandConstant('{src}'),SW_HIDE, ewWaitUntilTerminated, ResultCode);  // импортируем файл реестра
  end;

поправил пример - была ошибка - CurStepChanged6 - опечатался Правильно CurStepChanged

[Bond01]

Лександер,
Пишет - Неизвестный идентификатор "RegEdit"

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

[Gnom_aka_Lexander]

Bond01, извиняюсь

Код:

procedure CurStepChanged(CurStep: TSetupStep);
 var
  reg,RegEdit: string;
  ResultCode: Integer;
  begin
  if CurStep = ssDone  then begin  //по окончании установки
  RegEdit := ExpandConstant('{sys}\reg.exe');// вызов консольной системной утилиты для работы с реестром
   reg := ExpandConstant('{src}\') + 'reg.reg';  // берем рег-файл рядом с инсталлом
   Exec(RegEdit, ' import ' + ' ' + AddQuotes(reg),ExpandConstant('{src}'),SW_HIDE, ewWaitUntilTerminated, ResultCode);  // импортируем файл реестра
  end;

[solvador]

Лександер reg тоже надо добавить

[Serega]

Конечно же это извращение... Так кто подскажет как нормально сделать? »

Конечно самое быстрое, это прочитать файл в строку и найти искомое значение через Pos(SubStr, S: String): Integer;

Таких примеров я не встречал »

Всё просто

Пример

Код:

function ReadFromFile(const FileName, SearchStr: string): Integer;
var
  FS: TFileStream;
  Buf: AnsiString;
begin
  Result := -1;
  if not FileExists(FileName) then Exit;
  FS := TFileStream.Create(FileName, fmOpenRead);
  try
    Buf := StringOfChar(#32, FS.Size);
    FS.Seek(0, soFromBeginning);
    FS.ReadBuffer(Buf, FS.Size);
    Result := Pos(SearchStr, Buf);
  finally
    FS.Free;
    SetLength(Buf, 0);
  end;
end;

function InitializeSetup(): Boolean;
begin
  MsgBox(IntToStr(ReadFromFile(ExpandConstant('{src}\test.bin'), #$C7#$46#$04#$00#$00#$18#$00)), mbInformation, MB_OK);
end;