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

Dinvin4ester · Отправлено: **20:39, 27-06-2013** | #**701**

Как вы и сказали в исдон - // добавил и все .

vint56 · Отправлено: **21:01, 27-06-2013** | #**702**

Dinvin4ester, все работает
http://rghost.ru/47060078

Dinvin4ester · Отправлено: **21:19, 27-06-2013** | #**703**

vint56,
И еще задам нубский вопрос - куда прописать саму папку и файлы ехе ? А то компилирую и ставится сам скрипт .

vint56 · Отправлено: **21:30, 27-06-2013** | #**704**

Dinvin4ester, отвечаю на твой последний вопрос а дальше читай справку
[Files]
Source: "C:\Games\Ubisoft\Tom Clancy's Splinter Cell Chaos Theory\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

Dinvin4ester · Отправлено: **21:36, 27-06-2013** | #**705**

vint56,
Все , все благодарю и удаляюсь с темы . Спасибо что возились со мной .

Dinvin4ester · Отправлено: **22:30, 28-06-2013** | #**706**

Ребя и опять я . Хочу узнать как прописать в скрипте установку русификатора на выбор и таблеток тоже . Куда и что прописать ? Спасибо .

vint56 · Отправлено: **23:07, 28-06-2013** | #**707**

Dinvin4ester

Lex_from_Belarus · Отправлено: **00:41, 29-06-2013** | #**708**

подскажите, так инсталятор созданный версией 5.5.1 не распаковывается?

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

Lex_from_Belarus,
Если версия Inno расширенная, то и не распакуется.

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

доброе время суток.Помогите мне решить одну проблему.Короче.я использую код для удаления других приложений.

Код:

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

const
    
    WAIT_OBJECT_0 = $0;
    STARTF_USESHOWWINDOW  = 1;
    NORMAL_PRIORITY_CLASS = $00000020;
    INFINITE = $FFFFFFFF;     { Infinite timeout }

type
    _STARTUPINFO = record
        cb: DWORD;
        #ifdef UNICODE
            lpReserved, lpDesktop, lpTitle: PAnsiChar;
        #else
            lpReserved, lpDesktop, lpTitle: PChar;
        #endif
        dwX, dwY, dwXSize, dwYSize, dwXCountChars, dwYCountChars, dwFillAttribute, dwFlags: DWORD;
        wShowWindow, cbReserved2: Word;
        lpReserved2: Byte;
        hStdInput, hStdOutput, hStdError: THandle;
    end;

    _PROCESS_INFORMATION = record
        hProcess: THandle;
        hThread: THandle;
        dwProcessId: DWORD;
        dwThreadId: DWORD;
    end;


function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';
function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; external 'WaitForSingleObject@kernel32.dll stdcall';
#ifdef UNICODE
function CreateProcess(lpApplicationName, lpCommandLine: PAnsiChar; lpProcessAttributes, lpThreadAttributes: Longint; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment, lpCurrentDirectory: PAnsiChar; const lpStartupInfo: _STARTUPINFO; var lpProcessInformation: _PROCESS_INFORMATION): BOOL; external 'CreateProcess{#A}@kernel32.dll stdcall';
#else
function CreateProcess(lpApplicationName, lpCommandLine: PChar; lpProcessAttributes, lpThreadAttributes: Longint; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment, lpCurrentDirectory: PChar; const lpStartupInfo: _STARTUPINFO; var lpProcessInformation: _PROCESS_INFORMATION): BOOL; external 'CreateProcess{#A}@kernel32.dll stdcall';
#endif


function UninstallMyApp(): Boolean;
var
    pi: _PROCESS_INFORMATION;
    si: _STARTUPINFO;
    Buff: String;
    i: Integer;
begin
    if MsgBox('Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?', mbError, MB_YESNO) = IDNO then Exit;
    Buff := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,UninstallString|}'));
    Result := Buff = '';
    if not Result then
    begin
        si.cb := SizeOf(si);
        si.dwFlags := STARTF_USESHOWWINDOW;
        si.wShowWindow := SW_SHOWNORMAL;
        #ifdef UNICODE
        if not CreateProcess('', PAnsiChar(Buff), 0, 0, False, NORMAL_PRIORITY_CLASS, '', '', si, pi) then
        #else
        if not CreateProcess('', PChar(Buff), 0, 0, False, NORMAL_PRIORITY_CLASS, '', '', si, pi) then
        #endif
        begin
            MsgBox(SysErrorMessage(DLLGetLastError), mbCriticalError, MB_OK);
            Exit;
        end;
        try
            while WaitForSingleObject(pi.hProcess, INFINITE) <> WAIT_OBJECT_0 do Application.ProcessMessages;
        finally
            CloseHandle(pi.hProcess);
            CloseHandle(pi.hThread);
            Result := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1,UninstallString|}')) = '';
        end;
    end;
end;


function InitializeSetup(): Boolean;
begin
    Result := UninstallMyApp();
end;

при первом запуске появляется диалог

но программа ранее не была установлена
вот мой скрипт