[Serega]

Полностью ее переделал осталось пб сделать и все. »

А чем вам стандартный не нравиться?

можно ли добавить еще 2 стр. которые буду отвечать за »

Придётся писать всё руками... MyForm: TUninstallProgressForm; и т.д и т.п.

запрос о удаление и за сообщение о том что удалены фалы? »

Я думаю, в таком случае проще реализовать простые сообщения, т.е. при нахождении папки или файлов, с предложением удалить и если пользователь выбрал Да - то удалять. В конце деинсталляции выдовать сообщение об удачном удалении папки...

[МИШАНЧИК]

Serega,

Неправда, именно это работает... »

У меня и в мыслях не было Вас обманывать. Но у меня не работает. Или можно сказать, что работает неполностью. Дело в том, что если я снимаю чекбокс с a\e\a, то пропадает изображение чекбокса и в a\e, но общий размер в а отображается как при снятом одном чекбоксе a\e\a. Если я после этого снимаю пустой(но, якобы стоящий там) чекбокс a\e, то общий размер а ещё уменьшается.
Я приложил скриншоты и скрипт, чтоб Вы не думали будто я Вас обманываю.
И подскажите пожалуйста почему у меня может быть такая картина и как её исправить.

[Winstan]

А чем вам стандартный не нравиться? »

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

Придётся писать всё руками... MyForm: TUninstallProgressForm; и т.д и т.п. »

Попробую написать.

Я думаю, в таком случае проще реализовать простые сообщения, т.е. при нахождении папки или файлов, с предложением удалить и если пользователь выбрал Да - то удалять. В конце деинсталляции выдовать сообщение об удачном удалении папки... »

Они сейчас появляются, спрашивают удалить или нет и о том что уже удалил файлы.

И еше подскажи процедуру на окошко выбора языков инстала?

[Dark Engel]

Цитата Dark Engel: Где ключ это признак установленности программы, а значение это версия. » Пример »

Гм. Что то данный пример не отрабатывает. установка проходит молча без каких либо вопросов. Ключ в реестре создавал.

1. Какого типа должен быть ключ в реестре? (Dword, REG_SZ итд )
2. Можно ли добавить создание ключа в случае его отсутствия (Первая установка программы).

[Serega]

Дело в том, что если я снимаю чекбокс с a\e\a, то пропадает изображение чекбокса и в a\e, но общий размер в а отображается как при снятом одном чекбоксе a\e\a. Если я после этого снимаю пустой(но, якобы стоящий там) чекбокс a\e, то общий размер а ещё уменьшается. »

Я понял, что вы имеете ввиду, просто у чебоксов имеющих дочерние элементы, существует три состояния (Unchecked, Checked, Grayed) и на скриншотах, которые вы показали (2.jpg), при снятом дочернем элементе, состояние a\e = Grayed, т.е. квадрат закрашен. Присмотритесь к компоненту a, у него тоже состояние Grayed.

[Serega]

процедуру на окошко выбора языков инстала? »

Не знаю, покрайней мере я такой не нашёл, т.е. даже попытался осуществить поиск через FindWindowByWindowName в function InitializeSetup, но диалог с выбором языка отрабатывает до того, как задействуется function InitializeSetup...
От сюда, два выхода, самый простой через редактор ресурсов, второй пишите инсталлятор пустышку, который будет запускать ваш инсталлятор и осуществлять поиск диалогового окна, а затем уже производить манипуляции с диалоговым окном через SendMessage.

Что то данный пример не отрабатывает. установка проходит молча без каких либо вопросов. Ключ в реестре создавал »

Прежде всего, я был удивлён когда вы просили осуществить поиск таким образом:

Код:

HKLM\Software\UIT\FAP\
                     \proga1 (Reg_Dword) 1
                     \proga2 (Reg_Dword) 15
                     \proga3 (Reg_Dword) 3

т.е. поиск ключа производится:
HKEY_LOCAL_MACHINE\SOFTWARE\UIT\FAP\proga 1
где proga - название программы, а 1 - это версия.
В скрипте же это написано...

P.S.
Я кажется понял, вы наверно заносите:

Код:

[HKEY_LOCAL_MACHINE\SOFTWARE\UIT\FAP]
"proga1"=dword:00000001
"proga2"=dword:00000015
"proga3"=dword:00000003

но это совершенно отличается от того, что вы просили.

[Dark Engel]

Цитата Dark Engel: Что то данный пример не отрабатывает. установка проходит молча без каких либо вопросов. Ключ в реестре создавал » Прежде всего, я был удивлён когда вы просили осуществить поиск таким образом: Код: HKLM\Software\UIT\FAP\ \proga1 (Reg_Dword) 1 \proga2 (Reg_Dword) 15 \proga3 (Reg_Dword) 3т.е. поиск ключа производится: HKEY_LOCAL_MACHINE\SOFTWARE\UIT\FAP\proga 1 где proga - название программы, а 1 - это версия. В скрипте же это написано... P.S. Я кажется понял, вы наверно заносите: Код: [HKEY_LOCAL_MACHINE\SOFTWARE\UIT\FAP] "proga1"=dword:00000001 "proga2"=dword:00000015 "proga3"=dword:00000003но это совершенно отличается от того, что вы просили. »

Вы правы. Я неправильно поставил задачу. Если вас не затруднит, подскажите пожалуйста как все таки реализовать мой вопрос.

[R.i.m.s.k.y.]

Доброе время суток!

Есть самописный скриптик для определения конфигурации компа и применения трех разных reg-файликов.

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

[Setup]
AppName=test
AppVerName=test
AppPublisher=test
AppPublisherURL=test
AppSupportURL=test
AppUpdatesURL=test
CreateAppDir=no
OutputBaseFilename=test
Compression=lzma
SolidCompression=yes

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

[Files]
Source: RimPack\Program Files\RimPack\FFDShow\*.reg; DestDir: {tmp}; Flags: ignoreversion uninsrestartdelete setntfscompression
Source: RimPack\Program Files\RimPack\FFDShow\gnu_license.txt; DestDir: {tmp}; AfterInstall: FFD; Flags: ignoreversion uninsrestartdelete setntfscompression

[code]
function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@user32.dll stdcall';

const
NeedMHz0 = 2590;
NeedMHz1 = 1090;

Procedure FFD();

var
resffd, MHz : integer;
hz : Cardinal;
Keys: TArrayOfString;
regffd, reg0ffd, RegEditffd: string;

begin

RegEditffd:= ExpandConstant('{sys}\reg.exe'); reg0ffd:= ExpandConstant('{tmp}\');
regffd := reg0ffd + 'ffdshow.reg';
Exec(RegEditffd, ' import ' + AddQuotes(regffd),ExpandConstant('{sys}'),SW_HIDE, ewNoWait, resffd);

RegGetSubkeyNames(HKLM, 'Hardware\Description\System\CentralProcessor', Keys); // Количество ядер
RegQueryDWordValue(HKLM, 'Hardware\Description\System\CentralProcessor\0', '~MHz', hz);

If (GetArrayLength(Keys) >= 2) and (Hz > NeedMHz0) then
begin MsgBox('Max', mbInformation, mb_Ok);
regffd := reg0ffd + 'ffdshow0.reg';
Exec(RegEditffd, ' import ' + AddQuotes(regffd),ExpandConstant('{sys}'),SW_HIDE,ewNoWait,resffd);
end;

If (GetArrayLength(Keys) >= 2) and (Hz > NeedMHz1) and (Hz < NeedMHz0) then
begin MsgBox('Middle', mbInformation, mb_Ok);
regffd := reg0ffd + 'ffdshow1.reg';
Exec(RegEditffd, ' import ' + AddQuotes(regffd),ExpandConstant('{sys}'),SW_HIDE,ewNoWait,resffd);
end;

If (GetArrayLength(Keys) < 2) and (hz <= NeedMHz1) then
begin MsgBox('Low', mbInformation, mb_Ok);
regffd := reg0ffd + 'ffdshow2.reg';
Exec(RegEditffd, ' import ' + AddQuotes(regffd),ExpandConstant('{sys}'),SW_HIDE,ewNoWait,resffd);
end;

RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\GNU\ffdshow\default', 'resizeDx', GetSystemMetrics(0));

end;

end.

Этот код работает если только его вынести в отдельный скрипт, но в нужном скрипте - работает, но странно: reg-файлы или не применяются, или ffdshow.reg (250Кб) заносится в реестр не полностью!
Как будто не успевает процедура FFD отработать.

Вижу два варианта решения - или как-то увеличить время выполнения или в секции Code только узнать конфигурацию железа, а в секции Run сделать reg import в зависимости от конфигурации.

Собственно вопросы - как увеличить время выполнения кода и как передать переменные из секции Code в секцию Run.

Заранее спасибо!

[Tharnum]

Добрый день!

Я столкнулся с интересной проблемой Inno Setup. Мне необходимо изменить окно UNinstaller-а (UninstallProgressForm), чтобы пользователь имел возможность указать причину, по которой он удаляет мое приложение. Убрать существующие контролы и вставить свои - это ерунда. Вопрос вот в чем: как сделать, чтобы после завершения деинсталляции окно анинсталлера не закрывалось и пользователь мог, закончив описание причины, кнопочкой, скажем, "Finish" его закрыть самостоятельно, тем замым завершив процесс деинсталляции?

PS: Да, и небольшой вопрос другого характера: никто не сталкивался с проблемами использования CustomMessages в анинсталлере под Windows 7 (у меня x64 Ultimate)? У меня на этапе компиляции скрипта вылетает окошко с сообщением о том, что имя константы неверно...

Заранее спасибо за ответы!

[SinRoma]

Взял код из примера по созданию дополнительной папки для пользовательских данных.
Нужна дополнительная, следующая страница подобная созданой.
Подскажите как перейти?

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

Код:

//Определяем дополнительную страницу для Project (с кнопкой «Обзор…»)
var
  ProjectDirPage: TInputDirWizardPage;

procedure InitializeWizardCWP();
begin
//Создание дополнительной страницы после указанной wpSelectProgramGroup
  ProjectDirPage := CreateInputDirPage(wpSelectProgramGroup,
    'Выбор папки с проектами', 'В какой папке будут находиться проекты программы?',
    'Пожалуйста, укажите папку, в которой будут сохранены проекты программы.'#13#13'Путь к папке с проектами может быть изменен в "ххх">"ххх".',
    False, '');
  ProjectDirPage.Add('');
  ProjectDirPage.Values[0] := GetPreviousData('ProjectDir', '');
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
 if ProjectDirPage.Values[0] = ''
  then
//   Указываем путь папки с проектами по умолчанию
     ProjectDirPage.Values[0] := (ExpandConstant('{sd}')+'\Projects');
  Result := True;
end;

function GetProjectDir(Param: String): String;
begin
  Result := ProjectDirPage.Values[0];
end;


//   ------- Где то здесь начинается беда...

//Определяем дополнительную страницу для VST (с кнопкой «Обзор…»)
var
  VSTDirPage: TInputDirWizardPage;

procedure InitializeWizardVST();
begin
//Создание дополнительной страницы после указанной wpSelectProgramGroup
  VSTDirPage := CreateInputDirPage(wpSelectProgramGroup,
//                                  ^^^^^ тут указать предыдущую страницу? как?
    'Выбор папки с VST Plugins', 'В какой папке будут находиться VST Plugins?',
    'Пожалуйста, укажите папку, в которую будут VST Plugins.'#13#13'Путь к папке с VST Plugins может быть изменен в "ххх">"ххх".',
    False, '');
  VSTDirPage.Add('');
  VSTDirPage.Values[0] := GetPreviousData('VSTDir', '');
end;

function NextButtonClick2(CurPage: Integer): Boolean;
begin
 if VSTDirPage.Values[0] = ''
  then
//   Указываем путь к папке VST Plugins
     VSTDirPage.Values[0] := (ExpandConstant('{pf}')+'\VSTPlugins');
  Result := True;
end;

function GetVSTDir(Param: String): String;
begin
  Result := VSTDirPage.Values[0];
end;

// ***************************************************************************************************************************************

//Это страница, в которой отображаются выбранные параметры установки
//Чтобы в нее прописать указанный путь установки папки с проектами, пишем следующую функцию
//По необходимости указываем дополнительные параметры установки (компоненты и т.п.)

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  S: String;
begin
  S := S + MemoDirInfo;
  S := S + NewLine + NewLine;
  S := S + 'Папка с проектами:' + NewLine + Space;
  S := S + ProjectDirPage.Values[0];
  S := S + 'VST Plugins:' + NewLine + Space;
  S := S + ProjectDirPage.Values[0];
  Result := S;
end;

Если оставить как есть компилируется, но при запуске выдаёт сообщение:

Runtime Error (at 6:57)
Could not call proc.