Скрипты Inno Setup. Помощь и советы [часть 6]

Serega · Конфигурация компьютера

Всем привет!

Цитата Johny777:

Взяв за основу функцию El Sanchez-а "Определение рабочей папки процесса" http://forum.oszone.net/post-1945281-380.html и упростив её до получения имени нашего процесса »

У El Sanchez, функция определяет путь к любому процессу, а вы пытаетесь определить путь к своему, поэтому ParamStr вам поможет, одним словом проще будет так:

Цитата El Sanchez:

tmp-файл деинсталлятора удалится при следующей перезагрузке. »

Так то да, но я просто знаю машины, которые перезагружаются раз в месяц, вот там то SelfDelete желателен, но на самом деле это не критично...

neorom · Отправлено: **18:22, 05-04-2013** | #82

Как переделать простой скрипт, что при движении процесс бара одноврименно ишли плавно проценти ((с 0.0% до 100.0%) а не ривком 0% потом 100%, и в скрипте можна било менять координати розмишчения процентов в окне инсталяции) .
Скрипт из шапки

saurn · Конфигурация компьютера

neorom

Конкретно в данном примере:

Более - менее плавное отображение процентов будет возможном только, если инсталятор содержит файлы небольшого размера, так как здесь проценты обновляются после того, как файл уже скопирован на диск(о чем ясно говорит процедура AfterInstall, то есть После установки). Иными словами, если у вас в инсталяторе, к примеру, пара файлов весом по несколько гигабайт, то проценты будут делать большие скачки. Лучше использовать другие способы отображения процентов, на форуме много различных примеров, пользуйтесь поиском. Например вот Пост .Так же, пару страниц назад уважаемый Johny777 выкладывал прекрасный пример отображения процентов установки и удаления.

Насчет изменения координат контрола, за это отвечают параметры Left(положение по горизонтали), Top(положение по вертикали). За размеры контрола отвечают Width(ширина), Height(высота) Можете так же создать свой лейбл и делать с ним, что угодно.
Координаты указываются так:

Код:

Left := ScaleX(24); //Положение по горизонтали от левого края клиента
Top := ScaleY(64); //Положение по вертикали от верхнего края клиента
Width := ScaleX(450);  //Ширина
Height := ScaleY(235); //Высота

А лучше в одну строчку:

Код:

SetBounds(ScaleX(24), ScaleY(64), ScaleX(450), ScaleY(235)); //procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

LagunaFAN · Отправлено: **12:01, 06-04-2013** | #84

Товарищи! Нужна ваша помощь!

Хочу вот этот скрипт отучить от ISDone и не получается

Пытался удалить все функции, но после компиляции, при запуске, пишет, что при Extract Temporary File не найден ISDone.dll . Поэтому прошу помощи. Самому не хватает знаний

insombia · Отправлено: **13:01, 06-04-2013** | #85

LagunaFAN походу скрипт заточен под исдон

Gnom_aka_Lexander · Отправлено: **13:28, 06-04-2013** | #86

insombia, нет скриптов заточеных под исдон. там тупо выпилить все функции, для которых он нужен и все.

В аттаче 2 файла, которые нужно заменить. и соответственно в модулях удалить модуль исдона.

LagunaFAN · Отправлено: **13:39, 06-04-2013** | #87

Gnom_aka_Lexander, огромное спасибо за помощь!

neorom · Отправлено: **10:02, 07-04-2013** | #88

Цитата saurn:

Johny777 выкладывал прекрасный пример отображения процентов установки и удаления. »

А может кто то удалить все лишнее из того скрипта от Johny777 и оставить только проценти при установки, бо у меня не получаэться.

saurn · Конфигурация компьютера

neorom

Убрать или закомментировать всё, что ниже строчки //////////////////////////////Uninstall/////////////////////////////

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Files]
Source: {fonts}\*; DestDir: {app}; Flags: external

[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

const
    WM_USER = $0400;
    PBM_SETPOS = WM_USER+2;
    GWL_WNDPROC = -4;


type
    LPARAM = Integer;
    WPARAM = Integer;
    LRESULT = Integer;
    TFNWndProc = Integer;


function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProc{#A}@user32.dll stdcall';
function SetWindowText(hWnd: HWND; lpString: String): BOOL; external 'SetWindowText{#A}@user32.dll stdcall';

var
    OldProgressBarProc: Longint;

function ProgressBarProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
    if Msg = PBM_SETPOS then with WizardForm do SetWindowText( StatusLabel.Handle, Format('%s'#32'%s', [SetupMessage(msgStatusExtractFiles), FormatFloat('0.#0 %', (ProgressGauge.Position*100)/ProgressGauge.Max)]) );

    Result := CallWindowProc(OldProgressBarProc, hWnd, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
    OldProgressBarProc := SetWindowLong(WizardForm.ProgressGauge.Handle, GWL_WNDPROC, CallbackAddr('ProgressBarProc'));
end;

procedure DeinitializeSetup();
begin
    SetWindowlong(WizardForm.ProgressGauge.Handle, GWL_WNDPROC, OldProgressBarProc);
end;

/////////////////////////////// Uninstall //////////////////////////////////


//function UninstallProgressBarProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
//begin
//    if Msg = PBM_SETPOS then with UninstallProgressForm do SetWindowText( StatusLabel.Handle, Format('%s'#32'%s', [FmtMessage(SetupMessage(msgStatusUninstalling), ['{#SetupSetting("AppName")}']), FormatFloat('0.#0 %', (ProgressBar.Position*100)/ProgressBar.Max)]) );
//
//    Result := CallWindowProc(OldProgressBarProc, hWnd, Msg, wParam, lParam);
//end;
//
//procedure UninstallFormOnHide(Sender: TObject);
//begin
//    SetWindowlong(TUninstallProgressForm(Sender).ProgressBar.Handle, GWL_WNDPROC, OldProgressBarProc);
//end;
//
//procedure InitializeUninstallProgressForm();
//begin
//    OldProgressBarProc := SetWindowLong(UninstallProgressForm.ProgressBar.Handle, GWL_WNDPROC, CallbackAddr('UninstallProgressBarProc'));
//    UninstallProgressForm.OnHide := @UninstallFormOnHide;
//end;

Не бойтесь изучать и пробовать самостоятельно, иначе ничему не научитесь.

neorom · Отправлено: **14:39, 07-04-2013** | #90

А можно ли зделать чтоби процедура которая отвечаэт за проценти, брала информацию из отображения процес бара(двигаэтся процес бар и идут процети). Эсли да то дайте пример.