[insombia]

странности с инно происходят,когда через инно сделал сетап,то во время установки такие ошибки идут http://i47.fastpic.ru/big/2013/0429/...b7d871fcea.jpg
и иногда просто могут быть ошибки

[saurn]

insombia, дословно, это означает "внешнее исключение". Иными словами смотрите в сторону процедур и функций вызываемых из внешних библиотек. Некоторые библиотеки( например IsUtils, get_hw_caps) используют WMI (Windows Management Instrumentation), которая есть в любой форточке, кроме 98. И соответственно, для их корректной работы необходимо, чтобы была включена сама WMI и ряд связанных с ней сервисов. Ну, а если используется какая-нибудь сборка системы ,где черезмерно умный сборщик отключил ненужные по его мнению службы, подобных ошибок не избежать. Inno тут ни причем. Так же, вполне вероятно, что просто ошибка в скрипте.

[insombia]

saurn могу дать скрипт,мож посмотреть http://rghost.ru/45646441
p.s. да,он с krinkels'а но я его переделаю под себя

[ilya_klimovich]

как прописать в isdone чтобы при установке игры из srep файла вылез pcf а потом prack? что здесь не так

if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\1.srep'), ExpandConstant('{app}\1.pcf'), '', true, CallBack ) then break;

[saurn]

Johny777, спасибо. Склеил простенький скрипт на проверку файловой системы с выводом имени оной в TNewStaticText на SelectDirPage Может, кому сгодится:

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

Код:

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
OutputDir=.

[Code]
const
  MAX_PATH           = 260;
  TARGET_FILE_SYSTEM = 'NTFS';

function GetVolumeInformation(lpRootPathName: String; lpVolumeNameBuffer: String; nVolumeNameSize: DWORD; lpVolumeSerialNumber: DWORD; var lpMaximumComponentLength, lpFileSystemFlags: DWORD; lpFileSystemNameBuffer: String; nFileSystemNameSize: DWORD): BOOL; external 'GetVolumeInformation{#A}@kernel32.dll stdcall';

var
  FileSystemLabel, FileSystemLabel2: TNewStaticText;

function ExtractFileSystemName(const DriveLetter: string): string;
var
  VolumeName, FileSystemName: String;
  ComponentLength, SerialNumber, FileSystemFlags: DWORD;
begin
  VolumeName := StringOfChar(#32, MAX_PATH);
  FileSystemName := StringOfChar(#32, MAX_PATH);
  DriveLetter := AddBackslash( ExtractFileDrive(WizardDirValue()) );
  GetVolumeInformation(DriveLetter, VolumeName, MAX_PATH, SerialNumber, ComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);
  Result := Trim(FileSystemName);
end;

procedure ObjectOnChange(Sender: TObject);
var
FileSystemType: String;
begin
  case TEdit(Sender) of
    WizardForm.DirEdit:
    begin
      FileSystemLabel2.Caption := ExtractFileSystemName(FileSystemType);
      WizardForm.NextButton.Enabled := (ExtractFileSystemName(FileSystemType) = TARGET_FILE_SYSTEM);
      if ExtractFileSystemName(FileSystemType) = TARGET_FILE_SYSTEM then
      FileSystemLabel2.Font.Color := clBlack else FileSystemLabel2.Font.Color := clRed;
    end;
  end;
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    DirEdit.OnChange := @ObjectOnChange;
    FileSystemLabel := TNewStaticText.Create(nil);
    with FileSystemLabel do
    begin
      Parent := SelectDirPage;
      SetBounds(WizardForm.DiskSpaceLabel.Left, WizardForm.DiskSpaceLabel.Top - 18, 0, 0);
      AutoSize := True;
      Caption := 'Файловая система:';
    end;

    FileSystemLabel2 := TNewStaticText.Create(nil);
    with FileSystemLabel2 do
    begin
      Parent := SelectDirPage;
      SetBounds(FileSystemLabel.Left + 100, FileSystemLabel.Top, 0, 0);
      AutoSize := True;
    end;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectDir: ObjectOnChange(WizardForm.DirEdit);
  end;
end;

[vint56]

ilya_klimovich
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\1.srep'), ExpandConstant('{app}\1.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\1.pcf'), ExpandConstant('{app}\1.prack'), true) then break;

[ilya_klimovich]

Прописываю вот так

if not ISPrecompExtract ( 0, OveralPct, 0, ExpandConstant('{app}\1.pcf'), ExpandConstant('{app}\1.rpack'), '', true, CallBack ) then break;

потом в процессе установки выбивается мол не верно задан файл для ISPrecompExtract

[vint56]

ilya_klimovich, а у тебя какой на выходе файл после srep вот тот и надо писать ты же написал 1.pcf

[ilya_klimovich]

vint56
я сначала хочу с прекомпом разобраться а потом и срэпом, строку там где срэп я пока закоментировал

[insombia]

ilya_klimovich зачем этот гемор? тебе же давали вроде скрипт для консольного сжатия srep+precomp