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

[Dodakaedr]

есть у майков такая штука называется DPINST »
Спасибо! Попробую. Но хотелось именно средствами inno.

Есть в Inno Setup 5\IS_Scrpt\Scripts пример - Ultimate Test.iss. Он нормально компилируется и работает в Ansi. Подскажите, как его адаптировать для компиляции в Unicode. Спасибо »
Подключается как модуль.

[audiofeel]

Но хотелось именно средствами inno. »
попробуй установи при помощи DPINST и просмотри что она оставит в HKLM\System\CurrentControlSet\Services
может поможет, просто тупа скопировать данные в реестр

[saurn]

Dodakaedr,
#1599 (http://forum.oszone.net/post-1674976-1599.html)

[vasvladal]

Dodakaedr, Подключается как модуль.
Вложения
Тип файла: rar HWREQ Memory.rar
(4.8 Kb, 0 просмотров) »
Спасибо. Но все равно, не показывает как положено данные о видеокарте...

[Nordek]

Подскажите способ, как установить(зарегистрировать) драйвер в систему. »Посмотри ещё здесь (http://msdn.microsoft.com/en-us/library/ff557251(v=vs.85).aspx) и здесь (https://social.msdn.microsoft.com:443/Forums/windowsdesktop/en-US/60f4b917-93c9-400a-b91a-15375a8793bf/installing-driver-using-inf-file-from-command-line-on-windows-7-64-bit-failing?forum=wdk).

[AlekseyPopovv]

Как использовать картинки .png вместо .bmp?
http://i.imgur.com/RY2z7xN.jpg

[Dodakaedr]

AlekseyPopovv, Через ботву.

[AlekseyPopovv]

Dodakaedr, А можно примерчик любой?

[Dodakaedr]

А можно примерчик любой? »
Простой пример:

[Dodakaedr]

Что обычно прописывают в .inf файле? Потому что у меня только .sys файл (виртуальный привод программы poweriso).

[audiofeel]

как сделать рабочей собственную форму отмены на странице распаковки исдон ? все перепробывал, или только на распаковке работает или везде кроме распаковки, или сперва появляется моя форма а затем системная или сперва системная а затем моя, или два раза моя
как их объединить что бы оно заработало
-------------------------------------------
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
if ShowCancelBox = mrNo then
Cancel := False;
end;
--------------------------------------------
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if CurPageID = wpInstalling then
begin
SuspendProc;
Confirm := False;
Cancel := False;
if ExitSetupMsgBox then ISDoneCancel:=1;
ResumeProc;
end;
end;

[saurn]

audiofeel, ShowCancelBox - это форма?
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
case CurPageID of
WpInstalling:
begin
SuspendProc;

Confirm := False;
Cancel := Confirm;

if ( mrYes = ShowCancelBox ) then
ISDoneCancel := 1;

ResumeProc;
end;
end;
end;

[audiofeel]

saurn,
ShowCancelBox - это форма? »
--------------------------------------
function ShowCancelBox:Integer;
begin
Result:=CancelForm.ShowModal;
end;
--------------------------------------
нет не работает, на всех страницах системная, кроме распаковки исдон, там кастомня форма
=====================
вот так получилось сделать, теперь на всех страницах кастомная форма отмены , но на странице распаковки исдон, страницу нужно вызывать два раза, только после этого идет отмена,
в чем причина ??
-------------------------------------

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
Cancel:=False;
if CancelForm.ShowModal = mrYes then
Cancel:=True;
if CurPageID = wpInstalling then
begin
SuspendProc;
Confirm := False;
Cancel := False;
if CancelForm.ShowModal = mrYes then ISDoneCancel:=1;
ResumeProc;
end;
end;

[audiofeel]

saurn,
так форма отмены не вызывается вообще

----------------------------------------------
я вообще не пойму уже где что изменить, вот с этим "вариантом" выходит так

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
if CancelForm.ShowModal = mrYes then Cancel:=True
else
Cancel:=False;
if CurPageID = wpInstalling then begin
SuspendProc;
Confirm := False;
Cancel := False;
if CancelForm.ShowModal = mrYes then ISDoneCancel:=1;
ResumeProc;
end;
end;

нажимать на кнопку "да" на странице распаковки архивов нужно два раза

http://rghost.ru/58483689/thumb.png (http://rghost.ru/58483689.view)

[saurn]

так форма отмены не вызывается вообще »
Да и не должна. То был просто пример действия, если форма уже есть.нажимать на кнопку "да" на странице распаковки архивов нужно два раза »
Да потому что вы вызываете форму дважды. Первый раз глобально, для всех страниц и второй раз конкретно для страницы установки.
я вообще не пойму уже где что изменить »
procedure CancelButtonClick( CurPageID: Integer; var Cancel, Confirm: Boolean );
begin
Confirm := False;
Cancel := ( mrYes = CancelForm.ShowModal );

if ( CurPageID = wpInstalling )then
begin
SuspendProc;
if Cancel then
ISDoneCancel := 1;
ResumeProc;
end;
end;

[audiofeel]

теперь форма после отмены закрывается и все , исчезает, без wpFinished без лейбла об ошибке
ну ладно, все равно лучше чем было

[saurn]

теперь форма после отмены закрывается и все , исчезает, без wpFinished без лейбла об ошибке
ну ладно, все равно лучше чем было »
А, ну да. Тогда так:
procedure CancelButtonClick( CurPageID: Integer; var Cancel, Confirm: Boolean );
begin
Confirm := False;
Cancel := False;

if ( CurPageID <> wpInstalling )then
Cancel := ( mrYes = CancelForm.ShowModal );

if ( CurPageID = wpInstalling )then
begin
SuspendProc;
if ( mrYes = CancelForm.ShowModal ) then
ISDoneCancel := 1;
ResumeProc;
end;
end;

[ROMKA-1977]

Подскажите пожалуйста:
На странице доп. задач установил кнопку "Выбрать всё" при клике на которую отмечаются все чекбоксы и она обновляется на кнопку "Очистить всё".
Проблема в том что если все чекбоксы отметить или снять в ручную то обновления кнопки не происходит.

[Setup]
SourceDir=.
OutputDir=Setup
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
DefaultGroupName=Test
OutputBaseFilename=Setup
AllowNoIcons=true
ShowTasksTreeLines=true

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

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

Name: Soft; Description: Установить дополнительное программное обеспечение; GroupDescription: Дополнительное программное обеспечение:; Flags: unchecked
Name: Soft/DirectX; Description: Microsoft DirectX; Flags: unchecked
Name: Soft/vcredist_x86; Description: Microsoft Visual С++ 2005 Redistributable; Flags: unchecked
Name: Soft/vcredist_x64; Description: Microsoft Visual С++ 2005 Redistributable x64; Flags: unchecked; Check: IsWin64

[Code]
var
SelectAll: TNewButton;

procedure ButtonOnClick(Sender: TObject);
var
i: integer;
begin
if (SelectAll.Tag = 0) then
begin
for i:= 0 to WizardForm.TasksList.Items.Count - 1 do
begin
WizardForm.TasksList.Checked[i]:= True;
end;
SelectAll.Caption := 'Очистить всё';
SelectAll.Tag:= 1;
end else
if (SelectAll.Tag = 1) then
begin
for i:= 0 to WizardForm.TasksList.Items.Count - 1 do
begin
WizardForm.TasksList.Checked[i]:= False;
end;
SelectAll.Caption := 'Выбрать всё';
SelectAll.Tag:= 0;
end;
end;

procedure InitializeWizard();
begin
SelectAll := TNewButton.Create(WizardForm);
with SelectAll do
begin
Parent := WizardForm.SelectTasksPage;
Left := ScaleX(0);
Top := ScaleY(204);
Width := ScaleX(75);
Height := ScaleY(25);
OnClick := @ButtonOnClick;
Caption := 'Выбрать всё';
end;
SelectAll.TabOrder := 2;
end;

[ignietferro@vk]

подскажите, к кому можно обратиться за помощью с inno setup ?
вопрос специфичный и удобней было бы лично обсудить

[Nordek]

ignietferro@vk, Для особых случаев, ссылка в сообщении (http://forum.oszone.net/post-2405522-1597.html).