[kotyarko@fb]

Подскажите, как сделать проверку на наличие папки. »

Например, так:

Код:

Function NextButtonClick(CurPageID: Integer): Boolean;
begin
 Result := True;
 case CurPageID of
  wpSelectDir:
  begin
   if not DirExists(ExpandConstant('{app}\Prog')) then
   begin
    MsgBox('Выбрана не верная папка', mbError, MB_OK);
    Result := False;
   end;
  end;
 end;
end;

palsn2000, я точно не уверен, не пробовал. Но на прогрессбар разве лейбл станет?

[Kashtan007]

Привет всем.
Как сделать, чтобы деинсталятор удалял заранее указанные папки?
Например: У меня есть папка res_mods, в не папка mods и папка 0.9.7.
Мне нужно чтобы деинсталятор удалил папку mods и очистил папку 0.9.7

[Nordek]

Как сделать, чтобы деинсталятор удалял заранее указанные папки? »

Пример:

Код:

[UninstallDelete]
Name: {userappdata}\res_mods; Type: filesandordirs

[Kashtan007]

Nordek, файл удалять по такому же способу?

[Dodakaedr]

файл удалять по такому же способу? »

Инфа из справки. По-моему все доходчиво описано

Это не обязательная секция. В ней указываются дополнительные файлы или папки, которые деинсталлятор должен удалить, кроме тех, которые были установлены/созданы с помощью параметров секций [Files] или [Dirs]. Главным образом эта секция используется для удаления .INI файлов, созданных вашим приложением. Деинсталлятор выполняет эти параметры в конце деинсталляции. Пример секции [UninstallDelete]: Код: [UninstallDelete] Type: files; Name: "{win}\MYPROG.INI" Список поддерживаемых параметров: Type (Обязательно) Указывает тип удаляемого объекта. Может быть следующим: files Параметр Name указывает имя отдельного файла или маску. filesandordirs То же, что files за исключением, что также можно задать имя папки: в этом случае удаляются все ее файлы и подпапки. dirifempty При использовании этого типа параметр Name должен задавать папку, но не содержать масок. Папка будет удалена, только если она пустая. Например: Код: Type: files Name (Обязательно) Имя удаляемого файла или папки. Внимание! Не торопитесь использовать здесь маски для удаления всех файлов папки {app}. Строго рекомендуется не делать этого по двум причинам. Во-первых, пользователи обычно не любят, когда данные, введенные ими в директории приложения, удаляются без предупреждения (они могут удалить их просто потому, что хотят, например, переместить программу в папку на другом диске). Будет лучше оставить файлы, чтобы при желании пользователь потом сам удалил их. Во-вторых, если пользователь по ошибке установит приложение не в ту папку (например, в C:\WINDOWS) и потом удалит его оттуда, это может привести к плачевным последствиям. Так что НЕ ДЕЛАЙТЕ ЭТОГО! Например: Код: Name: "{win}\MYPROG.INI"

[palsn2000]

palsn2000, я точно не уверен, не пробовал. Но на прогрессбар разве лейбл станет? »

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

У Вас там используется SetupMessage(msgStatusExtractFiles)

Код:

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;

А я спрашиваю можно ли как нибудь вот это (ProgressGauge.Position*100)/ProgressGauge.Max) в процентах или даже без процентов связать с произвольным лэйблом или произвольным текстом, который можно бы было наложить на прогрессбар?

Может я не совсем правильно объясняю, чего хочу, вот для примера картинка:

[El Sanchez]

palsn2000, например, так:

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

Код:

function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; external 'MulDiv@kernel32.dll stdcall';

var
    PercentLabel: TLabel;

///////////////////////////
procedure InitializeWizard;
begin
    { PercentLabel }
    PercentLabel := TLabel.Create(WizardForm);
    with PercentLabel do
    begin
        Parent := WizardForm.ProgressGauge;
        Align := alClient;
        Alignment := taCenter;
        Layout := tlCenter;
        Transparent := True;
    end;
end;

/////////////////////////////////////////////////////////////////////////////////////////
function ProgressBarProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
    case Msg of
        PBM_SETPOS:
            begin
                Result := CallWindowProc(OldProgressBarProc, hWnd, Msg, wParam, lParam);
                with WizardForm.ProgressGauge do
                    PercentLabel.Caption := Format('%d %%', [MulDiv(Position, 100, Max)]);
            end;
    else
        Result := CallWindowProc(OldProgressBarProc, hWnd, Msg, wParam, lParam);
    end;
end;

[Dodakaedr]

например, так: »

полный рабочий пример можете привести?

[Николай_Николаич@vk]

Например, так: Код: Function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: begin if not DirExists(ExpandConstant('{app}\Prog')) then begin MsgBox('Выбрана не верная папка', mbError, MB_OK); Result := False; end; end; end; end; »

Немного не то.

Нужно что то типо этого:

Код:

if not FileExists(AddBackslash(WizardForm.DirEdit.Text) + 'Prog.exe') then

только проверка не на файл, а папку.

[El Sanchez]

полный рабочий пример можете привести? »

Dodakaedr, пример:

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

Код:

[Setup]
AppName=test
AppVerName=test
DefaultDirName={tmp}
CreateAppDir=no
Uninstallable=no
CreateUninstallRegKey=no

[Files]
Source: compiler:Languages\*; DestDir: {app}

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

[code]
#define A = (Defined UNICODE) ? "W" : "A"
const
    WM_USER = $0400;
    PBM_SETPOS = (WM_USER + 2);
    GWL_WNDPROC = (-4);
    GWL_USERDATA = (-21);

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): Longint; external 'CallWindowProc{#A}@user32.dll stdcall';
function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; external 'MulDiv@kernel32.dll stdcall';

var
    InstPercentLabel: TLabel;

///////////////////////////////
procedure CreateInstallingPage;
begin
    { InstPercentLabel }
    InstPercentLabel := TLabel.Create(WizardForm);
    with InstPercentLabel do
    begin
        Parent := WizardForm.ProgressGauge;
        Align := alClient;
        Alignment := taCenter;
        Layout := tlCenter;
        Transparent := True;
    end;
end;

///////////////////////////////////////////////////////////////////////////////////////
function ProgressGaugeWndProc(hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint;
begin
    case Msg of
        PBM_SETPOS:
            begin
                Result := CallWindowProc(GetWindowLong(hWnd, GWL_USERDATA), hWnd, Msg, wParam, lParam);
                with WizardForm.ProgressGauge do
                    InstPercentLabel.Caption := Format('%d %%', [MulDiv(Position, 100, Max)]);
            end;
    else
        Result := CallWindowProc(GetWindowLong(hWnd, GWL_USERDATA), hWnd, Msg, wParam, lParam);
    end;
end;

///////////////////////////
procedure SubclassControls;
begin
    { ProgressGauge }
    with WizardForm.ProgressGauge do
    begin
        if GetWindowLong(Handle, GWL_USERDATA) = 0 then
            SetWindowLong(Handle, GWL_USERDATA, SetWindowLong(Handle, GWL_WNDPROC, CallbackAddr('ProgressGaugeWndProc')));
    end;
end;

///////////////////////////
procedure InitializeWizard;
begin
    CreateInstallingPage;
    SubclassControls;
end;

/////////////////////////////
procedure UnSubclassControls;
begin
    { ProgressGauge }
    with WizardForm.ProgressGauge do
    begin
        if GetWindowLong(Handle, GWL_USERDATA) > 0 then
            SetWindowLong(Handle, GWL_WNDPROC, GetWindowLong(Handle, GWL_USERDATA));
    end;
end;

////////////////////////////
procedure DeinitializeSetup;
begin
    if ExpandConstant('{wizardhwnd}') = '0' then
        Exit;
    UnSubclassControls;
end;

Нужно что то типо этого: Код: if not FileExists(AddBackslash(WizardForm.DirEdit.Text) + 'Prog.exe') then только проверка не на файл, а папку. »

Николай_Николаич@vk,

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

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result := True;
    case CurPageID of
        wpSelectDir:
            if DirExists(ExpandConstant('{app}\MyProg')) then
                MsgBox('bla-bla-bla', mbInformation, MB_OK);
    end;
end;