» Inno Setup (создание инсталяционных пакетов)

nik1967

Слуш чел спасибо, реально был закомментирован. Во я дурае

Всем привет, такой вопрос - у кого нибудь есть сей скрипт, поделитесь...)
[more=подробнее]

[/more]
буду очень признателен!

Kizyak
Вот тут смотри http://forum.ru-board.com/topic.cgi?forum=5&topic=36421&start=0&limit=1&m=6#1
Need for Speed™ Undercover.iss v 2.2 [Final] + ISDone

а такой вопрос, возможно ли скрипте Need for Speed™ Undercover.iss v 2.2 [Final] + ISDone поставить картинку на каждую страницу инсталлятора?

Обновил сборку InnoUltra, не забываем отписываться об обнаруженных ошибках.

скажите что за проверка

Код: Check: not ModifyingCheck

Цитата:

скажите что за проверка

Видимо проверка на изменение чего-либо (файла на HDD, переменной в коде, ключа реестра и т.д.). Эту процедуру написал сам автор скрипта, поэтому в справке вы ничего не нашли.

Цитата:

Здравствуйте. Почему если iswin7 ставлю на страницу удаления, то после удаления остается пустая папка. Как ето можно исправить?  

попробуй так:

Код: [UninstallDelete]
Type: filesandordirs; Name: {app}

Цитата:

озможно ли скрипте Need for Speed™ Undercover.iss v 2.2 [Final] + ISDone поставить картинку на каждую страницу инсталлятора?

Точно не скажу, скрипт не видел, но наверное возможно

Скажите пожалуйста, как сделать чтобы инсталлятор закрывался после запуска программы. В конце если оставить галочку "Запустить приложение", то программа запускается, а инсталлятор не закрывается, пока не закрыть программу.

Добавлено:
Скажите пожалуйста, как сделать чтобы инсталлятор закрывался после запуска программы. В конце если оставить галочку "Запустить приложение", то программа запускается, а инсталлятор не закрывается, пока не закрыть программу.

Taran2ul

Цитата:

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

Скачайте в шапке русскую справку от товарища bugron и почитайте про секцию [Run] и флаги для запуска программ из этой секции.

YURSHAT
спасибо. Справка была, а в секцию [Run] заглянуть не додумался.

Привет всем!
Дорогие модераторы и пользователи, простите за , но должен спросить. Ни у кого не найдётся компонент для Delphi Virtual Explorer Tree (автор Jim Kueneman, мучительный поиск не дал результатов)? Ещё раз простите за оффтопик.

Цитата:

мучительный поиск не дал результатов

Ссылка
Результатов много, но в основном аналоги этого компонента. а в ветке по дельфе тебе не ответили?
Не оно?

Цитата:

Gnom3
Ссылка

Спасибо, но ссылка на файл не рабочая, как и все остальные.


Цитата:

Результатов много, но в основном аналоги этого компонента. а в ветке по дельфе тебе не ответили?
Не оно?

Не это кажется Virtual Treeview, это я имею. Честно говоря я посмотрел разел касающиеся компонентов, но там посты были такие старые, что подумал спросить здесь.

Kizyak, это моя адаптация под себя скрипта Юршата версии 1.2 + Исдан 0,5 + полупрозрачность. Там потом много еще чего появилось со временем... Самый продвинутый вариант был на ТДУ2 только вот у меня был вирус, который повредил MBR харда и все скрипты, наработки пропали)))

Хотя черной рамкой-разводами поделиться могу

Раз уж я отписался, вопрос к знатокам ибо я хз когда последний раз был на руборде (больше года назад): идея создания инсталятора из пнг-формы все так же стоит на месте? Можно ли на CreateFornFromPicture наложить кнопки без гемороя или хотя бы как-то попроще нежели это реализовано у Хтуоса в его старкрафте 2?

GhoSt_1616
нет, с ПНГ всё на месте

В последней версии юникод инно (нормальной, не китайской) у меня какой-то глюк с этой процедурой
Код: Procedure PercentsProc(h, msg, idevent, dwTime: Longword);
Begin
with WizardForm.ProgressGauge do
begin
PercentsLabel.Caption:= 'Выполнено: ' + IntToStr((Position-Min)/((Max - Min)/100)) + ' %';
SetAppTitle('Установка: ' + IntToStr((Position-Min)/((Max - Min)/100)) + ' %');
end;
End;

Xom9I4oK попробуй так:


Код: function NumToStr(Float: Extended): String;
begin
Result:= Format('%.1n', [Float]); StringChange(Result, ',', '.');
while Pos('.', Result) >0 do SetLength(Result, Length(Result)-1);
end;

Procedure PercentsProc(h, msg, idevent, dwTime: Longword);
begin
with WizardForm.ProgressGauge do
PercentsLabel.Caption:= 'Выполнено ' + NumToStr((Position*100)div Max) + ' %';
SetAppTitle('Установка: ' + NumToStr((Position*100)div Max) + ' %');
end;

GhoSt_1616
Да уже пробовали как бы, в XP всё норм, в win7/vista мигают контролы при кликах по второй форме, вырубать доступность второй формы не вариант, т.к. не передать захват на неё, там с фокусами ковыряться надо - в общем забили на эту идею (я по кране мере точно ) Маска к стати там вообще не нужна.

Gnom3
Спасибо.

Как сделать чтобы заработал этот код (проверка присутствует какой-либо файл с расширением ехе в определенной папке)

Код: If (FileSearch('*.exe', ExpandConstant('{app}'))='') then

Xom9I4oK
Используй связку FindFirst, FindNext, FindClose.

YURSHAT
Я тут в шапке посмотрел ссылка на "Инструкция по добавлению нужных кусков кода в скрипт (русский язык)" (раздел "Дополнительные утилиты для Inno Setup") была неисправна. Исправьте эту ссылку на следующую, пожалуйста - http://pastehtml.com/view/bj5zbh42r.html

bugron

Цитата:

Исправьте эту ссылку на следующую

Исправил

nik1967
И тебя с наступающим!

Цитата:

Дорогие форумчане! С наступающим Новым 2012 годом Вас!

Я тоже всех поздравляю. Пусть новый год будет удачным для всех. Ура-Ура-Ура!!!

Цитата:

То есть в данном виде он не работает как надо, то есть не находит ехе-файл по маске.

Цитата:

Используй связку FindFirst, FindNext, FindClose.

Делал для себя - Получение списка файлов в папке, подсчет количества, удаление с отображением на прогрессбаре:
[more=код]
Код: ; Скрипт создан через Мастер Inno Setup Script.
; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code*]
var
UnInstPage: TWizardPage;
fIleCount: TLabel;
FileList: TNewListBox;
UninsProgress: TNewProgressBar;
OkButton,BrowseButton,UninsBtn: TNewButton;
BrowseEdit: TNewEdit;
ExtractTimer: TTimer;
Step:Integer;

procedure UpdPos(lpStep: Integer);
var k: Integer;
begin
for k:=1 to lpStep div 2 do begin
UninsProgress.Position:= UninsProgress.Position+1;
UninsProgress.Refresh;
end;
end;

procedure Extracted(Sender: TObject);
var
i: Integer;
begin
for I:=0 to FileList.Items.Count-1 do begin
UpdPos(Step);
DeleteFile(FileList.Items.Strings);
UpdPos(Step);
UninsProgress.Position:= Step*(i+1);
end;
UninsProgress.Position:=UninsProgress.Max;
UninsProgress.Refresh;
DelTree(BrowseEdit.Text,True,True,True);
Sleep(500);
ExtractTimer.Enabled:=False;
end;

procedure GetAllFiles(Path: string; Lb: TNewListBox);
var
sRec: TFindRec;
isFound: boolean;
begin
isFound := FindFirst(Path +'\*.*',sRec);
while isFound do
begin
if (sRec.Name <> '.') and (sRec.Name <> '..') then
begin
if (sRec.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then
GetAllFiles(Path + '\' + sRec.Name, Lb);
Lb.Items.Add(Path + '\' + sRec.Name);
fIleCount.Caption:= 'Количество файлов:'+ IntToStr(FileList.Items.Count);
end;
Application.ProcessMessages;
isFound := FindNext(sRec);
end;
FindClose(sRec);
end;

procedure BrowseEditChange(Sender: TObject);
begin
OkButton.Enabled:= BrowseEdit.Text<>'';
end;

procedure BrowseButtonClick(Sender: TObject);
var
pach:String;
begin
if BrowseForFolder('',pach,False)then
BrowseEdit.Text:=pach;
BrowseEditChange(nil);
end;

procedure OkButtonClick(Sender: TObject);
begin
FileList.Clear;
fIleCount.Caption:= 'Количество файлов:';
GetAllFiles(BrowseEdit.Text, FileList );
if FileList.Items.Count>0 then
Step:= 1000 div FileList.Items.Count;
UninsBtn.Enabled:=true;
end;

procedure UninsBtnClick(Sender: TObject);
begin
ExtractTimer.Enabled:=True;
end;

procedure InitializeWizard();
begin
{ Creates custom wizard page }
UnInstPage := CreateCustomPage(wpWelcome, 'Список файлов для удаления', 'Нажмите конпку Ок, чтобы получить список файлов');

{ fIleCount }
fIleCount := TLabel.Create(WizardForm);
with fIleCount do
begin
Parent := UnInstPage.Surface;
Alignment := taCenter;
AutoSize := False;
Caption := 'Количество файлов:';
SetBounds(ScaleX(104),ScaleY(190),ScaleX(161),ScaleY(13));
end;

{ FileList }
FileList := TNewListBox.Create(WizardForm);
with FileList do
begin
Parent := UnInstPage.Surface;
SetBounds(ScaleX(0),ScaleY(24),ScaleX(417),ScaleY(160));
ItemHeight := 13;
ItemIndex := -1;
end;

{ UninsProgress }
UninsProgress := TNewProgressBar.Create(WizardForm);
with UninsProgress do
begin
Parent := UnInstPage.Surface;
SetBounds(ScaleX(0),ScaleY(3),ScaleX(417),ScaleY(17));
Max:=1000;
end;

{ OkButton }
OkButton := TNewButton.Create(WizardForm);
with OkButton do
begin
Parent := UnInstPage.Surface;
SetBounds(ScaleX(3),ScaleY(190),ScaleX(43),ScaleY(45));
Caption := 'Ок';
OnClick := @OkButtonClick;
end;

{ BrowseEdit }
BrowseEdit := TNewEdit.Create(WizardForm);
with BrowseEdit do
begin
Parent := UnInstPage.Surface;
SetBounds(ScaleX(48),ScaleY(214),ScaleX(290),ScaleY(21));
OnChange := @BrowseEditChange;
end;

{ BrowseButton }
BrowseButton := TNewButton.Create(WizardForm);
with BrowseButton do
begin
Parent := UnInstPage.Surface;
SetBounds(ScaleX(342),ScaleY(212),ScaleX(75),ScaleY(23));
Caption := 'Обзор';
OnClick := @BrowseButtonClick;
end;

{ UninsBtn }
UninsBtn := TNewButton.Create(WizardForm);
with UninsBtn do
begin
Parent := UnInstPage.Surface;
SetBounds(ScaleX(312),ScaleY(185),ScaleX(105),ScaleY(23));
Caption := 'Удаление';
OnClick := @UninsBtnClick;
Enabled:=False;
end;

ExtractTimer := TTimer.Create(WizardForm);
with ExtractTimer do begin
Interval := 100;
OnTimer := @Extracted;
Enabled:=False;
end;

BrowseEditChange(nil);
end;