[Farser21]

Nordek , спасибо огромное)

[nik1967]

Веселый Вы человек... я тут на форуме людей мучил вопросами как сделать, чтобы компоненты (уже установленные) запоминались и реестр не страдал, а Вы мне предлагаете просто поставить "NO"... »

А один фиг, если всплывает такое окно, значит инсталл читает данные из реестра, как ты не упирайся. Одну запись в реестре он по любому (если конечно не прописано Uninstallable=no) создаёт. HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\имя проги или GUID_is1. Ну а так то да, я весёлый чел.

[Mat_y]

А один фиг »

Вот решение
флаг disablenouninstallwarning

Я апну мой следующий вопрос, а то он уполз без ответа.

[nik1967]

Вот решение флаг disablenouninstallwarning »

Это решение для одного компонента, а если компонентов сотня? К каждому приписывать этот флаг? Хотя, что я доказываю.

[Mat_y]

Это решение для одного компонента, а если компонентов сотня? К каждому приписывать этот флаг? Хотя, что я доказываю. »

1/ Вы частично правы... в Ваших словах есть логика... но есть ISTool, где можно выделить все компоненты и поставить галочку напротив нужного флажка... у меня более 70 компонентов.... потратил примерно минуту с учетом запуска ISTool и нажатия кнопки сохранить в конце...

2/ Ребят... я перефразирую свой насущный вопрос...

Есть ли правило, которое бы звучало так:

Код:

если 
установка уже запускалась (или присутствует запись этого установщика в реестре)
то
не создавать TCheckBox
иначе
begin
  RedesignWizardForm;
MyTask:=TCheckBox.Create(WizardForm);
with MyTask do
begin
Parent:=WizardForm.SelectDirPage;
Caption:='Я хочу создать резервную копию';
Left:=ScaleX(0);
Top:=ScaleY(180);
Width:=ScaleX(400);
Height:=ScaleY(15);
TabOrder:=0;
Checked:=False;

3/ Ребят, из-за чего может возникать такая ошибка?

Код:

Runtime Error:

Недопустимая строка с указанием класса, ProgID: "Scripting.FileSystemObject"

[Nordek]

Mat_y, Можешь посмотреть в эту сторону:

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

Код:

[Components]
Name: A; Description: Компонент; Types: full; Check: skipcmp

[Code]
function skipcmp:boolean;
begin
  Result:=True;
begin
 If RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Inno Setup 5_is1') then
  Result:=False
end;
end;

[Mat_y]

Можешь посмотреть в эту сторону »

Что-то я никак не соображу, как бы это применить к моему случаю

[El Sanchez]

Есть ли правило, которое бы звучало так: »

Mat_y, создать чекбокс, в свойстве Visible прописать:

Код:

Visible := not RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyProgram_is1');

из-за чего может возникать такая ошибка? »

Mat_y, означает, что часть компонента WSH тю-тю из-за насильнических действий над системой. Объект FileSystemObject живет в scrrun.dll, ее и нужно перерегистрировать:

Код:

regsvr32 /u scrrun.dll
regsvr32 /s scrrun.dll

А размер файла можно получить не только с помощью объекта FileSystemObject, а и с помощью справки.

[Mat_y]

Mat_y, создать чекбокс, в свойстве Visible прописать: »

что-то не работает.... я правильно делаю:?

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

Код:

///////////////////Добавляем кнопки - Резервная копия////////////////////////////
begin
  RedesignWizardForm;
MyTask:=TCheckBox.Create(WizardForm);
with MyTask do
begin
Parent:=WizardForm.SelectDirPage;
Caption:='Я хочу создать резервную копию';
Left:=ScaleX(0);
Top:=ScaleY(180);
Width:=ScaleX(400);
Height:=ScaleY(15);
TabOrder:=0;
Checked:=False;
Visible:= not RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#AppID}_is1');
///////////////////Добавляем кнопки - Резервная копия КОНЕЦ////////////////////////////

Если ставлю просто Visible:= true, то само собой все скрывается навсегда

Объект FileSystemObject живет в scrrun.dll, ее и нужно перерегистрировать »

Этот куда вписывать? Просто ошибка на чужом компьютере всплыла.

А размер файла можно получить не только с помощью объекта FileSystemObject, а и с помощью справки. »

Не, у меня это для проверки версии файла...

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

Код:

function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;

[El Sanchez]

что-то не работает.... я правильно делаю:? »

Mat_y, {#AppID}_is1 с раскрытием константы этот раздел в реестре точно присутствует?

Этот куда вписывать? Просто ошибка на чужом компьютере всплыла. »

Mat_y, cmd.exe

Не, у меня это для проверки версии файла... »

Mat_y, тьфу, ты, ступил . Тогда GetVersionNumbers, GetVersionNumbersString, Flags - comparetimestamp.