[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

[A1EXXX]

Tukash, всё растягивается вручную. Каждый элемент нужно либо растягивать, либо смещать. Само оно не сделается...

[Tukash]

A1EXXX
все пасибо рестол скачал там намного проще все, с простым инно и передвижением по цифрам я бы с ума сошел!!!

[Vengeance]

Tukash, попробывал... Наверно не то сделал или что.

Выбираю к примеру Установить модели 1. У меня ставятся обе папки. И еще, мне надо чтобы папки model1 и model2 устанавливались файлы из них в папку models.

Скрипт:


[Setup]
AppName=Ïðîâåðêà
AppVerName=Ïðîâåðêà1.5
AppPublisher=Ïðîâåðêà
AppPublisherURL=http://www.mycompany.com
AppSupportURL=http://www.mycompany.com
AppUpdatesURL=http://www.mycompany.com
DefaultDirName={pf}\Ïðîâåðêà
DefaultGroupName=Ïðîâåðêà
DisableProgramGroupPage=yes
LicenseFile=C:\ag\Ëèöåíçèÿ.txt
InfoBeforeFile=C:\ag\Èíôîðìàöèÿ.txt
OutputDir=C:\Íîâàÿ ïàïêà
OutputBaseFilename=proverka
Compression=lzma
SolidCompression=yes

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

[Components]
Name: lng; Description: Âûáåðèòå:; Flags: fixed; Types: custom
Name: lng/ru; Description:Óñòàíîâèòü ìîäåëè 1; Flags: exclusive
Name: lng/en; Description: Óñòàíîâèòü ìîäåëè 2; Flags: exclusive

[Files]
Source: C:\s\a\model1\*; DestDir: {app}\; Components: lng/ru; Flags: recursesubdirs ignoreversion sortfilesbyextension createallsubdirs
Source: C:\s\a\model2\*; DestDir: {app}\; Components: lng/en; Flags: recursesubdirs ignoreversion sortfilesbyextension createallsubdirs

[Files]
Source: "C:\ag\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; Íå èñïîëüçóéòå ôëàã "ignoreversion" äëÿ ëþáûõ ñèñòåìíûõ ôàéëîâ.


Чёрт, йероглифы... (

[Tukash]

[Files]
Source: C:\s\a\model1\*; DestDir: {app}\; Components: lng/ru; Flags: recursesubdirs ignoreversion sortfilesbyextension createallsubdirs
Source: C:\s\a\model2\*; DestDir: {app}\; Components: lng/en; Flags: recursesubdirs ignoreversion sortfilesbyextension createallsubdirs

[Files]
Source: "C:\ag\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; Íå èñïîëüçóéòå ôëàã "ignoreversion" äëÿ ëþáûõ ñèñòåìíûõ ôàéëîâ.
соединил тебе:
[Files]
Source: C:\s\a\model1\*; DestDir: {app}\models\; Components: lng/ru; Flags: recursesubdirs ignoreversion sortfilesbyextension createallsubdirs
Source: C:\s\a\model2\*; DestDir: {app}\models\; Components: lng/en; Flags: recursesubdirs ignoreversion sortfilesbyextension createallsubdirs
Source: "C:\ag\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
вот! должно работать! главное что бы у тебя в C:\s\a\mode* в папке "а" были файлы а не твоя папка, иначе так и установится папкой, короче в папку "а" кидай файлы напрямую из папки моделс! думаю понял

[beve]

Подскажите такое. Что добавить в скрипт, чтоб перед деинсталяцией приложения был убит процесс, а уже потом происходила деинсталяция приложения.
Добавил в скрипт такой код, но не работает, процесс не закрывается и поэтому программа не удаляется:
[_Code]
function RunTask(FileName: string; bFullpath: Boolean): Boolean;

function KillTask(ExeFileName: string): Integer;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
if RunTask('punto.exe', false) then
KillTask('punto.exe');
end;
end;

[Sotonisto]

NeedSize := 5600»

Tukash, респект те! :)
И как я эту строку раньше не увидел?!
Кста там было 5428 :)

[svensoft]

Какой из этих парамметров отвечает за прижименае текста ("прижимать влево", "прижимать вправо", "по середине"), или может какой-нить другой ?..
Код:
PageNameLabel := TLabel.Create(WizardForm);
PageNameLabel.Left := ScaleX(25);
PageNameLabel.Top := ScaleY(10);
PageNameLabel.Width := ScaleX(300);
PageNameLabel.Height := ScaleY(14);
PageNameLabel.AutoSize := False;
PageNameLabel.WordWrap := True;
PageNameLabel.Font.Color := clBlack;
PageNameLabel.Font.Style := [fsBold];
PageNameLabel.Transparent := True;
PageNameLabel.Parent := WizardForm.MainPanel;или просто, как можно сделать, чтобы текст прижимался"по середине" ?.. »

Ребят, ну помогите посередине текст отцентровать !!!

[serg aka lain]

ну помогите посередине текст отцентровать !!! »
PageNameLabel.Alignment := taCenter;

[Tukash]

Sotonisto
рад что помог:)

[A1EXXX]

Чёрт, йероглифы... ( »
Чтобы иероглифов не было, при копировании кодов должен быть включен русский язык.

[Tukash]

A1EXXX
оо:) скажи почему в рестоле в визардформ десинджер не все двигаються объекты???

[A1EXXX]

Tukash, что именно? По-моему, всё что может и должно двигаться, смещается одним кликом мыши :)

[Tukash]

A1EXXX
НИХРИНА:)) я уже минут 20 двигаю, а она стоит, все что рядом с ней двигаеться а она на месте(((
поможешь с меня бутылка:)
http://s59.radikal.ru/i166/1001/8d/a75784db4bf2.png (http://www.radikal.ru)

[svensoft]

serg aka lain, спасибо

[Chelluga]

Здравствуйте. Подскажите кто-нить как в Inno Setup реализовать функцию подсчёта времени до завершения инсталляции. Было бы великолепно если бы кто-то выложил часть скрипта с кодом сией функции. Заранее спасибо.

[svensoft]

Подскажите еще, вот, какой знак служит как разделитель строк в тексте ?..

txt3:= 'Все готово для начала установки на ваш компьютер
Для продолжения нажмите "Установить", для отмены установки нажмите "Отмена"';

[YURSHAT]

Подскажите еще, вот, какой знак служит как разделитель строк в тексте ?.. »

#13#10

txt3:= 'Все готово для начала установки на ваш компьютер'#13#10'Для продолжения нажмите "Установить", для отмены установки нажмите "Отмена"';

[Tukash]

блииин 2 часа сидел красоту наводил, сделал что хотел, и ничего не получилось, не принимает он код и все, будт нет его и вовсе...
вот скрипт может кто-то что-нибудь придумает...
[ISFormDesigner]


8656967687402F309466F6E742E4E616D65060747656F726769610A466F6E742E5374796C650B066673426F6C64086673497 4616C6963000C4578706C696369744C65667402460D4578706C69636974576964746803850100000000F110544E65774E6F7 465626F6F6B506167650C46696E69736865645061676505436F6C6F720707636C426C61636B0D4578706C696369745769647 4680359020E4578706C6963697448656967687403400100F10C544269746D6170496D6167651257697A6172644269746D617 0496D6167653205576964746803CC00064865696768740342010D4578706C69636974576964746803CC000E4578706C69636 9744865696768740342010000F10F544E6577526164696F427574746F6E074E6F526164696F044C65667403100103546F700 319010C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650 A466F6E742E5374796C650B066673426F6C64000A506172656E74466F6E74080C4578706C696369744C6566740310010B457 8706C69636974546F700319010000F10F544E6577526164696F427574746F6E08596573526164696F044C656674031001035 46F700301010A466F6E742E436F6C6F720707636C57686974650A506172656E74466F6E74080C4578706C696369744C65667 40310010B4578706C69636974546F700301010000F110544E6577436865636B4C697374426F780752756E4C697374044C656 67403D80003546F70039100055769647468037D010648656967687402600C4578706C696369744C65667403D8000B4578706 C69636974546F700391000D4578706C696369745769647468037D010E4578706C6963697448656967687402600000F10E544 E6577537461746963546578740D46696E69736865644C6162656C044C65667403D80003546F70026F055769647468036D010 648656967687403820005436F6C6F720707636C426C61636B0C466F6E742E43686172736574070F5255535349414E5F43484 1525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402F409466F6E742E4E616D65060 B5365676F65205072696E740A466F6E742E5374796C650B066673426F6C64000B506172656E74436F6C6F72080A506172656 E74466F6E74080C4578706C696369744C65667403D8000B4578706C69636974546F70026F0D4578706C69636974576964746 8036D010E4578706C696369744865696768740382000000F10E544E6577537461746963546578741446696E6973686564486 56164696E674C6162656C044C65667403D00003546F70020805576964746803850106486569676874024F05436F6C6F72070 7636C426C61636B0C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C5 7686974650B466F6E742E48656967687402E809466F6E742E4E616D65061041646F6265204361736C6F6E2050726F0A466F6 E742E5374796C650B0866734974616C6963000B506172656E74436F6C6F72080C4578706C696369744C65667403D0000B457 8706C69636974546F7002080D4578706C6963697457696474680385010E4578706C69636974486569676874024F000000000 0


[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
NewMemo1: TNewMemo;

procedure RedesignWizardForm;
begin
with WizardForm do
begin
ClientHeight := ScaleY(354);
ClientWidth := ScaleX(603);
Color := clBlack;
end;

with WizardForm.CancelButton do
begin
Left := ScaleX(484);
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.NextButton do
begin
Left := ScaleX(383);
Font.Name := 'Segoe UI';
Font.Style := [fsBold, fsItalic];
ParentFont := False;
end;

with WizardForm.BackButton do
begin
Left := ScaleX(284);
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.OuterNotebook do
begin
Width := ScaleX(601);
Height := ScaleY(320);
end;

with WizardForm.WelcomePage do
begin
Color := clBlack;
end;

with WizardForm.WizardBitmapImage do
begin
Top := ScaleY(-4);
Width := ScaleX(204);
Height := ScaleY(322);
end;

with WizardForm.WelcomeLabel2 do
begin
Left := ScaleX(216);
Top := ScaleY(119);
Width := ScaleX(389);
Height := ScaleY(199);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentColor := False;
ParentFont := False;
end;

with WizardForm.WelcomeLabel1 do
begin
Left := ScaleX(208);
Width := ScaleX(389);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -24;
Font.Name := 'Adobe Caslon Pro';
Font.Style := [fsItalic];
ParentColor := False;
end;

with WizardForm.InnerPage do
begin
Color := clBlack;
end;

with WizardForm.Bevel1 do
begin
Left := ScaleX(-10);
Width := ScaleX(611);
Height := ScaleY(0);
end;

with WizardForm.InnerNotebook do
begin
Left := ScaleX(144);
end;

with WizardForm.LicensePage do
begin
ShowHint := True;
end;

with WizardForm.LicenseNotAcceptedRadio do
begin
Left := ScaleX(32);
Top := ScaleY(212);
Width := ScaleX(321);
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.LicenseAcceptedRadio do
begin
Left := ScaleX(32);
Top := ScaleY(192);
Width := ScaleX(273);
Font.Color := clRed;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.LicenseMemo do
begin
Left := ScaleX(10);
Top := ScaleY(29);
Width := ScaleX(391);
Height := ScaleY(164);
end;

with WizardForm.LicenseLabel1 do
begin
Left := ScaleX(2);
Width := ScaleX(399);
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.PasswordEdit do
begin
Top := ScaleY(117);
end;

with WizardForm.PasswordEditLabel do
begin
Top := ScaleY(101);
end;

with WizardForm.InfoBeforeMemo do
begin
Top := ScaleY(0);
end;

with WizardForm.InfoBeforeClickLabel do
begin
Top := ScaleY(208);
Width := ScaleX(409);
Height := ScaleY(30);
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.UserInfoSerialEdit do
begin
Left := ScaleX(88);
Width := ScaleX(289);
end;

with WizardForm.UserInfoSerialLabel do
begin
Left := ScaleX(-16);
end;

with WizardForm.UserInfoOrgEdit do
begin
Left := ScaleX(88);
Width := ScaleX(289);
end;

with WizardForm.UserInfoOrgLabel do
begin
Left := ScaleX(-16);
end;

with WizardForm.UserInfoNameEdit do
begin
Left := ScaleX(8);
Top := ScaleY(24);
end;

with WizardForm.UserInfoNameLabel do
begin
Left := ScaleX(-16);
end;

{ NewMemo1 }
NewMemo1 := TNewMemo.Create(WizardForm);
with NewMemo1 do
begin
Parent := WizardForm.UserInfoPage;
Left := ScaleX(-184);
Top := ScaleY(24);
Width := ScaleX(209);
Height := ScaleY(89);
Color := clBlack;
Lines.Text := 'NewMemo1';
end;

NewMemo1.TabOrder := 6;

with WizardForm.SelectDirPage do
begin
Tag := 9;
end;

with WizardForm.SelectDirBitmapImage do
begin
Left := ScaleX(8);
Top := ScaleY(17);
end;

with WizardForm.DiskSpaceLabel do
begin
Left := ScaleX(16);
Top := ScaleY(208);
Width := ScaleX(353);
Font.Color := clWhite;
ParentFont := False;
end;

with WizardForm.DirBrowseButton do
begin
Left := ScaleX(8);
Top := ScaleY(116);
Font.Height := -15;
Font.Name := 'Segoe UI';
Font.Style := [fsBold, fsItalic];
ParentFont := False;
end;

with WizardForm.DirEdit do
begin
Left := ScaleX(85);
Top := ScaleY(118);
Width := ScaleX(324);
end;

with WizardForm.SelectDirBrowseLabel do
begin
Left := ScaleX(8);
Top := ScaleY(60);
Width := ScaleX(393);
Height := ScaleY(46);
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.SelectDirLabel do
begin
Left := ScaleX(49);
Top := ScaleY(17);
Width := ScaleX(360);
Height := ScaleY(45);
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.ComponentsDiskSpaceLabel do
begin
Left := ScaleX(8);
Height := ScaleY(22);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;

with WizardForm.ComponentsList do
begin
Top := ScaleY(69);
Color := clBtnShadow;
end;

with WizardForm.TypesCombo do
begin
Top := ScaleY(45);
Color := cl3DDkShadow;
end;

with WizardForm.SelectComponentsLabel do
begin
Width := ScaleX(433);
Height := ScaleY(35);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;

WizardForm.ComponentsList.TabOrder := 1;
WizardForm.TypesCombo.TabOrder := 2;
WizardForm.ComponentsDiskSpaceLabel.TabOrder := 3;

with WizardForm.SelectGroupBitmapImage do
begin
Left := ScaleX(9);
Top := ScaleY(8);
end;

with WizardForm.NoIconsCheck do
begin
Left := ScaleX(9);
Top := ScaleY(143);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.GroupBrowseButton do
begin
Left := ScaleX(0);
Top := ScaleY(100);
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.GroupEdit do
begin
Left := ScaleX(85);
Top := ScaleY(100);
end;

with WizardForm.SelectStartMenuFolderBrowseLabel do
begin
Left := ScaleX(9);
Top := ScaleY(76);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.SelectStartMenuFolderLabel do
begin
Left := ScaleX(56);
Top := ScaleY(25);
Height := ScaleY(38);
Font.Height := -12;
Font.Name := 'Segoe Print';
ParentFont := False;
end;

with WizardForm.TasksList do
begin
Top := ScaleY(45);
end;

with WizardForm.SelectTasksLabel do
begin
Height := ScaleY(43);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;

with WizardForm.ReadyMemo do
begin
Top := ScaleY(14);
Height := ScaleY(223);
end;

with WizardForm.ReadyLabel do
begin
Height := ScaleY(20);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;

with WizardForm.PreparingErrorBitmapImage do
begin
Left := ScaleX(417);
Width := ScaleX(0);
Height := ScaleY(0);
end;

with WizardForm.PreparingLabel do
begin
Left := ScaleX(8);
Top := ScaleY(64);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;

with WizardForm.StatusLabel do
begin
Left := ScaleX(8);
Top := ScaleY(40);
Height := ScaleY(40);
Font.Color := clWhite;
Font.Height := -15;
Font.Name := 'Monotype Corsiva';
Font.Style := [fsBold, fsItalic];
ParentFont := False;
end;

with WizardForm.ProgressGauge do
begin
Top := ScaleY(90);
end;

with WizardForm.InfoAfterClickLabel do
begin
Left := ScaleX(16);
Height := ScaleY(22);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.MainPanel do
begin
Left := ScaleX(-2);
Width := ScaleX(603);
BevelOuter := bvSpace;
Color := clBlack;
ParentBackground := False;
end;

with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(532);
Top := ScaleY(0);
end;

with WizardForm.PageDescriptionLabel do
begin
Left := ScaleX(70);
Width := ScaleX(341);
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Georgia';
Font.Style := [fsItalic];
ParentFont := False;
end;

with WizardForm.PageNameLabel do
begin
Left := ScaleX(70);
Width := ScaleX(389);
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Georgia';
Font.Style := [fsBold, fsItalic];
end;

with WizardForm.FinishedPage do
begin
Color := clBlack;
end;

with WizardForm.WizardBitmapImage2 do
begin
Width := ScaleX(204);
Height := ScaleY(322);
end;

with WizardForm.NoRadio do
begin
Left := ScaleX(272);
Top := ScaleY(281);
Font.Color := clWhite;
Font.Style := [fsBold];
ParentFont := False;
end;

with WizardForm.YesRadio do
begin
Left := ScaleX(272);
Top := ScaleY(257);
Font.Color := clWhite;
ParentFont := False;
end;

with WizardForm.RunList do
begin
Left := ScaleX(216);
Top := ScaleY(145);
Width := ScaleX(381);
Height := ScaleY(96);
end;

with WizardForm.FinishedLabel do
begin
Left := ScaleX(216);
Top := ScaleY(111);
Width := ScaleX(365);
Height := ScaleY(130);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentColor := False;
ParentFont := False;
end;

with WizardForm.FinishedHeadingLabel do
begin
Left := ScaleX(208);
Top := ScaleY(8);
Width := ScaleX(389);
Height := ScaleY(79);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -24;
Font.Name := 'Adobe Caslon Pro';
Font.Style := [fsItalic];
ParentColor := False;
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!

[svensoft]

YURSHAT, вот спасибо, пришел настоящий спец..))

[Sotonisto]

Народ, ахтунг! как сделать что бы во время распаковки 7zip sfx архива его окна не было видно, а в строке состояния писалось что-то типа "Идет русификация файла"?
----
Jerichoman, я тут пролистал предыдущие сообщения - если у тебя до сих пор проблемы с инталлом попробуй качни этот архив http://rghost.ru/888810 (там все что я использовал, кроме музыки). Заливал я его другому пользователю, но и тебе он пригодится :)