[TROY Diamond]

Как задать в свойствах ярлыка или где, чтобы прога запускалась, только с правами Администратора? На Висте и 7-ке ярлык со "щитом." Или это только в Манифесте прописывается?

[YURSHAT]

TROY Diamond

Как с помощью [INI] или как-то по другому создать файл, текстовый и другие, НО ТОЛЬКО С ОДНИМ ЗНАЧЕНИЕМ "ВНУТРИ", БЕЗ параметра, никаких "Section", "InstallPath", НЕ надо! Только одно значение БЕЗ всего - в одну строчку, без кавычек, тире, двоеточий, типа открыл это файл, а там только: htuifgvifgj4575489jgfkgfmgf765авроршгщ и всё больше ничего нет! »

Можно так

TROY Diamond,

Как сделать, чтобы установка продолжалась, ТОЛЬКО после "прочтения" Лицензионного соглашения и/или какого-то сообщения. Я видел, к примеру, кнопки не активные, пока не прокрутишь текст до самого низа... »

Держите

примерчик

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
LicenseFile=compiler:License.txt

[Files]
Source: compiler:InnoCallback.dll; Flags: dontcopy

[Code_]
type
  TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);
const
  EM_GETFIRSTVISIBLELINE = $CE; TestLine = 5;
var
  TimerID: LongWord;

function WrapTimerProc(callback:TProc; paramcount:integer):longword; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
var
  CurrLine: integer;
begin
  CurrLine:= SendMessage(WizardForm.LicenseMemo.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
  If CurrLine >= TestLine then
    begin
      WizardForm.LicenseAcceptedRadio.Enabled:= True;
      KillTimer(0, TimerID);
    end;
  //WizardForm.Caption:= IntToStr(CurrLine);
end;

procedure InitializeWizard();
begin
  WizardForm.LicenseAcceptedRadio.Enabled:= False;
end;

procedure CurPageChanged(CurPageID: Integer);
var
  pfunc: LongWord;
begin
  if CurPageID = wpLicense then
    begin
      pfunc:= WrapTimerProc(@OnTimer, 4);
      TimerID:= SetTimer(0, 0, 500, pfunc);
    end else
      KillTimer(0, TimerID);
end;

procedure DeinitializeSetup();
begin
  KillTimer(0, TimerID);
end;

Как задать в свойствах ярлыка или где, чтобы прога запускалась, только с правами Администратора? »

О свойствах ярлыка - читаем справку к инно

[semiono]

Мне нужен код чтобы разрешить установку части контента, но только при помощи ключа.
Например:
MyProg.exe /verysilent /x1 /x2 итд...
Чтобы из секции файлов копировались файлы с флагом Code: {x1} и Code: {x2} и остальные как обычно.
Просто не помню как к коду это привязать.
GUI диалог мне не нужен! Только средством ключей, и хотя бы пару покажите, ато я сам запутаюсь.
---
И ещё мне нужен ключ, чтобы указать путь установки: /PATH=... Как это в InnoSetup работает, есть ли ограничения?
Всмысле мне нужно чтобы путь указывался только посредством ключа коммандной строки,
а в GUI режиме не было возможности указать путь. Это возможно? Покажите пожалуйста?

[boss911]

как перед установкой программы, удалить какой либо ярлык? »

Код:

[InstallDelete]
Name: {userdesktop}\shortcut.lnk; Type: files

[semiono]

Помогите, пожалуйста!
Мне нужно чтобы

[Files]
... Components: a
... Components: b
...
чтобы компоненты a и b поумолчанию не устанавливались, и устанавливались только при явном их выборе. Причём нужен выбор этих компонентов из коммандной строки, например, /A /B и не зависимо друг от друга.
Графический (GUI) выбор компонентов совсем не нужен и лучше его скрыть, тем более что файлы
группы A и B по умолчанию исключены.

Проще говоря нужно такое
файл_1 установить = да
файл_2 установить = да
файл_3 установить = нет
файл_4 всегда установить
итп.

управление только с коммандной строки, хотя в худшем случае можно продублировать в GUI

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

Мне нужен код чтобы разрешить установку части контента, но только при помощи ключа. »

ну примерно так:

Код:

[Files]
Check: Check_X1; Source: x1files; DestDir: {app}\; Flags: ignoreversion noencryption
Check: Check_X2; Source: x2files; DestDir: {app}\; Flags: ignoreversion noencryption

[*C*ODE]
var x1, x2 : boolean;

Function Check_X1() : boolean;
begin
If x1 = true then Result := True else Result := False;
end;

Function Check_X2() : boolean;
begin
If x2 = true then Result := True else Result := False;
end;

Function InitializeSetup: Boolean;
var
i : integer; st : string;
Begin
  x1 := false; x2 := false;
  for i:=2 to ParamCount do begin
    st := Lowercase(ParamStr(i));
    Result := True;
    case st of
      Lowercase('/x1')   : x1 := true;
      Lowercase('/x2')   : x2 := true;
    end; //case
    Result := True;
  end;//for
end;//InitializeSetup

если параметров Х1/Х2 много, имеет смысл загнать проерку в одну спецфункцию Check_X где в цикле проверять какие из них назадавали в комстроке, но тут в моем мозгу происходит переполнение стека и родить такую я не могу, даже себе

по поводу компонентов - инно поддерживает сам параметр /COMPONENTS="a,b"
читай в справке Setup Command Line Parameters

[semiono]

i is unknown parameter! я паскаль не знаю, как поправить? определил как i : integre, сразу последовало тоже самое с st
---

если параметров Х1/Х2 много, имеет смысл загнать проерку в одну спецфункцию Check_X где в цикле проверять какие из них назадавали в комстроке »

не мне много не надо, разобью на группы контент, хотя бы пару ключей хватит

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

semiono,
поправил верхнее сообщение

Код:

Function InitializeSetup: Boolean;
var
i : integer; st : string;

[Photon9]

мой вопрос наверное с большой бородой и не раз задавался, тем не менее немогу разобратся, суть проблемы такова - имеется игра и имеется дополнительный софт (GfWL, visual c++, directx и т.д.) собственно необходимо даный софт прописать в скрипте так чтобы в процессе установки в инсталятора были опции (снять-поставить галочку) с выбором устанавливать или нет даный софт, как ни ковыряю скрипт получается только прописать распаковывать при установке в папку с игрой софт или нет, а вот установку как запустить немогу понять.
З.Ы. Надеюсь понятно описал суть проблемы и не очень сумбурно

[semiono]

Ура! Кажись работает как надо! Только end ещё один не хватало...
i: Integer;
st : String;