Inno Setup (создание инсталяционных пакетов)

[Winst@n]

Mickey1s,
Какие именно файлы вы хотите туда скопировать?
От инстала или от игры?

 

[Mickey1s]

Winst@n, от игры

 

[nik1967]

Mickey1s, а что мешает запаковать эти файлы во FreeArc и воспользоваться ISDone?
Ну или изменить if CurStep = ssInstall then begin на if CurStep = ssPostInstall then begin в процедуре распаковки ISDone. Только это чревато тем, что сначала будут копироваться файлы из секции [Files], создаваться иконки, прописываться реестр, и лишь потом будут распаковываться архивы в ISDone.
Можно ещё воспользоваться функцией FileCopy в секции

.

 

[sergey3695]

создаваться иконки

Это можно и в скрипте прописать чтобы после isdone шло,ну а остальное незаметно. Да, тебе никто не отвечал потому что выше был ответ FileCopy и никаких замарочек нинадо. А писать одно и тоже постом выше абсурдно.

 

[MAKS_MAFIA]

Привет всем. Кто знает как сделать копирование файлов из одной папки в другую при выбранном компоненте? Ответьте пожалуйста.

 

[EvilAlex]

Доброго времени суток!
Как сделать звук при нажатии одной кнопки (желательно через bass.dll), например кнопки "Далее"?

 

[Dendy]

А мне может кто помочь?
http://krinkels.org/showpost.php?p=18841&postcount=125

 

[ecspertiza]

Необходимо после установки приложения, запускать его. Но при условии, что инсталлер запущен из консоли с флагом /verysilent

флаги

Flags: postinstall nowait skipifsilent;

в данном случае не работают.

 

[Snoopak96]

ecspertiza,

function NextButtonClick(CurPageID: Integer): Boolean;
Var
ResultCode: integer;
begin
Result:=True;
If (WizardSilent)and(CurPageID=wpFinished)then Exec(ExpandConstant('{app}\MyProg.exe'),'',ExpandConstant('{app}\'), SW_SHOW, ewNoWait, ResultCode);
end;

 

[makst]

Привет всем. Хотел бы узнать, при двух-язычном инсталляторе, как сделать чтобы Время установки было полностью переведено?

http://s14.directupload.net/images/131123/g9a5rxnm.png

"секунды" и "минуты"

Заранее спасибо!

 

[sergey3695]

kkels,

//    if ISDoneInit... тра та та then begin
     repeat
if ActiveLanguage = 'eng' then // твой англ. если выбран (смотри в [Languages]) 
       ChangeLanguage('English'); // English.ini c isdone

 

[Tolyak26]

Привет. Снова обращаюсь за помощью. Нужно сделать, что бы при распаковке с помощью ISDone показывался прогресс-бар в панели задач Windows Vista / 7 / 8. Смотрел WinTB, но так и не удалось понять, как его прикрутить для ISDone.

 

[sergey3695]

Tolyak26,

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
...
  SetTaskBarProgressValue(0, OveralPct div 10);
...
end;

 

[HandyMan]

Помогите оптимизировать работу инсталятора. http://rghost.ru/download/50450088/3920971de448b8c776a21c064ab7dddbf7b90bc1/IsExec.zip

 

[sergey3695]

Как обработать нажатие win+d? С помощью GetKeyState можно сделать? Если да то как?

 

[Xabib2302]

доброе время суток. как сделать чтобы ставилась галочка возле Не создавать папку в меню «Пуск» при выборе компонента AIDA64\Portable.

 

[Shegorat]

Как обработать нажатие win+d? С помощью GetKeyState можно сделать? Если да то как?

В Inno сообщение WM_KEYDOWN не передается WizardForm, можно его конечно захукать, но тогда отладку из под компилятора сделать не получится.
Через GetKeyState да можно сделать, примерно так
Код

[noparse][Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[code]
const
  VK_KEYD             = $44;
  VK_MENU             = $12;
  
var
  ntr: TTimer;

function GetKeyState(nVirtKey: Integer): ShortInt; external 'GetKeyState@user32 stdcall delayload';

procedure KeyState(Sender: TObject);
begin
  if (GetKeyState(VK_MENU) < 0) and (GetKeyState(VK_KEYD) < 0) then
    MsgBox('Внимание! Вы нажали комбинацию клавиш Alt+D. Все ваши данные будут уничтожены в течении 30 секунд...', mbInformation, MB_OK);
end;

procedure InitializeWizard();
begin
  ntr:= TTimer.Create(WizardForm);
  ntr.Interval:= 100;
  ntr.OnTimer:= @KeyState;
end;

procedure DeinitializeSetup();
begin
  ntr.Free;
end;[/noparse]

доброе время суток. как сделать чтобы ставилась галочка возле Не создавать папку в меню «Пуск» при выборе компонента AIDA64\Portable.

Ээм, например так:
Код

[noparse][Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
AllowNoIcons=true

[Components]
Name: AIDA;                   Description: "AIDA"              ;
Name: AIDA\Portable;          Description: "Портативная версия"; Flags: exclusive;
Name: AIDA\FullInstallation;  Description: "Полная установка"  ; Flags: exclusive;

[Icons]
Name: {group}\AIDA.exe; Filename: {app}\AIDA.exe;
Name: {group}\Manual.pdf; Filename: {app}\Manual_en.pdf;

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectProgramGroup then begin
    WizardForm.NoIconsCheck.Checked:= ISComponentSelected('AIDA\Portable');
    WizardForm.NoIconsCheck.Enabled:= not ISComponentSelected('AIDA\Portable');
  end;
end;[/noparse]

 

[Djinn]

Привет!!
Поскажите пожалуйста как убрать вот это синие выделение на тексте

 

[sergey3695]

Djinn, WizardForm.DirEdit.AutoSelect:= False;

 

[EvilAlex]

Доброго времени суток!
Сделал на одном из примеров форму сообщения отмены...
Все супер, вот только вместо радиуса хотелось бы сделать картинку фона и картинку с тенью за ней...
Испробовал все, видимо мне не дано((
Помогите пожалуйста ?
Заранее спасибо!