[Yury_Prizrak]

Всем привет. Такой вопрос - как сделать чекбокс на последней странице с надписью "Запустить сервис?" и, если он нажат выполнить функцию »

Так, это решил, переписал немного функцию и такой RUN:
Filename: net; Parameters: {code:GetStartService}; Description: Запустить сервис; Flags: runhidden nowait postinstall runascurrentuser

Возник следующий вопрос - до этого у меня есть на формак чекбокс установки сервиса. Как теперь спрятать чекбокс на последней странице если файлы сервиса не были установлены

Блин, туплю, извините, 2-ой вопрос тоже решил:

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

Код:

[RUN]
Filename: net;  Parameters: {code:GetStartService};  Description: Запустить сервис CVL;  Flags: runhidden nowait postinstall runascurrentuser; Check: ServiceCheck

//Функция проверки чекбокса сервиса
function ServiceCheck: Boolean;
var
	ConfigPathCVLService: String;
begin
    if not Installed then
    begin
      Result := ServiceCheckBox.Checked;
    end
    else
    begin
      ConfigPathCVLService := ExpandConstant('{app}\CVL.CvlService.exe');
      //  проверка наличия севриса
      if FileExists( ConfigPathCVLService ) then
	    begin
        Result := True;
      end
      else
      begin
        Result := False;
      end;
    end;
end;

[Johny777]

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

первый пример 2-мя функциями загрузки/выгрузки и решением проблемы выгрузки длл до её инициализации (переменная Install_Runs (спасибо Serega))

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

Код:

[Setup]
AppName=My prog
AppVerName=My prog
DefaultDirName={pf}\My prog
UninstallFilesDir={app}\uninstall

[Files]
Source: steam.cjstyles; DestDir: {#SetupSetting("UninstallFilesDir")}; Flags: ignoreversion nocompression solidbreak sortfilesbyextension; Attribs: hidden system
Source: isskin.dll; DestDir: {#SetupSetting("UninstallFilesDir")}; Flags: ignoreversion nocompression solidbreak sortfilesbyextension; Attribs: hidden system


[  code]
var
  install_Runs: boolean;

procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall setuponly';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall setuponly';
procedure LoadSkinU(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
procedure UnloadSkinU(); external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';

function Load_Skin(Param: String; Skin: String): boolean;
begin
  Result := False;
  case Param of
    'I':
    begin
      ExtractTemporaryFile(Skin);
      LoadSkin(ExpandConstant('{tmp}')+'\steam.cjstyles', '');
      Result := True;
    end;
    
    'U':
    begin
      if FileCopy(ExpandConstant('{#SetupSetting("UninstallFilesDir")}\steam.cjstyles'), ExpandConstant('{tmp}\steam.cjstyles'), True) and
         FileCopy(ExpandConstant('{#SetupSetting("UninstallFilesDir")}\isskin.dll'), ExpandConstant('{tmp}\isskin.dll'), True) then
         LoadSkinU(ExpandConstant('{tmp}\steam.cjstyles'), '');
      Result := True;
    end;
  end;
end;

procedure UnLoad_Skin(Param: String);
begin
  case Param of
    'I':
    begin
      WizardForm.Hide;
      Sleep(227);
      UnloadSkin();
    end;

    'U': UnloadSkinU();
  end;
end;




function InitializeSetup(): Boolean;
begin
  Install_Runs := False;
  Result := Load_Skin('I','steam.cjstyles');
end;

procedure InitializeWizard();
begin
  Install_Runs := True; // в конец процедуры
end;

procedure DeinitializeSetup;
begin
  if install_Runs then UnLoad_Skin('I');
end;

function InitializeUninstall(): Boolean;
begin
  Result := Load_Skin('U','steam.cjstyles');
end;

procedure DeinitializeUninstall();
begin
  UnLoad_Skin('U');
end;

второй простой пример

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

Код:

[Setup]
AppName=My prog
AppVerName=My prog
DefaultDirName={pf}\My prog
UninstallFilesDir={app}\uninstall

[Files]
Source: steam.cjstyles; DestDir: {#SetupSetting("UninstallFilesDir")}; Flags: ignoreversion nocompression solidbreak sortfilesbyextension; Attribs: hidden system
Source: isskin.dll; DestDir: {#SetupSetting("UninstallFilesDir")}; Flags: ignoreversion nocompression solidbreak sortfilesbyextension; Attribs: hidden system

[  code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall setuponly';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall setuponly';
procedure LoadSkinU(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
procedure UnloadSkinU(); external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';


function InitializeSetup(): Boolean;
begin
    ExtractTemporaryFile('steam.cjstyles');
    LoadSkin(ExpandConstant('{tmp}')+'\steam.cjstyles', '');
    Result := True;
end;

procedure DeinitializeSetup;
begin
    WizardForm.Hide;
    Sleep(227);
    UnloadSkin();
end;

function InitializeUninstall(): Boolean;
begin
    Result := False;

    if FileCopy(ExpandConstant('{#SetupSetting("UninstallFilesDir")}\steam.cjstyles'), ExpandConstant('{tmp}\steam.cjstyles'), True) and
       FileCopy(ExpandConstant('{#SetupSetting("UninstallFilesDir")}\isskin.dll'), ExpandConstant('{tmp}\isskin.dll'), True) then
       LoadSkinU(ExpandConstant('{tmp}\steam.cjstyles'), '');

    Result := True;
end;

procedure DeinitializeUninstall();
begin
    if FileExists(ExpandConstant('{tmp}\steam.cjstyles')) and FileExists(ExpandConstant('{tmp}\isskin.dll')) then UnloadSkinU();
end;

касательно доп. цветов читай http://forum.oszone.net/showpost.php?p=1885463#

Yury_Prizrak,
зачем тебе лишние логические скобки?

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

Код:

      if FileExists( ConfigPathCVLService ) then
	    begin
        Result := True;
      end
      else
      begin
        Result := False;
      end;
    end;

можно проще

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

Код:

      if FileExists( ConfigPathCVLService ) then Result := True else Result := False;

а если посмотреть на то что функция FileExists возвращает function FileExists(const Name: String): Boolean;
то можно вообще упростить до Result := FileExists( ConfigPathCVLService );
а можно и без функции "ServiceCheck" обратиться напрямую к чекбоксу
if not Installed then ServiceCheckBox.Checked := FileExists(ExpandConstant('{app}\CVL.CvlService.exe')) else ServiceCheckBox.Checked := Installed (или True);

[MogilShik2007]

Странно, с любым скриптом при использовании деинсталлятора со скином выдает ошибку, вылетает несколько сот окошек, чет ругается, заметил что-то про папку Temp, может из-за того что временная папка в другом месте?

[SatHan]

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

[MogilShik2007]

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

+ такой вопрос, кто работал с ReDrawText как в скрипте прописать, чтоб работало на разных страницах, а не на одной?
Или на одной, но в разных местах...

[SatHan]

Скрипты выше, то что Johny777 накидал, да и любой другой скрипт, трабла у всех одна... выбивает с несколькими сотами окон об ошибки »

Какие скрипты, то что в данном посте?
Что-то не могу понять, какие ошибки? Вот лично проверил два скрипта оба работают и не какими ошибками при деинсталяции не страдал.

MogilShik2007, Вот прикрепил архив со скриптами что выложил Johny777. У меня всё работает. Проверяй.

[MogilShik2007]

Удаление работает со скином, но при установке игры, после нажатия на кнопку Готово. вылетают окошки (несколько сотен):


+ такой вопрос, кто работал с ReDrawText как в скрипте прописать, чтоб работало на разных страницах, а не на одной?
Или на одной, но в разных местах...

[SatHan]

Подскажите какие цвета в формате color=$FF0000 поддерживает IS, а то не все хавает. »

Ещё можно использовать такие значения

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

Код:

Color := clRed;

тоесть

Код:

Green - Зелёный
Yellow - Желтый
Red - Красный
Blue - Синий
Lime - Салатовый
Silver - Стальной (Серый)
Olive - Оливковый
Aqua - Аквамарин
Purple - Пурпурный

и вставляешь в

Код:

Color := cl;

то есть

Код:

Color := clСюда;

Только Inno насчёт таких значений слабоват
Например он не знает таких цветов
Цвет Цвет Цвет Цвет Цвет Цвет Цвет Цвет Цвет Цвет Цвет Цвет Цвет

Удаление работает со скином, но при установке игры, после нажатия на кнопку Готово. вылетают окошки (несколько сотен) »

Ты чистый использовал код, из архива? Не куда ли его не добавлял (потому как если ты встраивал в свой скрипт то возможно какие нибудь функции или процедуры конфликтуют).
Переменная Windows %TEMP% стандартная, не изменял?
Так же может быть чего не хватает системе или наоборот чего лишнего.
Я проверял скрипты и на WXP и W7 и ничего подобного не встречал.

[SatHan]

Ответьте пожалуйста на вопрос.

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

Имеется секция [Files] с назначением путей

Код:

[Files]
Source: "File\1\*"; DestDir: "{app}\Section1\"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "File\2\*"; DestDir: "{app}\Section2\"; Flags: ignoreversion recursesubdirs createallsubdirs

ка сделать чтобы каждая секция DestDir

Код:

DestDir: "{app}\Section1\"
DestDir: "{app}\Section2\"

брала пути из реестра?

Код:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1]
"Inno Setup: App Path"="C:\\Program Files\\Application1"
и
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1]
"Inno Setup: App Path"="C:\\Program Files\\Application2"

то есть

Код:

DestDir: "{app}\Section1\"
из
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1]
"Inno Setup: App Path"="C:\\Program Files\\Application1"
а
DestDir: "{app}\Section2\"
из
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1]
"Inno Setup: App Path"="C:\\Program Files\\Application2"

если в реестре не находит то ставила в местоположение по умолчанию то есть

Код:

DestDir: "{app}\SectionX\"

[Johny777]

SatHan,
сделал(ответ на твой вопрос - секция Files, не более) и позволил себе размахнуться(вся секция кода - расширение возможностей (опционально)) ещё дальше
(надеюсь не зря!)

пример 1:

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

Код:

[Setup]
AppName=Reg_Path_Demo
AppVerName=Reg_Path_Demo
DefaultDirName={pf}\Reg_Path_Demo

// для теста
appid=Application1
//appid=Application2


[Files]
/// первый пример (для наглядности)
/////////////////// путь:........................................через ключ реестра(корневой каталог установленной программы)\Section1 (в эту папку в корневом каталоге)  - это путь только через реестр
Source: "File\1\*"; DestDir: "{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1,InstallLocation}\Section1"; Flags: ignoreversion recursesubdirs createallsubdirs

/// второй пример (как ты хотел)
/////////////////// путь:.......................................через ключ реестра(корневой каталог установленной программы)|(если ключа нет в {app})\Section2 (в эту папку в корневом каталоге)  - это путь через реестр и в {app}(в {app} если нет ключа)
Source: "File\2\*"; DestDir: "{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1,InstallLocation|{app}}\Section2"; Flags: ignoreversion recursesubdirs createallsubdirs



[  code]
function Key_Exist: Integer;
var
  Key_1_Exist, Key_2_Exist: boolean;
begin
  Key_1_Exist := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1');
  Key_2_Exist := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1');
  
  if Key_1_Exist and Key_2_Exist then Result := 3 else
  if Key_1_Exist then Result := 1 else
  if Key_2_Exist then Result := 2 else
  Result := 0;
end;

procedure Create_Labels(Param: Integer);
begin
  if Param <> 0 then
  begin
    with WizardForm do
    begin
      with TLabel.Create(nil) do
      begin
        Parent := SelectDirPage;
        case Param of
          1:
          begin
            SelectDirBrowseLabel.Caption := 'Путь установки 2:';
            DirEdit.Top := DirEdit.Top + ScaleY(30);
            DirBrowseButton.Top := DirEdit.Top - ScaleY(1);
            Caption := 'Путь установки 1: ' + RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1,InstallLocation}'));
            SetBounds(DirEdit.Left, DirEdit.Top - ScaleX(60), DirEdit.Width, ScaleY(90));
          end;

          2:
          begin
            SelectDirBrowseLabel.Caption := 'Путь установки 1:';
            Caption := 'Путь установки 2: ' + RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1,InstallLocation}'));
            SetBounds( DirEdit.Left, DirEdit.Top + ScaleX(60), DirEdit.Width, ScaleY(90));
          end;

          3:
          begin
            Caption := 'Путь установки 1: ' + RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1,InstallLocation}')) + #13#10 + #13#10 + #13#10 + #13#10 +
                       'Путь установки 2: ' + RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1,InstallLocation}'));
            SetBounds( DirEdit.Left, DirEdit.Top, DirEdit.Width, ScaleY(90));
          end;
        end;
      end;
      SelectDirBrowseLabel.Height := ScaleY(16);
      SelectDirBrowseLabel.Top := DirEdit.Top - SelectDirBrowseLabel.Height; 
    end;
  end;
end;

procedure InitializeWizard();
var
  a: Integer;
begin
  a := Key_Exist;
  
  with WizardForm do
  begin
    DirEdit.Visible := a <> 3;
    if not DirEdit.Visible then
    begin
      DirBrowseButton.Visible := DirEdit.Visible;
      SelectDirBrowseLabel.Visible := DirEdit.Visible;
    end;
  end;
  
  Create_Labels(a);
end;

обрати внимание на это символ |

пример 2(сделал как для себя бы хотел). Рекомендую:

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

Код:

#define Section_1 "Section1"
#define Section_2 "Section2"

[Setup]
AppName=Reg_Path_Demo
AppVerName=Reg_Path_Demo
DefaultDirName={pf}\Reg_Path_Demo

// для теста
appid=Application1
//appid=Application2                


[Files]
Source: "File\1\*"; DestDir: "{code:Get_Path_0}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "File\2\*"; DestDir: "{code:Get_Path_1}"; Flags: ignoreversion recursesubdirs createallsubdirs


[  code]
var
  Page: TInputDirWizardPage;
  
  
function Get_Path_0(Param: String): String;
begin
  Result := Page.Values[0];
end;


function Get_Path_1(Param: String): String;
begin
  Result := Page.Values[1];
end;


function Key_Exist: Integer;
var
  Key_1_Exist, Key_2_Exist: boolean;
begin
  Key_1_Exist := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1');
  Key_2_Exist := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1');
  
  if Key_1_Exist and Key_2_Exist then Result := 3 else
  if Key_1_Exist then Result := 1 else
  if Key_2_Exist then Result := 2 else
  Result := 0;
end;


procedure InitializeWizard();
begin
  Page:=CreateInputDirPage(wpWelcome,'копирование файлов', 'Укажите каталоги','',False,'NewFolder');
  with Page do
  begin
    Add('путь 1:');
    Add('путь 2:');
    
    case  Key_Exist of
      1:
      begin
        Values[0] := RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1,InstallLocation}')) + '\{#Section_1}';
        Values[1] := 'C:\{#Section_2}';
      end;
      
      2:
      begin
        Values[0] := 'C:\{#Section_1}';
        Values[1] := RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1,InstallLocation}')) + '\{#Section_2}';   //
      end;
      
      3:
      begin
        Values[0] := RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1,InstallLocation}')) + '\{#Section_1}';
        Values[1] := RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1,InstallLocation}')) + '\{#Section_2}';   //
      end;
    
      0:
      begin
        Values[0] := 'C:\{#Section_1}';
        Values[1] := 'C:\{#Section_1}';
      end;
    end;
  end;
end;

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
begin
  Result := 'путь 1:' + NewLine + Space + Page.Values[0] + NewLine + NewLine + 'путь 2:' + NewLine + Space + Page.Values[1];
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID = wpSelectDir;
end;

MogilShik2007,
по ошибке трудно(для меня даже невозможно) определить косяк
покажи лучше код с файлами
может смогу исправить!