[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;

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

Только это не решает поставленной задачи, так как удаляет первую строчку в файле ини, состоящем из нескольких значений key=outname.