[neorom]

Распаковщики инсталляторов Inno Setup »

Нет не получилось , помогите разпаковать, очень нужни єти файли и скрипт ? http://us.ua/1057349/

[Johny777]

audiofeel, Да было уже. Изучай: http://forum.oszone.net/post-2102104-1779.html

neorom, установить, взять файлы из директории установки, посмотреть регшотом какие ключи внеслись в реестр и написать скрипт заново не судьба? Даже если распакуешь там будут стандартные секции типа компонентов и ярлыков. Чтоб их воспроизвести Oject Pascal знать не нужно, хватит и справки.

[Lex_from_Belarus]

if not Checked[Items.IndexOf('Compoment1')] then
begin
Checked[Items.IndexOf('Component2')] := False;
end;

данный код делает Component2 неактивным когда не выбран Compoment1
а что ещё нужно написать чтобы снималось выделение с Component2 если он ранее был выделен, а то при этом коде Component2 становится неактивным но остаётся выбранным

P.S. Component2 - это Radiobutton, если это имеет значение

[audiofeel]

Johny777, пример рабочий , но ко мне не совсем подходит, мне хотелось эти две кнопки "стандартная" и "расширенная" поместить на "WizardForm.SelectDirPage" и пока пользователь не нажмет "расширенная" - "DirEdit" и "DirBrowseButton" не активны

[Johny777]

audiofeel,

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

Код:

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

[Components]
Name: "main"; Description: "Main Files"; Types: full compact custom; Flags: fixed
Name: "help"; Description: "Help Files"; Types: full

[Code]
var
  StandardInstallMod, ExtendedInstallMod: TNewRadioButton;

procedure InstTyprRadiosOnClick(Sender: TObject);
begin
  with WizardForm do
  begin
    case TNewRadioButton(Sender).Caption of
      'стандартная': NextButton.Caption := SetupMessage(msgButtonInstall);
      'расширенная': NextButton.Caption := SetupMessage(msgButtonNext);
    end;
    DirEdit.Enabled := ExtendedInstallMod.Checked;
    DirBrowseButton.Enabled := ExtendedInstallMod.Checked;
  end;
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    StandardInstallMod := TNewRadioButton.Create(WizardForm);
    with StandardInstallMod do
    begin
      Parent := WizardForm.SelectDirPage;
      SetBounds(ScaleX(0), ScaleY(125), ScaleX(89), ScaleY(17));
      Caption := 'стандартная';
      Checked := True;
      OnClick:= @InstTyprRadiosOnClick;
    end;

    ExtendedInstallMod := TNewRadioButton.Create(nil);
    with ExtendedInstallMod do
    begin
      Parent := WizardForm.SelectDirPage;
      SetBounds(ScaleX(0), ScaleY(150), ScaleX(97), ScaleY(17));
      Caption := 'расширенная';
      OnClick:= @InstTyprRadiosOnClick;
    end;
    DirEdit.Enabled := ExtendedInstallMod.Checked;
    DirBrowseButton.Enabled := ExtendedInstallMod.Checked;
  end;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then if StandardInstallMod.Checked then WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  case PageID of
    wpSelectComponents, wpSelectProgramGroup, wpReady: Result := StandardInstallMod.Checked;
  end;
end;

[neorom]

Єсть ли версия програми Inno Ultra v5.5.1, єсли єсть то закиньте мне на http://us.ua/ а то не где скачать не могу .

[alert30]

neorom, готово - полная версия Inno Ultra: http://us.ua/1058466/
Лександер, прости. (

Johny777, http://forum.oszone.net/post-2105950-1815.html
пост поправь, а код паскаля используй, как [Code] (начальная жирная квадратная скобка)

[Nightwishh]

Разъясните пожалуйста ситуацию, можно ли заскинировать через ISSkin.dll всю область "Выбора языка установки" http://forum.oszone.net/attachment.p...1&d=1362698177 . Вот код который я стыбзил с кринкелса

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
UninstallDisplayIcon={app}\MyProg.exe
SolidCompression=yes
Compression=lzma/ultra
OutputDir=.

[Files]
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy
Source: Skin.cjstyles; DestDir: {tmp}; Flags: dontcopy

[Icons]
Name: {group}\my application; Filename: {app}\MyProg.exe

[Code ]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:ISSkin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:ISSkin.dll stdcall';,
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint;
 external 'CallWindowProc@user32.dll stdcall delayload';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint;
 external 'SetWindowLong@user32.dll stdcall delayload';

function InitializeLanguageDialog(): Boolean;
begin
  ExtractTemporaryFile('Skin.cjstyles');
	LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
	Result := True;
end;

procedure DeinitializeSetup();
begin
	UnloadSkin();
end;

Спасибо.

[audiofeel]

здравствуйте, помогите со скриптом. на "SelectProgramGroupPage" вместо кнопки "GroupBrowseButton" хотелось чтоб было как в примере, небольшое "окно" (рисунок во влажении)

[Gnom_aka_Lexander]

Лександер, прости. ( »

Да ладно, я привык уже, что всем плевать на источник, и вместо того, чтоб направить в шапку, где есть ссылки, вы предпочитает заливать на лево от своего имени. Много бабла нарубил уже?