[Shift85]

habib2302, По поводу этого вопроса.
http://forum.oszone.net/post-2456024-2299.html

Все элементарно.
Открывай редактор форм и двигай куда надо.

[habib2302]

Shift85, и что? от этого серый фон не исчезнит

[Shkutu]

Если добавить if not WizardSilent then, то при тихом использовании (/VERYSILENT) без команды DIR прога будет распаковываться по пути из DefaultDirName »

очевидно потому, что у вас в этом случае никак не задается директория установки

Как исправить »

очевидно, задать директорию

Скрытый текст

Код:

if not WizardSilent then
           begin

           end
else
 WizardForm.DirEdit.Text := ExpandConstant('{pf}\{#MyAppName}'); // директория, которая нужна при тихой установке

Если с тем кодом, что вы приводите, то (все переписывать лень, поэтому только кусок, касающийся страницы SelectComponents)

Код:

wpSelectComponents: if WizardForm.Tag = 1 then
  begin
    WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
    WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
    WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir);
    WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint; // иначе вместо названия программы [name]
    if not WizardSilent then
    begin
      if IsComponentSelected('DDU\I') then
        WizardForm.DirEdit.Text :=(ExpandConstant('{#SetupSetting("DefaultDirName")}'))
     else
     if IsComponentSelected('DDU\P') then
      begin
       WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} Portable'
       WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
     end;
    end
   else //тихая установки
    WizardForm.DirEdit.Text := ExpandConstant('{pf}\{#MyAppName}'); // директория, которая нужна при тихой установке
  end;

[ShadeUa]

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

[kotyarko@fb]

на каком языке пишуться если скрипты ? »

Object Pascal.

[ROMKA-1977]

Помогите пож. к данному коду прикрутить автоматическую смену названия кнопки "open"

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

Код:

const
    GWL_EXSTYLE = (-20);
    WS_EX_COMPOSITED = $2000000;
    AW_HIDE = $10000;
    AW_VER_POSITIVE = $4;
    AW_VER_NEGATIVE = $8;

function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function AnimateWindow(hwnd: HWND; dwTime, dwFlags: DWORD): BOOL; external 'AnimateWindow@user32.dll stdcall';

var
    SettingPanel: TPanel;

procedure NewButton1Click(Sender: TObject);
begin
    with SettingPanel do
    begin
        //временно отрубаем стиль WS_EX_COMPOSITED, а то AnimateWindow плавненько не отработает
        SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) xor WS_EX_COMPOSITED);
        AnimateWindow(Handle, 1000, (AW_VER_POSITIVE * dword(not Visible)) or ((AW_HIDE or AW_VER_NEGATIVE) * dword(Visible)));
        SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_COMPOSITED);
        Visible := not Visible;
    end;
end;

procedure InitializeWizard();
begin
    SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_COMPOSITED);

    SettingPanel := TPanel.Create(WizardForm);
    with SettingPanel do
    begin
        Parent := WizardForm;
        SetBounds(ScaleX(0), ScaleY(0), WizardForm.ClientWidth, WizardForm.OuterNotebook.ClientHeight);
        Visible := False;
    end;

    with TNewButton.Create(WizardForm) do
    begin
        Parent := WizardForm;
        SetBounds(ScaleX(40), ScaleY(327), ScaleX(75), ScaleY(25));
        Caption := 'open';
        OnClick := @NewButton1Click;
    end;
end;

[Dodakaedr]

автоматическую »

в зависимости от чего? Какая основа автоматизации? Язык?

Скрытый текст

Код:

[Setup]
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl
Name: en; MessagesFile: compiler:Languages\english.isl

[CustomMessages]
ru.open=Открыть
en.open=Open

[code]
procedure InitializeWizard();
begin
    with TNewButton.Create(WizardForm) do
    begin
        Parent := WizardForm;
        SetBounds(ScaleX(40), ScaleY(327), ScaleX(75), ScaleY(25));
        Caption := CustomMessage('open');
    end;
end;

[Shift85]

автоматическую смену названия кнопки "open" »

Это че то новенькое даже не слышал.

Если только сменить название.

Код:

Caption := 'open';

на

Код:

Caption := 'Кнопка';

[Shift85]

Помогите пож. к данному коду прикрутить автоматическую смену названия кнопки "open" »

ROMKA-1977, Пример.

[habib2302]

Shkutu, это точно не сработает. да и команда dir не работает даже при обычной установке