[TryRooM]

Помогите с удалением драйвера из директории system32\drivers.Система W64.Драйвер прописывается в обе директории SysWOW64 и System32.
Пробовал через секцию [UninstallDelete] удаляется только из SysWOW64, а директорию System32 в упор не видит, хотя прописывал
{sys}\driver\drv.sys и {win}\system32\drivers\drv.sys, реакции ноль.Как победить эту напасть.

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

TryRooM, читать в справке про режим x64

[TryRooM]

Про это Flags: 64bit я в курсе, но как прикрутить этот флаг к удалению не пойму.

[Fakt_37]

Здравствуйте, подскажите как сделать чтоб при нажатии на картинку открывался сайт в браузере?

[YURSHAT]

Здравствуйте, подскажите как сделать чтоб при нажатии на картинку открывался сайт в браузере? »

Пример

Код:

[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа
DefaultGroupName=Моя программа

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

[Files]
DestName: "Image.bmp"; Source: "compiler:WizModernSmallImage-IS.bmp"; Flags: dontcopy solidbreak

[Code_]
procedure OpenSite(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExecAsOriginalUser('open', 'http://www.innosetup.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure RedesignWizardForm;
begin
  with TBitmapImage.Create(WizardForm) do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(25), ScaleY(313), ScaleX(55), ScaleY(55));
    Cursor := crHand;
    ExtractTemporaryFile('Image.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image.bmp'));
    OnClick := @OpenSite;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[Fakt_37]

Пример »

спасибо попробуем)

[Shkutu]

Привет! Вопрос, можно ли поменять заглавие у стандартной формочки, выдаваемой MsgBox? Или свою надо рисовать для этого случая?

[nik1967]

Shkutu, воспользоваться

PHP код:

function MsgBoxEx(AWnd: HWND; AText, ACaption: string; AType, AIcon: UINT; ATimeOut: Integer): Integer; 

Правда она работает на инно только от китайских друзей.

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

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

[ code]
procedure InitializeWizard();                       
begin
  MsgBoxEx(0, 'Какое-то сообщение', 'Какой-то заголовок', MB_OK or MB_ICONINFORMATION, 0, 5{время до закрытия в сек. если 0 - таймер выкл.});
end;

[Shkutu]

Правда она работает на инно только от китайских друзей. »

Ну да, моя студия на эту функцию ругается. А не подскажете, где взять ту самую версию "от китайских друзей"?

И еще. Может кто-нибудь знает, есть ли где-нибудь список кодов ошибок?
А то приходится поневоле ковырять чужой скрипт, при попытке компиляции выдает "Internal error (20)". Не пойму, что за ошибка

[nik1967]

Shkutu, http://innoultra.ru/
Ну или Расширенная версия Inno Setup от Restools