[nik1967]

Ещё один вопросик, как совместить эти два кода? »

Например использовать флаги.

Как то так

Код:

[Setup]
AppId={{9CC9A926-EC33-48FC-81D9-2EEAB3BF79B7}
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AllowNoIcons=yes
OutputDir=.
OutputBaseFilename=setup0
Compression=lzma
SolidCompression=yes

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


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

[Icons]
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"

[ code]
var Flag: boolean;

function InitializeSetup: Boolean;
begin
Flag:= True;
Result:=true;
if not FileExists(ExpandConstant('{pf}')+'\My Program\MyProg.exe')
then
begin
MsgBox('MyProg не найден, сначала установите MyProg.', mbInformation, MB_OK);
Flag:= False;
Result:=false;
end;
end;

procedure DeinitializeSetup();
begin
if Flag then
if WizardForm.CurPageID = WpFinished then
begin
SetIniString('Component1','outname', 'plugin1.dll',ExpandConstant('{app}\config.ini'))
end;
end;

[insombia]

VinTagE в следующий раз как будешь делать вторую версию этого скрипта то сделай выбор приоритета чтобы юзер мог сам себе его поставить

[sergey3695]

VinTagE в следующий раз как будешь делать вторую версию этого скрипта то сделай выбор приоритета чтобы юзер мог сам себе его поставить »

Тут приоритет можно устанавливать только для инсталлятора, но не для процессов. Это штука бесполезна если используешь ISDone и подобные.[/post]

+1

[valyok666]

Rikill, а что я написал????

[insombia]

Повторю ещё раз может кто-то знаешь можно ли сделать такую библиотеку чтобы в инстале снег шел?

[Devils Night]

Например использовать флаги. »

Спасибо! Помогло, работает отлично.

По ходу дела появилась ещё одна проблемка, при деинсталяции в файле config.ini остаётся строка outname=plugin1.dll, т.к в секции [Component1] имеются ещё строчки, то нужно удаление только outname=plugin1.dll а не всей секции.

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

Код:

[Component1]
outname=plugin1.dll < - Удалить только это.
outname=plugin2.dll
outname=plugin3.dll
outname=plugin4.dll

как это реализовать?

[ARS_23]

всем привет!!!
кто работал с gdiplus.dll расскажите пожалуйста что это такое и с чем его едят
я сначала думал это переименованная ботва, но если заменить эту дллку на переименованную ботву-не компилится скрипт
очевидно, что это аналог ботвы, а какие у него преимущества, недостатки и как его использовать непонятно

[nik1967]

как это реализовать? »

Хм, тоже интересно было бы посмотреть на реализацию. А то

Код:

DeleteIniEntry('Component1','outname',ExpandConstant('{app}\config.ini'));

удаляет первый "outname" в ини.

Отсюда

[Component1]
outname=plugin1.dll
outname=plugin2.dll
outname=plugin3.dll
outname=plugin4.dll

[Dark_Delphin]

Всем привет.

Подскажите пожалуйста, бывают ли для бегущей строки другие эффекты?

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

[Devils Night]

А то Код: DeleteIniEntry('Component1','outname',ExpandConstant('{app}\config.ini')); удаляет первый "outname" в ини Отсюда [Component1] outname=plugin1.dll outname=plugin2.dll outname=plugin3.dll outname=plugin4.dll ».

Что-то он при установки её удаляет, а нужно чтобы при деинсталяции.
Может я чего в скрипте на чудил?

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

Код:

[ code]
var Flag: boolean;

function InitializeSetup: Boolean;
begin
Flag:= True;
Result:=true;
if not FileExists(ExpandConstant('{pf}')+'\My Program\MyProg.exe')
then
begin
MsgBox('MyProg не найден, сначала установите MyProg.', mbInformation, MB_OK);
Flag:= False;
Result:=false;
end;
end;

procedure DeinitializeSetup();
begin
if Flag then
if WizardForm.CurPageID = WpFinished then
begin
SetIniString('Component1','outname', 'plugin1.dll',ExpandConstant('{app}\config.ini'))
DeleteIniEntry('Component1','outname',ExpandConstant('{app}\config.ini'));
end;
end;