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

TaTTDoGG
[more=SrepInside]Ссылка[/more]

Здравствуйте. А как пропустить секцию wpInfoBefore?

aidarsimon,
в инно есть функция ShouldSkipPage, в ней и указывай какие страницы не нужны, пример:

Цитата:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpLicense)or(PageID =wpInfoBefore)or(PageID =wpUserInfo)or(PageID =wpSelectTasks)or(PageID =wpSelectComponents) then
Result:= True;
end;

Snoopak96
спасибо большое

nik1967
да. сначала я был там и пытался въехать в то что там есть. проблема в том что я там не могу зарегистрироваться
не приходит письмо на почту

Надо скопировать файлы из папки A в папку С, которая является подпапкой папки B. Пути к A и B известны, а имя папки С нет, известно лишь что ее название оканчивается на знак "=". Внимание вопрос: как это сделать?

Xom9I4oK,
function CopyDir(const fromDir, toDir: string): Boolean;
fromDir - какую папку копировать
toDir - куда копировать

Snoopak96
И что с того. Это и так понятно. Ты вопрос внимательно прочитал?

Xom9I4oK
Да, про особенность папки C не заметил, хз как это провернуть, надо сделать поиск, но что искать, названия папки нет и как это будет выглядеть в коде не понятно.

Xom9I4oK 18:15 04-12-2011
Цитата:

Надо скопировать файлы из папки A в папку С, которая является подпапкой папки B. Пути к A и B известны, а имя папки С нет (только длина названия). Внимание вопрос: как это сделать?

В папке B только одна подпапка или нет? Если существуют другие подпапки, то не совпадает ли длина их названия с длиной названия папки C?
Просто можно попробовать найти эту папку с помощью FindFirst, FindNext, но нужно точно знать что ошибки не будет.

Shegorat
Если и существуют, то ничего страшного, если в них тоже инфа скопируется, да и длина разная у них, оканчиваются на '='. Насчет FindFirst не раздуплил - она вроде ищет имена файлов, а пути и названия директорий не выдает или я не прав, тогда желательно увидеть готовый пример...

Вначале установки идет выбор языка установки. Но при на жатии отмена ошибка COULD NOT CALL PROC. Что это может быть???

Цитата:

Но при на жатии отмена ошибка COULD NOT CALL PROC. Что это может быть???

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

Здравствуйте.

Такая проблема:

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

Как с этим бороться?

Спасибо!

AleSasha
Юникод версию использовали?

Цитата:

Юникод версию использовали?

Нет. Юникод версия, почему-то, не захотела устанавливаться - поставила обычную...

Есть два скрипта - один с кнопкой about, другой - с текстурированием кнопок. Помогите пожалуйста сделать так, чтобы текстурировалась кнопка about.
[more]procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox('This demo shows some features of the various form objects and control classes.', mbInformation, mb_Ok);
end;


procedure CreateAboutButtonAndURLLabel(ParentForm: TSetupForm; CancelButton: TNewButton);
var
AboutButton: TNewButton;
begin
AboutButton := TNewButton.Create(ParentForm);
AboutButton.Left := ParentForm.ClientWidth - CancelButton.Left - CancelButton.Width;
AboutButton.Top := CancelButton.Top;
AboutButton.Width := CancelButton.Width;
AboutButton.Height := CancelButton.Height;
AboutButton.Caption := '&About...';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := ParentForm;

procedure InitializeWizard();

CreateAboutButton(WizardForm, WizardForm.CancelButton);

procedure InitializeUninstallProgressForm();
begin
CreateAboutButton(UninstallProgressForm, UninstallProgressForm.CancelButton);
end;[/more]
2-ой - http://forum.ru-board.com/topic.cgi?forum=5&topic=35146&start=1299&limit=1&m=4#1

Цитата:

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

А как узнать какая именно DLL неправильно работает?

VendettaDeToli
работает она правильно. её просто выгрузить надо.
посмотрите какие бибилотеки вы загружаете и какие выгружаете

TaTTDoGG, Gnom3

Спасибо за помощь, разобрался

Как можно изменить положение стандартного прогресс-бара?
+ С этим помогите пожалуйста - http://72.233.112.78/topic.cgi?forum=5&topic=36421&start=2860#12

Ololo77
WizardForm.ProgressGauge.SetBounds(ScaleX(0), ScaleY(42), ScaleX(417), ScaleY(21));

Здравствуйте.

Такая проблема:

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

Как с этим бороться?

Спасибо!

А как сделать установочник аналогичный тому, как делает R.G. Catalyst - когда в начальном окне есть выбор компонентов и прочего. Нет ни у кого сценария установки?

Xom9I4oK

Цитата:

...имя папки С нет, известно лишь что ее название оканчивается на знак "="

-- [more=пример]
Код: [no]
#define DirA "C:\TEMP"
#define DirB "D:\TEMP"

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

[Files]
Source: "{#DirA}\*"; DestDir: {code:Destination|{#DirB}}; Flags: external

[Code]
function Destination(Param: String): String;
var
FindRec: TFindRec;
begin
if FindFirst(AddBackslash(Param) + '*=', FindRec) then begin
try
repeat
if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then
Result := AddBackslash(Param) + FindRec.Name;
until not FindNext(FindRec);
finally
FindClose(FindRec);
end;
end;
end;
[/no]

помогите пожалуйста кому не влом...с ISFlash

[more]
(каждая стр. инстала имеет свое флешвидео)

[Code]
procedure ISFlash_init(Handle:HWND; Ffile: PAnsiChar);
external 'isflash_init@files:ISFlash.dll stdcall';

procedure ISFlash_free;
external 'isflash_free@files:ISFlash.dll stdcall';

procedure InitializeWizard();
var
FlashPanel: TPanel;
begin
FlashPanel := TPanel.Create(WizardForm);
FlashPanel.Parent := WizardForm.WelcomePage;
FlashPanel.Top := 1;
FlashPanel.Left := 1;
FlashPanel.Height := 45;
FlashPanel.Width := 66;
ExtractTemporaryFile('1.swf')
ISFlash_init(FlashPanel.Handle, ExpandConstant('{tmp}\1.swf'));
end;

procedure DeinitializeSetup();
begin
ISFlash_free;
end;
[/more]

ZIKIG,
isflash одно видео, как помнится, умеет проигрывать.

ZIKIG
на каждоый странице надо выполнять

Код: ISFlash_free;
ISFlash_init(FlashPanel.Handle, ExpandConstant('{tmp}\имя_нужой_анимации.swf'));

TaTTDoGG

БОЛЬШОЕ СПАСИБО ТЕБЕ.....РАБОТАЕТ....

Подскажите пожалуйста как убрать вот это :