[insombia]

audiofeel я бы убрал меню о программе и сделал бы линию снизу там где черный фон ,а так все гуд

[insombia]

audiofeel а как ты в DirBrowseButton поменял обзор на изменить?

[saurn]

insombia

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

Код:

[Messages]
;ButtonBrowse=Изменить...

procedure InitializeWizard();
begin
    {* WizardForm.DirBrowseButton.Caption := SetupMessage(msgButtonBrowse); *}
    WizardForm.DirBrowseButton.Caption := 'Изменить...';
end;

[insombia]

можно как-то сделать чтобы инсталл нельзя было передвинуть?у меня он в углу и я не хочу чтобы его двигали

[saurn]

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

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

Код:

[Code]
const
    I_POS   = $F010;
    L_FL    = 0;


function GetSystemMenu(h_Wnd: HWND; b_Revert: Boolean): HWND;
    external 'GetSystemMenu@user32.dll stdcall';
function Remove_Menu(h_Wnd: HWND; i_Position: Integer; l_Flags: Longint): Boolean;
    external 'RemoveMenu@user32.dll stdcall';


procedure InitializeWizard();
begin
    Remove_Menu(GetSystemMenu(WizardForm.Handle, False), I_POS, L_FL);
end;

[insombia]

saurn не много не то,но ладно,просто на сколько я знаю то нужно юзать isexec чтобы инсталл был типа не подвижный,но архивы распаковывались,но я в isexec не понимаю
как сделать двойной прогресс бар, чтобы второй был маленький(у каталистов сейчас так)

[Johny777]

insombia, saurn, думаю лучше всего через таймер с задержкой в 1 секунду, чтоб не было мигания. Да и классно - перетаскиваешь, а форма назад хочет!

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

Код:

const
    UNIQUE_ID_EVENT = 777;
    INTERVAL = 1000;


type
    TFNTimerProc = Integer;


function SetTimer(hWnd: HWND; nIDEvent: UINT_PTR; uElapse: UINT; lpTimerFunc: TFNTimerProc): UINT; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: HWND; uIDEvent: UINT_PTR): BOOL; external 'KillTimer@user32.dll stdcall';


procedure TimerCallBack(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
begin
    if WizardForm.Left <> Screen.Width - WizardForm.Width - 25 then WizardForm.Left := Screen.Width - WizardForm.Width - 25;
    if WizardForm.Top <> Screen.Height - WizardForm.Height - 75 then WizardForm.Top := Screen.Height - WizardForm.Height - 75;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        wpInstalling: SetTimer(WizardForm.Handle, UNIQUE_ID_EVENT, INTERVAL, CallbackAddr('TimerCallBack'));

        wpFinished: KillTimer(WizardForm.Handle, UNIQUE_ID_EVENT);
    end;
end;


procedure DeinitializeSetup();
begin
    KillTimer(WizardForm.Handle, UNIQUE_ID_EVENT);
end;

[Lex_from_Belarus]

Кто-нибудь совладал с этим:
http://www.han-soft.com/uninshs.php

[insombia]

какая вообще последняя версия isexec?

[alert30]

insombia, гугл еле-еле нашел, вот это последняя версия