[habib2302]

мне кто нибудь ответит на мое сообщение????

[Johny777]

habib2302, Сокрытие месседжбокса после удаления:

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

Код:

[code]
const
    ID_QUESTION = 65579;

function InitializeUninstall(): Boolean;
var
    ErrorCode: Integer;
begin
    if not UninstallSilent then
    begin
        Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW, ewNoWait, ErrorCode);
        Exit;
    end;
    
    if MsgBoxEx(0, FmtMessage(SetupMessage(msgConfirmUninstall), ['{#SetupSetting("AppName")}'] ), SetupMessage(msgUninstallAppTitle), MB_YESNO, ID_QUESTION, 0) = IDYES then Result := True;
end;

[El Sanchez]

мне кто нибудь ответит на мое сообщение???? »

habib2302, на основе примера из шапки:

Код:

const
    WM_CLOSE = $0010;

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

var
    iTimer: UINT_PTR;

//////////////////////////////////////////////////////////////////////////////
procedure TimerProc(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
var
    hWindow: HWND;
begin
    hWindow := FindWindowByWindowName(FmtMessage(SetupMessage(msgUninstallAppFullTitle), ['{#SetupSetting("AppName")}']));
    if hWindow > 0 then
    begin
        PostMessage(hWindow, WM_CLOSE, 0, 0);
        KillTimer(0, iTimer);
    end;
end;

////////////////////////////////////////////////////////////////////
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    case CurUninstallStep of
        usPostUninstall: iTimer := SetTimer(0, 0, 50, CallbackAddr('TimerProc'));
    end;
end;

[Robby]

Подскажите функцию поиска папки по маске или по имени.

[Johny777]

Robby, по имени, с рекурсией:

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

Код:

procedure SearchForFolder(const RootFolder, SearchFolderName: String; var ResultPathArray: array of String);
var
    NewSearchPath: String;
    FindRec: TFindRec;
    Len: Integer;
begin
    NewSearchPath := AddBackslash(RemoveBackslash(RootFolder));

    if FindFirst(NewSearchPath + '*.*', FindRec) then
    try

        repeat
            if (FindRec.Name <> '.') and (FindRec.Name <> '..') then
            if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY then
            begin
                if FindRec.Name = SearchFolderName then
                begin
                    Len := GetArrayLength(ResultPathArray);
                    SetArrayLength(ResultPathArray, Len+1);
                    ResultPathArray[Len] := NewSearchPath + FindRec.Name;
                end
                else
                SearchForFolder(NewSearchPath + FindRec.Name, SearchFolderName, ResultPathArray);
            end;
        until not FindNext(FindRec);

    finally
        FindClose(FindRec);
    end;
end;


procedure InitializeWizard();
var
    AArray: array of String;
    i: Integer;
begin
    SearchForFolder('C:\Program Files (x86)\CAPCOM', 'nativePC', AArray);
    
    for i := 0 to GetArrayLength(AArray)-1 do MsgBox(AArray[i], mbInformation, MB_OK);
end;
[/font]

по завершении входной массив содержит пути к папкам с искомым именем

[audiofeel]

прошу протестировать простой установщик (отправил знакомому через файлообменник, не запускается пишет ошибка
"Divizion by zero
09:49:50
Runtime error
at 153:614
Invalid Opcode"
тут = http://file.sampo.ru/w287gd/

[saurn]

audiofeel

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

Погонял на 64-х разрядной семерке. Ошибок не замечено. Divizion by zero - нечто в скрипте делят на ноль, а это в свою очередь запрещено. Нужно смотреть во время отладки скрипта на той машине, где вылазиет ошибка.

[Tco 03]

Здравствуйте, господа. Подскажите, пожалуйста, как через секцию код проверить, какой язык был выбран перед началом установки?

[Johny777]

Tco 03, если правильно понял:

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

Код:

[Languages]
Name: "en"; MessagesFile: "compiler:Languages\English.isl"
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"


[code ]
procedure InitializeWizard();
begin
  case ActiveLanguage() of
    'en': MsgBox('English', mbInformation, MB_OK);
    'ru': MsgBox('Russian', mbInformation, MB_OK);
  end;
end;

[audiofeel]

saurn,

Divizion by zero - нечто в скрипте делят на ноль, а это в свою очередь запрещено. »

может это говорить о здоровье системы на которой тестилось, насчет

Нужно смотреть во время отладки скрипта на той машине, где вылазиет ошибка. »

не выйдет у меня ни как