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

[Katarn]

Katarn
Какбы здесь проверка через реестр, а при установке, никакие ключи в реестр не записываются

Edison007
А где и что прописать нужно чтобы в реестр записывалось?

 

[Edison007]

Katarn
Читай в справке про секцию [Registry]

 

[YURSHAT]

А где и что прописать нужно чтобы в реестр записывалось?

В секции Registry. Ты ведь в скрипте проверяешь наличие ключа в реестре и наличие экзешки в папке установки. То есть сначала создай нужную ветку, закинь экзешку, а потом проверяй.
Вот пример

[SOURCE="iss"][Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

[Registry]
Root: HKLM; Subkey: Software\My Program; ValueType: string; ValueName: InstallPath; ValueData: {app}; Flags: uninsdeletekey

function InitializeSetup: Boolean;
var
  path: string;
  res: Integer;
begin
  Result:= True;
  if RegValueExists(HKLM, 'Software\My Program', 'InstallPath') then
    if RegQueryStringValue(HKLM, 'Software\My Program', 'InstallPath', path) then
      if FileExists(path + '\MyProg.exe') then
  if MsgBox('Запустить My Program?', mbConfirmation, MB_YESNO) = IDYES then
    begin
      Exec(path + '\MyProg.exe', '', '', SW_SHOW, ewWaitUntilTerminated, res);
      Result:= False;
    end
  else Result:= False;
end;[/SOURCE][/MORE] проверки как в Сталкере .

 

[deaddima]

Народ у меня проблемка
Хочу сделать RePack на игру minercaft
А проблема заключается в следующем:

Спойлер

Если ОС Win XP - то путь установки C:/Documents and Settings/User name/Application Data/
А если Windows 7, Vista - C:/Users/User name/AppData/Roaming

Так вот как мне сделать так чтобы взаисимости от OC игру устанавливало в определённую папку или существует какая-то определённая константа в Inno Setup?

 

[YURSHAT]

Так вот как мне сделать так чтобы взаисимости от OC игру устанавливало в определённую папку или существует какая-то определённая константа в Inno Setup?

Константа {localappdata} подойдет?

 

[Katarn]

В секции Registry. Ты ведь в скрипте проверяешь наличие ключа в реестре и наличие экзешки в папке установки. То есть сначала создай нужную ветку, закинь экзешку, а потом проверяй.
Вот пример

[SOURCE="iss"][Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

[Registry]
Root: HKLM; Subkey: Software\My Program; ValueType: string; ValueName: InstallPath; ValueData: {app}; Flags: uninsdeletekey

function InitializeSetup: Boolean;
var
  path: string;
  res: Integer;
begin
  Result:= True;
  if RegValueExists(HKLM, 'Software\My Program', 'InstallPath') then
    if RegQueryStringValue(HKLM, 'Software\My Program', 'InstallPath', path) then
      if FileExists(path + '\MyProg.exe') then
  if MsgBox('Запустить My Program?', mbConfirmation, MB_YESNO) = IDYES then
    begin
      Exec(path + '\MyProg.exe', '', '', SW_SHOW, ewWaitUntilTerminated, res);
      Result:= False;
    end
  else Result:= False;
end;[/SOURCE][/MORE] проверки как в Сталкере .[/QUOTE]

С этим кодом всё равно при установленной игре, и повторном нажатии на [B]setup.exe[/B], происходит установка игры. Вот с этим кодом всё норм
[ADMIN="YURSHAT"]Код который я дал рабочий на 100%. Попробуй скомпиль (без изменений) и запусти. Ты где то косякнул просто.[/ADMIN]

[SPOILER="Код"][Code]
var
 AppDir: string; ResultCode: Integer;

procedure ReadEntries();
begin
	RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\GSC Game World\STALKER-SHOC', 'InstallPath', AppDir);
end;

function InitializeSetup(): Boolean;
var
  Exe, AppDir: string;
  ResultCode: Integer;
begin
 Exe:='\bin\XR_3DA.exe';
 if (RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\GSC Game World\STALKER-SHOC', 'InstallPath')) then
 begin
  ReadEntries;
  case (MsgBox('Игра S.T.A.L.K.E.R. уже найдена на Вашем компьютере. Запустить игру?', mbConfirmation, MB_YESNOCANCEL or MB_DEFBUTTON3)) of
  IDYES:
   begin
    if (FileExists(AddBackslash(AppDir) + Exe)) then
    begin
     Exec(AddBackslash(AppDir) + Exe, '', ExtractFilePath(AddBackslash(AppDir) + Exe), SW_SHOW, ewNoWait, ResultCode);
    end else begin
     MsgBox('Невозможно запустить S.T.A.L.K.E.R., т.к. исполняемый файл программы не найден.', mbCriticalError, MB_OK or MB_DEFBUTTON1);
    end
    Result:=False;
   end
  IDNO:
   begin
    Result:=True;
   end
  IDCANCEL:
   begin
    Result:=False;
   end
  end
 end else begin
  Result:=True;
 end
end;[/SPOILER]

Проверено.

 

[Stalkersof]

Помогите. Что нужно подправить чтоб в место надписей в скрипте Two Worlds 2 v.1.1 сделать кнопки.
Если я заменю(Нарисую кнопку) стандартный рисунок кнопки получится или еще что то надо.

PS все спасибо разобрался.

 

[LexBell]

2all Обновил ссылку на русскую справку.

 

[Winst@n]

Возник такой вопрос. Как можно сделать отображение пб блоками?

 

[Shegorat]

Как можно сделать отображение пб блоками?

Это как? Кусками что ли? Типа бегущего пб?

 

[Winst@n]

Shegorat,
Это типа как в win98.
В inno нет такого режима отображения.

Style := npbstMarquee;
Есть один доступный стиль хотя если смотреть то их три.
http://msdn.microsoft.com/ru-ru/library/system.windows.forms.progressbarstyle(v=vs.90).aspx

 

[KorwiN]

Привет всем!
Пытаюсь создать эффект "выезда" списка компонентов из-за рамки wizardform.
Организовал это так:
КОД

[SOURCE="iss"]i:=WizardForm.ComponentsList.Top;
If i= WizardForm.ComponentsList.Top then
begin
while True do
begin
WizardForm.ComponentsList.Top:= ScaleY(i);
WizardForm.WelcomePage.Refresh;
if i=ScaleY(181) then Break;
i:=i-3;
WizardForm.ComponentsList.LoadBGBmpFromFile(BGImgFile, WizardForm.ComponentsList.Left+BorderWidth, WizardForm.ComponentsList.Top+BorderWidth);
end;[/SOURCE]

Но есть два побочных эффекта:
1.WizardForm.WelcomePage.Refresh; - после каждого сдвига страница обновляется, что создает эффект моргания пока форма "выезжает"
2.Вот вторая проблема - текст само собой смазывается - остается "след" от перетягивания:

Спойлер: скрин1

Подскажите плиз как их исправить или как переделать, может кто-то знает как по другому это можно сделать.

p.s. код взят из скрипта moonlight82 - закос на r.g.catalyst

 

[Edison007]

KorwiN
Сделай через таймер

 

[KorwiN]

KorwiN
Сделай через таймер

Edison007
Не подскажете каким образом?
Что-то я немного не догоняю...
Если не тяжело черканите код, пожалуйста.

 

[Edison007]

KorwiN

Как-то так

type
  TCallbackProc = procedure (Sender: TObject);

function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall delayload';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure Timer(Sender: TObject);
begin
  WizardForm.ComponentsList.Top:=WizardForm.ComponentsList.Top + 48;
  if WizardForm.ComponentsList.Top > 10 then
  KillTimer(WizardForm.Handle, 1);
end;

....
SetTimer(WizardForm.Handle, 1, 1, WndProcCallBack(@Timer, 0))
...

 

[KorwiN]

KorwiN

Как-то так

type
  TCallbackProc = procedure (Sender: TObject);

function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall delayload';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure Timer(Sender: TObject);
begin
  WizardForm.ComponentsList.Top:=WizardForm.ComponentsList.Top + 48;
  if WizardForm.ComponentsList.Top > 10 then
  KillTimer(WizardForm.Handle, 1);
end;

....
SetTimer(WizardForm.Handle, 1, 1, WndProcCallBack(@Timer, 0))
...

Блин не получается(
Но все равно спасибо Вам!

 

[gocha]

Как сделать в ключить в одну сообщение Путь установки и нужное место в ГБ жырним шрифтом, но остальние слова без Ж? (как у гог.ком)

В скрипте от Каталистов не совсем то...

 

[KorwiN]

Как сделать в ключить в одну сообщение Путь установки и нужное место в ГБ жырним шрифтом, но остальние слова без Ж? (как у гог.ком)

В скрипте от Каталистов не совсем то...

Еще раз пожалуйста и по человечески...
Если пойму ЧТО вы хотите может смогу помочь...

 

[gocha]

Как сделать такую какая показана на рисунке. 2 рисунка для пониятия - как реагирует текст на изменение Пути установки...
И как объяснял Путь и Размер Bold

 

[KorwiN]

gocha, вот как-то так...
может можно как-то проще, но мне в голову больше ниче не пришло)

Пример

[SOURCE="iss"]var
NeedSpaceLabel: TLabel;

procedure change(Sender: TObject);
begin
NeedSpaceLabel.Caption:= ' Ваша игра будет установлена на диск ' + Copy(WizardForm.DirEdit.Text, 1, 3) + 'и для установки потребуется 50 ГБ';
end;

procedure InitializeWizard();
begin
WizardForm.DiskSpaceLabel.Hide;
NeedSpaceLabel := TLabel.Create(WizardForm);
WizardForm.DirEdit.OnChange := @change;
with NeedSpaceLabel do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(220);
Width := ScaleX(209);
Height := ScaleY(13);
Caption:=' Ваша игра будет установлена на диск ' + Copy(WizardForm.DirEdit.Text, 1, 3) + 'и для установки потребуется 50 ГБ ';
end;
end;
[/SOURCE]

вот так получается:

Спойлер: Скрин

шрифт ты думаю прикрутишь сам

[ADMIN="YURSHAT"]Заключайте код inno setup в тег source. Пример: [noparse][SOURCE="iss"]ваш код[/SOURCE][/noparse][/ADMIN]