[R.i.m.s.k.y.]

Не могу вкурить, как сделать на панели секции [Tasks] элемент так, чтобы галка стояла и нельзя было снять.

Затык - я не могу подобрать названия элементов, для секции компонентов я делаю так
WizardForm.ComponentsList.ItemEnabled [WizardForm.ComponentsList.Items.IndexOf (ExpandConstant ('{cm:abcd}'))] := False;
по названию компонента находится он сам и отключается.

А для секции [Tasks] как сделать искомое (чтобы галка на задаче стояла и не снималась)???
Спасибо!

[Serega]

как исправить эту ошибку? подскажите плз »

Увеличить объём диска или купить новый винчестер... именно об этом говорит ваша ошибка...
Ну а если серьёзно, то нужно просто добавить завершающий знак ';' в самый конец 358 строки.

чтобы галка на задаче стояла и не снималась »

Всё очень просто, нужно просто перехватить нажатие на нужный элемент, т.е.:

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Tasks]
Name: desktopicon; Description: Create a &desktop icon; GroupDescription: Additional icons:
Name: desktopicon\common; Description: For all users; GroupDescription: Additional icons:; Flags: exclusive
Name: desktopicon\user; Description: For the current user only; GroupDescription: Additional icons:; Flags: exclusive unchecked
Name: quicklaunchicon; Description: Create a &Quick Launch icon; GroupDescription: Additional icons:; Flags: unchecked
Name: associate; Description: &Associate files; GroupDescription: Other tasks:

[Code]
procedure TasksListClickCheck(Sender: TObject);
var
  Item: Integer;
begin
  Item := WizardForm.TasksList.Items.IndexOf('&Associate files');
  if WizardForm.TasksList.ItemIndex = Item then
    WizardForm.TasksList.Checked[item] := True;
end;

procedure InitializeWizard();
begin
  WizardForm.TasksList.OnClickCheck := @TasksListClickCheck;
end;

[0.07]

у меня выдает такую ошибку:" Disk spanning must be enabled in order to create an installation larger than 2100000000 bytes in size."
я так понимаю это означает, что запрещено использовать в инсталляторе файлы больше, чем 2Гб.
как можно это исправить?

[Gnom_aka_Lexander]

0.07, пользуйся гуглом, это означает, что нельзя делить инсталл на части больше двух гигабайт. Пропиши в секцию [Setup]

Код:

DiskSpanning=true
DiskSliceSize=1566000000

[actavir]

Народ подскажите пожалуйста можно ли сделать так чтобы inno setup создавала только .exe файлы без .bin файлов, ну и конечно же чтобы все файлы включённые были в этом .exe. А то хотел сделать маленький инсталятор, одним файлом, но не знаю как, а несколько файлов не удобно заливать
Выручите плиз!!!!!!!!!!




------------
Хорошая игр - это русифицированная игра!!!

[Habetdin]

actavir, "поиск по теме рулит "

Код:

[Setup]
DiskSpanning=false

[ryabis]

Вопрос следующий:
Как в скрипте вызвать функцию из WinAPI? Функция GetFileVersionInfo.
Знаю, что в Делфях это делается через подключения в uses модуля Windows.
Как это сделать в InnoSetup???

[Krinkels]

ryabis
А в инно просто вызываешь данную функцию из длл. Примерно так:
function GetFileVersionInfo(lptstrFilename: PAnsiChar; dwHandle, dwLen: DWORD; lpData: Pointer): BOOL; external 'GetFileVersionInfoA@version stdcall delayload'

[ryabis]

Krinkels, бьюсь уже весь день... Как мне в Inno объявить функцию VerQueryValue и системную ф-ю AllocMem

Код:

function AllocMem( Size: Cardinal ): Poiner;

Код:

BOOL WINAPI VerQueryValue(
  __in   LPCVOID pBlock,
  __in   LPCTSTR lpSubBlock,
  __out  LPVOID *lplpBuffer,
  __out  PUINT puLen
);

C остальным, вроде, разобрался. )))

[Krinkels]

ryabis

Код:

function VerQueryValue(pBlock: Pointer; lpSubBlock: PAnsiChar; var lplpBuffer: Pointer; var puLen: UINT): BOOL; external 'VerQueryValueA@version stdcall delayload'

А первую наверное придется в ручную писать, кусок из дельфи:

Код:

function AllocMem(Size: Cardinal): Pointer;
begin
  GetMem(Result, Size);
  FillChar(Result^, Size, 0);
end;