[Mailchik]

Nikish X,

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

function ShowChangeDiskWindow Код: function ShowChangeDiskWindow (Text, DefPath, SearchFile: string):boolean; показывает диалог с запросом следующего диска и ожиданием появления в DefaultPath файла, указанного SearchFile. Свой текст запроса можно указать значением Text; DefaultPath - должен обязательно указывать {src}, иначе работоспособность не гарантируется; SearchFile - файл, который каждые 0,2 секунды ищется по указанному пути; Существует возможность в запросе сменить путь на другой, и если там будет найден SearchFile, то все последующие {src} в функциях распаковки будут идентифицироваться как указанный в данном диалоге путь.

neorom, никак.
R.i.m.s.k.y., Ставь через простой ISSkin.dll. Пример как полностью заскинить окно выбора языка:

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

Код:

#ifdef UNICODE
 #define A "W"
#else
 #define A "A"
#endif

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

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

[Files]
Source: ISSkin{#A}.dll; Flags: dontcopy;
Source: ISSkin.cjstyles; Flags: dontcopy;

[code]
var
 mySelectLanguageForm: TForm;
 mySelectLabel: TLabel;
 myLangCombo: TNewComboBox;
 myOKButton: TButton;
 myCancelButton: TButton;
 myIconBitmapImage: TBitmapImage;
 bCancel: Boolean;
 OldProc: Longint;

procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
 external 'LoadSkin@files:isskin{#A}.dll stdcall';
procedure UnloadSkin();
  external 'UnloadSkin@files:isskin{#A}.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint;
 external 'CallWindowProc{#A}@user32.dll stdcall delayload';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint;
 external 'SetWindowLong{#A}@user32.dll stdcall delayload';

function NewProc(h: hwnd; Msg, wParam, lParam: Longint): Longint;
begin
  if (Msg = $0112) then begin
    if (wParam = 61536) then begin
        myCancelButton.OnClick(myCancelButton);
        wParam := 0;
    end;
  end;
  Result := CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

procedure myOKButtonClick(Sender: TObject);
begin
  SelectLanguageForm.LangCombo.ItemIndex := myLangCombo.ItemIndex;
  mySelectLanguageForm.Close;
  SetWindowLong(mySelectLanguageForm.Handle, -4, OldProc);
end;

procedure myCancelButtonClick(Sender: TObject);
begin
  mySelectLanguageForm.Close;
  bCancel := True;
  SetWindowLong(mySelectLanguageForm.Handle, -4, OldProc);
end;

procedure mySelectLanguageFormP;
 begin
 with SelectLanguageForm do begin
  mySelectLanguageForm := TForm.Create(nil);
  with mySelectLanguageForm do begin
   ClientWidth := ScaleX(300);
   ClientHeight := ScaleY(125);
   BorderIcons := [biSystemMenu];
   BorderStyle := bsDialog;
   Caption := SelectLanguageForm.Caption;
   Position := poScreenCenter;
  end;
  mySelectLabel := TLabel.Create(mySelectLanguageForm);
  with mySelectLabel do begin
   Parent := mySelectLanguageForm;
   AutoSize := False;
   WordWrap := True;
   SetBounds(SelectLabel.Left, SelectLabel.Top,
     SelectLabel.Width, SelectLabel.Height);
   Caption := SelectLabel.Caption;
  end;
  myLangCombo := TNewComboBox.Create(mySelectLanguageForm);
  with myLangCombo do begin
   Parent := mySelectLanguageForm;
   SetBounds(LangCombo.Left, LangCombo.Top,
     LangCombo.Width, LangCombo.Height);
   Items := LangCombo.Items;
   Style := csDropDownList;
   Sorted := True;
   ItemIndex := LangCombo.ItemIndex;
  end;
  myOKButton := TButton.Create(mySelectLanguageForm);
  with myOKButton do begin
   Parent := mySelectLanguageForm;
   SetBounds(OKButton.Left, OKButton.Top,
     OKButton.Width, OKButton.Height);
   Caption := OKButton.Caption;
   OnClick := @myOKButtonClick;
  end;
  myCancelButton := TButton.Create(mySelectLanguageForm);
  with myCancelButton do begin
   Parent := mySelectLanguageForm;
   SetBounds(CancelButton.Left, CancelButton.Top,
     CancelButton.Width, CancelButton.Height);
   Caption := CancelButton.Caption;
   OnClick := @myCancelButtonClick;
  end;
  myIconBitmapImage := TBitmapImage.Create(mySelectLanguageForm);
  with myIconBitmapImage do begin
   Parent := mySelectLanguageForm;
   SetBounds(IconBitmapImage.Left, IconBitmapImage.Top,
     IconBitmapImage.Width, IconBitmapImage.Height);
   Bitmap := IconBitmapImage.Bitmap;
  end;
 end;
 OldProc := SetWindowLong(mySelectLanguageForm.Handle, -4, CallbackAddr('NewProc'));
 mySelectLanguageForm.ShowModal;
 mySelectLanguageForm.Free;
end;

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

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

function InitializeSetup(): Boolean;
 begin
  if bCancel then
   Result := False else Result := True;
end;

[alert30]

neorom, никак. »

Есть исключение, что какиие-нибудь программы, упакованными официальными инсталляторами (которые скачаны с оф. сайта Inno) иногда может распаковать со скриптом.

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

Пример как полностью заскинить окно выбора языка: »

---------------------------
Ошибка компиляции
---------------------------
Invalid prototype for 'InitializeLanguageDialog'

иногда может распаковать со скриптом. »

без пароля и шифрации
Секция кода только в виде bin файла

[sergey3695]

--------------------------- Ошибка компиляции --------------------------- Invalid prototype for 'InitializeLanguageDialog' »

Поставь последнюю расширенную версию от китайцев.
Mailchik, по-моему проще было написать в mySelectLanguageForm.OnClose. чем изголятся и на крестик что-то ставить. ну хотя оно и так работать будет как надо.

[neorom]

Возможно где-то єсть архив скриптов инсталашок для разних програм ?

[Raf-9600]

А имя инсталлятора можно как-то вычислить? Мне его нужно передать как параметр для запуска одного файла...

[Mailchik]

Raf-9600,

Код:

ExpandConstant('{srcexe}') - полный путь до инсталлятора
ExtractFileName(ExpandConstant('{srcexe}')) - имя инсталлятора

[alert30]

neorom, шапка для чего или идите к богу по имени "Гугл", он все знает.

З.Ы. В соседней теме там тоже много плюшевых скриптов.

[insombia]

блин не могу понять как среп распаковать,фриакр архивы распаковывает,а среп нет

[elmariacci]

Доброго времени суток.Перерыл гору информации,но т.к. с программой только начал учиться работать - не все происходит быстро.
Суть проблеммы такова: в инсталяторе для одного из компонентов необходима проверка в реестре на наличие в системе Microsoft .NET Framewok 3.5 (именно 3.5, а не 4+) и библиотеки Dokan .При отсутствии их в системе должна быть установка пост-инсталлом оригинальными экзэшниками,тк Redistributable Package весят слишком много.А вот если в системе есть и то и другое,просто заканчивается сетап .Пробовал через секцию run с условием выбора компонента,но тогда в любом случае запускается instal.exe Fraimwork и Dokan.Буду премного благодарен,если кто поможет сварганить такой кусочек...