[LinkOFF]

Здравствуйте. Как сделать чтоб файл распаковывался в C:\Users\имя пользователя\AppData\Local\ ?. Я ставлю {userappdata}, но он распаковывает в C:\Users\имя пользователя\AppData\Roaming\ . Пробовал еще {userprofile}, но с ним вообще ошибку выдает.

[YURSHAT]

А сайт http://krinkels.org/ чему посвящён? »

Создавлся как сайт посвященный Inno Setup, это и является основным направлением

[Gnom_aka_Lexander]

Johny777, честно - лень искать, а вообще - помоему ближе к концу 3-й части или начале 4-й части видел подобные примеры того, как создать собственные параметры для инсталлятора.

и другой вопрос вопрос »

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

[El Sanchez]

А можно ли в инсталл добавить свои параметры запуска? как /LANG=English например, но другие. »

Johny777, используй константу {param}. Подробности в справке.

[Creator000]

тогда такой вопрос. в установщике 3 компонента. 1 это программа. остальные 2 скины и темы. как последние 2 компонентов просто скопировать из установщика в папку назначения?

[Ivan_009]

При использовании ISVideo как сделать так чтобы видео отображалось только на странице установки а на финишной закрывалось...Зараннее спасибо...

[Johny777]

Ваня,
насчёт ISVideo не знаю (ты бы скрипт с минимумом файлов дал)
вот тебе пример на основе xvid.dll
http://rghost.ru/private/38303460/fa...06bff122ee5155
делается легко во встроенной процедуре

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

Код:

procedure CurPageChanged(CurPageID: Integer); 
begin

    if CurPageID=wpInstalling then /// если страница установки
    begin
        запускаем видео 
    end;

    if CurPageID=wpFinished then /// на странице завершения 
    begin
       выключаем видео
    end;

end;

______________________________________________________

El Sanchez,
спасибо!
очень привлекательный вариант
но если честно не пойму как правильно использовать
мне нужно для чекбоксов
сделал так:

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

Код:

[Setup]
AppName=Name
AppVerName=Name
DefaultDirName={pf}\Name
compression=none

[ Code]

procedure InitializeWizard;
var
  CheckBox: TNewCheckBox;
  
begin

  CheckBox := TNewCheckBox.Create(WizardForm);
  with CheckBox do
  begin
    Caption := 'Test';
    if ExpandConstant('{param:Check|1}') then Checked := true else Checked := false;
    Parent := WizardForm;
    SetBounds(ScaleX(64), ScaleY(328), ScaleX(97), ScaleY(17));
  end;

end;

даже не компилится
ошибка

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

---------------------------
Ошибка компиляции
---------------------------
Строка 18:

Column 42:

Type mismatch.
---------------------------
ОК
---------------------------

можно мне пожалуйста живой пример?

[El Sanchez]

if ExpandConstant('{param:Check|1}') then Checked := true else Checked := false; »

Johny777, ну и с чем ты сравниваешь результат ExpandConstant? Это ж строка. Нужно так:

Код:

case ExpandConstant('{param:Check|}') of
  '1': Checked := True;
  '0': Checked := False;
end;

[Serkap]

Serkap Forever & Курский Город Друзей - скрипт писался для чата Bimoid

Для чего его писал я, у меня есть большая локальная сеть которая состоит из несколько подсетей, у каждой подсети есть свой шлюз, а у меня 7 под сетей (7 шлюзов) и также есть доступ через интернет.
Один сервер обрабатывает эти 7 шлюзов и 1 подключение через интернет! На этом сервере стоит сервер чата.

Пользователь запускает этот инсталлятар, инсталлятар определяет автоматически шлюз, пользователь тока указывает свой логин, после этого запись этих данных происходит в 2 INI файла автоматически.
После завершения установки, чат автоматически логинится и запускается с предустановленным профилем. Это хорошо помагает для сис админов в особенности у кого поднят Домен.
не надо бегать, настраивать для каждого пользователя профиль и т.д.!!!! достаточно запустить и указать тока логин зарегистрированого пользователя!!!
awatch.exe - для определение IP адреса или Шлюза!

Код:

#define MyAppName "Чат КГД"
#define MyAppVersion "05.2012"
#define MyAppPublisher "Курский Город Друзей"
#define MyAppURL "http://www.kursk-gd.ru/"
#define MyAppExeName "Bimoid.exe"

[Setup]
; Serkap Forever & Курский Город Друзей - скрипт писался для чата Bimoid
; Для чего его писал я,  у меня есть большая локальная сеть которая состоит из несколько подсетей, у каждой подсети есть свой шлюз, а у меня 7 под сетей (7 шлюзов) и также есть доступ через интернет.
; Один сервер  обрабатывает эти 7 шлюзов и 1 подключение через интернет! На этом сервере стоит сервер чата.
; Пользователь запускает этот инсталлятар, инсталлятар определяет автоматически шлюз, пользователь тока указывает свой логин, после этого запись этих данных происходит в 2 INI файла автоматически. 
; После завершения установки, чат автоматически логинится и запускается с предустановленным профилем. Это хорошо помагает для сис админов в особенности у кого поднят Домен.
; не надо бегать, настраивать для каждого пользователя профиль и т.д.!!!! достаточно запустить и указать тока логин зарегистрированого пользователя!!!
; awatch.exe - для определение IP адреса или Шлюза!


AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=chat katk
Compression=lzma
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
 
[Files] 
Source: "awatch.exe"; Flags: dontcopy noencryption nocompression
Source: "C:\111\чат\Bimoid.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\111\чат\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[INI] 
Filename: "{app}\Bimoid.ini"; Section: "Main"; Flags: uninsdeletesection 
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "CurLang"; String: "Russian.oln";
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "CurSkin"; String: "SnowySky.osk";
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "CurUser"; String: "{code:GetUser|Names}";
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "CurServer"; String: "{code:MyConst}";
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "DefaultServer"; String: "{code:MyConst}";
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "Port"; String: "7023";
Filename: "{app}\Bimoid.ini"; Section: "Main"; Key: "TranspResVer"; String: "0";
Filename: "{app}\Users\User0001\ObimpUser.ini"; Section: "User"; Flags: uninsdeletesection; 
Filename: "{app}\Users\User0001\ObimpUser.ini"; Section: "User"; Key: "Username"; String: "{code:GetUser|Names}";
Filename: "{app}\Users\User0001\ObimpUser.ini"; Section: "User"; Key: "Server"; String: "{code:MyConst}";

[C*o*de] 
var 
 Page: TInputOptionWizardPage; 
 UserPage: TInputQueryWizardPage;
 ip : string; 

Procedure GetIPAdress();
var S: TArrayOfString; i,res : Integer; st : string;
begin
  ExtractTemporaryFile('awatch.exe');
  Exec(ExpandConstant('{tmp}\awatch.exe'), ' /stab tab1.txt 1 ',ExpandConstant('{tmp}'),SW_HIDE,ewWaitUntilTerminated,res);
  LoadStringsFromFile(ExpandConstant('{tmp}\tab1.txt'), S); 
  for i:= 0 to GetArrayLength(S)-1 do begin
    if (Pos(AnsiUpperCase('Default Gateway'), AnsiUpperCase(S[i])) > 0) then begin
      st:=S[i];
      break;
    end;
  end;
  StringChangeEx(st, 'Default Gateway', '', True);
  st:=TrimLeft(st);
  st:=copy(st,0,Length(st)-pos('(',st)-1);
  StringChangeEx(st, '(', '', True);
  st:=TrimRight(st);
  ip:=st;
end; 


function Checked: Boolean; 
begin 
  Result := Page.Values[0]; 
end; 
 
function Checked2: Boolean; 
begin 
  Result := Page.Values[1];  
end; 


function Checked3: Boolean;
begin
  if (Page.Values[1]) then
    // компонент 'helpfiles' выбран
    MsgBox('ok', mbInformation, MB_OK);
end;  

function MyConst(Param: String): String; 
begin 

if Checked then  
GetIPAdress;   
Result := ip; 
    
if (Checked2) then ;     
end;

procedure InitializeWizard(); 
begin 

   UserPage := CreateInputQueryPage(wpWelcome,
    'Информация для входа!', 'Ваш логин:',
    'Укажите логин, который Вам выдал админисратор.');
  UserPage.Add('Name:', False);

  UserPage.Values[0] := GetPreviousData('Name', GetPreviousData('Name', ExpandConstant('{sysuserinfoname}')));
  ip := 'icq.kursk-gd.ru'; // тут указываете свой сервер подключения через интернет

  Page := CreateInputOptionPage(wpSelectTasks,'New Page', 'New Page Description.', 'Please check the box below, then click Next.', True, False); 
  Page.Add('Локальная Сеть КАТК'); 
  Page.Values[0] := True; 
  Page.Add('Если устанавливаете дома'); 
  Page.Values[1] := False; 
end; 
 
function GetUser(Param: String): String;
begin
  if Param = 'Names' then  Result := UserPage.Values[0];
end;

 [Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";
Name: "{userstartup}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

[Run]
Filename: "{app}\Bimoid.exe"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Parameters: "/id={code:GetUser|Names} /srv={code:MyConst} /port=7023 /pwd=123456789 /savepwd /login"; Flags: nowait

[Serega]

Это ж строка. Нужно так: »

Можно проще :

Код:

  Checked := ExpandConstant('{param:Check|}') = '1';