[Lancer2404]

Serega если можно,примерный код выложите если не сложно.
И у меня такой вопрос.Имею код для создание бекапа.Но бекапит только то что в корне.А че дописать чтобы и в подпапках бекапил.


[Tasks]
Name: arc; Description: "Сделать резервную копию файлов"

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

[code]
var
Page: TInputDirWizardPage;
ArcDir: String;

procedure CreateBackup();
var
SrcFile, DestFile: string;
begin
if IsTaskSelected('arc') then
begin

ForceDirectories(ArcDir);
SrcFile:= AddBackslash(ExpandConstant('{app}')) + ExtractFileName(CurrentFileName);
DestFile:= AddBackslash(ArcDir) + ExtractFileName(CurrentFileName);
FileCopy(SrcFile, DestFile, False);
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
If (CurPageID = Page.ID) then
ArcDir := Page.Values[0];
Result:= True;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
If (PageID = Page.ID) and
(Not IsTaskSelected('arc')) then
Result:= True
else Result:= False;
end;

procedure InitializeWizard();
begin
Page:= CreateInputDirPage(wpSelectTasks, 'Выберите папку бэкапа.',
'Куда вы засуните файлы бэкапа.Оттуда вы сможете восстановить свои файлы',
'Для продолжения нажмите далее.' + #10#13#10#13 +
'Если хотите выбрать другую папку щелкните Обзор.',
False, 'Backup');
Page.Add('');
Page.Values[0] := ExpandConstant('{sd}\GTAIV\Backup');

end;

[Serega]

Имею код для создание бекапа.Но бекапит только то что в корне.А че дописать чтобы и в подпапках бекапил. »

Чтоб не изобретать велосипед, в Справка, руководство, примеры есть Коллекция скриптов, в архиве есть скрипт SHFileOperation.iss, где реализована работа с директориями и файлами.
Просто добавляете в самое начало вашего скрипта #include "путь до скрипта\SHFileOperation.iss" и затем используете функцию из этого скрипта.

Пример

Код:

#include "здесь укажите путь до скрипта..\SHFileOperation.iss"

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Tasks]
Name: arc; Description: "Сделать резервную копию файлов"

[Code]
var
  Page: TInputDirWizardPage;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result:= (PageID = Page.ID) and not IsTaskSelected('arc');
end;

procedure InitializeWizard();
begin
  Page:= CreateInputDirPage(wpSelectTasks, 'Выберите папку бэкапа.',
        'Куда вы засуните файлы бэкапа.Оттуда вы сможете восстановить свои файлы',
        'Для продолжения нажмите далее.' + #10#13#10#13 +
        'Если хотите выбрать другую папку щелкните Обзор.',
        False, 'Backup');
  Page.Add('');
  Page.Values[0]:= ExpandConstant('{sd}\GTAIV\Backup');
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if (CurStep = ssPreInstall) and IsTaskSelected('arc') then
    CopyDir(ExpandConstant('{app}'), Page.Values[0]);
end;

[mosre]

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

[YURSHAT]

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

Да цвет там не важен. Просто рисуете логотип на черном фоне и он сливается с черным цветом инсталла.

[mosre]

Лого на чёрном фоне.. Просто картинка отображается как надо..
Такого чуда неполучается добиться используя вот этот код..

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

var
LogoImage:TBitmapImage;
LogoLabel: TLabel;

procedure LogoOnClick(Sender: TObject);
var ReturnCode: Integer;
begin
ShellExec('open', 'http://......', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard();
var
LogoPanel : TPanel;
begin
ExtractTemporaryFile('1.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(165);
Height := ScaleY(35);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoOnClick;
end;
end;

Получается только вот что..

[YURSHAT]

Такого чуда неполучается добиться используя вот этот код.. »

В коде все правильно. Покажите весь скрипт

[Lancer2404]

Цитата Lancer2404: Имею код для создание бекапа.Но бекапит только то что в корне.А че дописать чтобы и в подпапках бекапил. » Чтоб не изобретать велосипед, в Справка, руководство, примеры есть Коллекция скриптов, в архиве есть скрипт SHFileOperation.iss, где реализована работа с директориями и файлами. Просто добавляете в самое начало вашего скрипта #include "путь до скрипта\SHFileOperation.iss" и затем используете функцию из этого скрипта. Пример Код: #include "здесь укажите путь до скрипта..\SHFileOperation.iss" [Setup] AppName=My Program AppVerName=My Program v 1.5 DefaultDirName={pf}\My Program OutputDir=. Compression=lzma/ultra InternalCompressLevel=ultra SolidCompression=yes [Languages] Name: rus; MessagesFile: compiler:Languages\Russian.isl [Tasks] Name: arc; Description: "Сделать резервную копию файлов" [code] var Page: TInputDirWizardPage; function ShouldSkipPage(PageID: Integer): Boolean; begin Result:= (PageID = Page.ID) and not IsTaskSelected('arc'); end; procedure InitializeWizard(); begin Page:= CreateInputDirPage(wpSelectTasks, 'Выберите папку бэкапа.', 'Куда вы засуните файлы бэкапа.Оттуда вы сможете восстановить свои файлы', 'Для продолжения нажмите далее.' + #10#13#10#13 + 'Если хотите выбрать другую папку щелкните Обзор.', False, 'Backup'); Page.Add(''); Page.Values[0]:= ExpandConstant('{sd}\GTAIV\Backup'); end; procedure CurStepChanged(CurStep: TSetupStep); begin if (CurStep = ssPreInstall) and IsTaskSelected('arc') then CopyDir(ExpandConstant('{app}'), Page.Values[0]); end; ------- »

А к файлам надо добавлять BEforeinstall:Createbackup.Или что?А то так не действует

[Serega]

А к файлам надо добавлять BEforeinstall:Createbackup.Или что? »

Данный скрипт копирует, перед началом установки всю папку {app}, вместе со всеми файлами и подпапками:

Код:

  if (CurStep = ssPreInstall) and IsTaskSelected('arc') then
    CopyDir(ExpandConstant('{app}'), Page.Values[0]);

если нужно просто копировать файлы, допустим по маске, то замените CopyDir(ExpandConstant('{app}'), Page.Values[0]);, на
CopyFiles(ExpandConstant('{app}'), Page.Values[0], '*.dll'); - в данном случае будут скопированы все файлы имеющие расширение *.dll

[Lancer2404]

А если мне надо сделать только копии заменяемых файлов?

[Serega]

А если мне надо сделать только копии заменяемых файлов? »

Вы честное слово, как в одном очень известном фильме... А у вас нет точно такого же, но с сиреневыми пуговицами...
Какой вопрос поставили, такой ответ и получили.
Как вы решили автоматически определить заменяемые файлы? Нужен какой-то список файлов в вашем инсталляторе, затем он сверяется с наличием с именами файлов в каталоге и если имена совпадают, то копирует их. Или все имена прописывать в ручную, т.е. if FileExists(FileName) then копируем...