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

[Sotonisto]

Всем привет! Это сново я
Вопрос по поводу этого скрипта NFSU2. Мне в нем все нравится, но все же необходимо довавить к нему 2 кнопки - свернуть и закрыть (как на скрине). Как это реализовать (при BorderStyle:=bsNone)?

[valyok666]

Sotonisto, уже писал же что это через botva2 реализовано

[Devils Night]

Есть немного . »

Благодарю ! Работает как часы.

Вот только хотелось бы уточнить один факт.
В коде для ini указываю путь к другим дополнениям таким образом

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

Код:

SetIniString('Component1','UtilsFolder', '{app}\Skins\',ExpandConstant('{app}\config.ini'))

, если прописываю путь как {app}\Utils\, то он и в ini прописывается так же {app}\Utils\, а хотелось чтобы прописалось так же, куда собственно оно и установилось.
Это вообще возможно сделать, или вообще никак?

[Gugle]

SetIniString('Component1','UtilsFolder', '{app}\Skins\',ExpandConstant('{app}\config.ini')) »

SetIniString('Component1','UtilsFolder', ExpandConstant('{app}\Skins\'), ExpandConstant('{app}\config.ini'))

[Raf-9600]

Ктонить может подсказать скриптик, в котором бы в файл {app}\Components.ini записывалась разрядность ОСи?

[valyok666]

Devils Night,
определенное значение из INI-файла

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

[Setup]
AppName={code:GetAppName}
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

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

[code]
var
IniValue, IniFile: String;
//Для получения значения в другую секцию
Function GetAppName(IniFile: String): String;
begin
IniFile:='G:\Name.ini'
IniValue:= GetIniString('ModuleName', 'AppName', '', IniFile);
Result:=IniValue
end;
//Просто получение значения
Procedure InitializeWizard();
begin
IniFile:='G:\Name.ini'
IniValue:= GetIniString('ModuleName'{Название секции}, 'AppName'{Подключ}, '', IniFile{Ini файл});
WizardForm.WelcomeLabel2.Caption:= IniValue;
end;

[Edison007]

Sotonisto, я кидал пример , там, как раз содаются такие кнопки...

[FolDer98]

Доброго Времени суток)Недавно задался вопросом создать форму)форма получилась но как создать DirEdit не стандартной полоской а картинкой???используются ботва

[Edison007]

FolDer98, http://rghost.ru/26962561 вот тебе пример