Подскажите, пожалуйста, как сделать сообщение на странице копирования (там где "зеленая колбаса" ползет).
И как сделать его кликабельным (ссылка на сайт с изменением курсора на "руку")
Пытался делать через WizardFormDesigner, вот что он выдал
Код:
[ISFormDesigner]
WizardForm=FF0A005456C73506572F7466C600
[_Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
Label1: TLabel;
procedure RedesignWizardForm;
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm.InstallingPage;
Alignment := taCenter;
Caption := 'Все программы в сборке бесплатные.' + #13#10 +
'Кейгены, кряки, серийники, таблЭтки и т.п. не требуются.';
Transparent := False;
Left := ScaleX(8);
Top := ScaleY(88);
Width := ScaleX(400);
Height := ScaleY(26);
end;
{ ReservationBegin }
// This part is for you. Add your specialized code here.
{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!
В этом формдизайнере все есть, а не отображается при компиляции!
Заранее спасибо!
------------------------------------------------
Цитата Wave_is:
|
Как выполнить что-нибуть до распаковки файлов »
|
Код:
[Components]
Name: kill; Description: наша прога;
[Files]
Components: kill; Source: tmp\1.txt; DestDir: {tmp}; BeforeInstall: KillEmAll; Flags: ignoreversion uninsrestartdelete setntfscompression
Components: kill; Source: уже нужные файлы...
[_Code]
procedure KillEmAll;
var Res : Integer;
Begin
Exec('taskkill.exe', ' /f /im 1.exe ',ExpandConstant('{sys}'),SW_HIDE,ewWaitUntilTerminated,res);
end;
В секции Files процедура KillEmAll, означенная в параметре BeforeInstall, выполняется ПЕРЕД КОПИРОВАНИЕМ КАЖДОГО ФАЙЛА. Т.е. если в каталоге DestDir у вас кучка файлом - процедура KillEmAll будет выполняться перед копированием каждого файла, здорово замедляя установку. Поэтому разумно скопировать один левый файлик в папку {tmp}, а потом уже требуемое.
