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

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

innot20,

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.


[code]
const
    TH32CS_SNAPPROCESS = $2;
    INVALID_HANDLE_VALUE = -1;
    TIMER_ID = 01;

type
    TPROCESSENTRY32 = record
        dwSize, cntUsage, th32ProcessID: DWORD;
        th32DefaultHeapID: Longint;
        th32ModuleID, cntThreads, th32ParentProcessID: DWORD;
        pcPriClassBase: Longint;
        dwFlags: DWORD;
        szExeFile: array [0..259] of char;
    end;

    TFNTimerProc = Longint;

function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; external 'CreateToolhelp32Snapshot@kernel32.dll stdcall';
function Process32First(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32Next@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): Boolean; external 'CloseHandle@kernel32.dll stdcall';
function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT; lpTimerFunc: TFNTimerProc): UINT; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: HWND; uIDEvent: UINT): BOOL; external 'KillTimer@user32.dll stdcall';


var
    msgPage: TOutputMsgWizardPage;


function IsProcessRunning(FileName: String): Boolean;
var
    hProcessSnap: THandle;
    pe32: TPROCESSENTRY32;
    szExeFile: String;
begin
    hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if hProcessSnap = INVALID_HANDLE_VALUE then Exit;
    pe32.dwSize := sizeof(pe32);
    if not Process32First(hProcessSnap, pe32) then Exit;
    while not Result and Process32Next(hProcessSnap, pe32) do
    begin
        szExeFile := '';
        while not (pe32.szExeFile[Length(szExeFile)] = #0) do szExeFile := szExeFile + pe32.szExeFile[Length(szExeFile)];
        Result := LowerCase(FileName) = LowerCase(szExeFile);
    end;
    CloseHandle(hProcessSnap);
end;


procedure TimerProc(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
begin
    WizardForm.NextButton.Enabled := not IsProcessRunning('WorldOfTanks.exe');
end;


procedure InitializeWizard();
begin
    msgPage := CreateOutputMsgPage(wpSelectComponents, 'Заголовок', 'Подзаголовок', 'Сообщение');
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageFromID(PageID) of
        msgPage: Result := not IsProcessRunning('WorldOfTanks.exe');
    end;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
    KillTimer(WizardForm.Handle, TIMER_ID);
    
    case PageFromID(CurPageID) of
        msgPage: if IsProcessRunning('WorldOfTanks.exe') then SetTimer(WizardForm.Handle, TIMER_ID, 30, CallbackAddr('TimerProc'));
    end;
end;


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

И еще:

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.


[code]
const
    TH32CS_SNAPPROCESS = $2;
    INVALID_HANDLE_VALUE = -1;

type
    TPROCESSENTRY32 = record
        dwSize, cntUsage, th32ProcessID: DWORD;
        th32DefaultHeapID: Longint;
        th32ModuleID, cntThreads, th32ParentProcessID: DWORD;
        pcPriClassBase: Longint;
        dwFlags: DWORD;
        szExeFile: array [0..259] of char;
    end;


function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; external 'CreateToolhelp32Snapshot@kernel32.dll stdcall';
function Process32First(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32Next@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): Boolean; external 'CloseHandle@kernel32.dll stdcall';


var
    msgPage: TOutputMsgWizardPage;


function IsProcessRunning(FileName: String): Boolean;
var
    hProcessSnap: THandle;
    pe32: TPROCESSENTRY32;
    szExeFile: String;
begin
    hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if hProcessSnap = INVALID_HANDLE_VALUE then Exit;
    pe32.dwSize := sizeof(pe32);
    if not Process32First(hProcessSnap, pe32) then Exit;
    while not Result and Process32Next(hProcessSnap, pe32) do
    begin
        szExeFile := '';
        while not (pe32.szExeFile[Length(szExeFile)] = #0) do szExeFile := szExeFile + pe32.szExeFile[Length(szExeFile)];
        Result := LowerCase(FileName) = LowerCase(szExeFile);
    end;
    CloseHandle(hProcessSnap);
end;


function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result := True;

    case PageFromID(CurPageID) of
        msgPage:
        begin
            if not IsProcessRunning('WorldOfTanks.exe') then Result := True
            else begin
                MsgBox('Программа все еще запущена', mbError, MB_OK);
                Result := False;
            end;
        end;
    end;
end;


procedure InitializeWizard();
begin
    msgPage := CreateOutputMsgPage(wpSelectComponents, 'Заголовок', 'Подзаголовок', 'Сообщение');
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageFromID(PageID) of
        msgPage: Result := not IsProcessRunning('WorldOfTanks.exe');
    end;
end;

innot20 · Отправлено: **19:05, 27-01-2014** | #**2002**

saurn, запустил танки, запустил установщик и установил все моды без проблем, то что включен процесс сообщений не выдало

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

saurn,

Ошибочка:

лучше тогда так:

Код:

#define KillExe "WorldOfTanks.exe"

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.


[code]
const
    TH32CS_SNAPPROCESS = $2;
    INVALID_HANDLE_VALUE = -1;
    TIMER_ID = 01;

type
    TPROCESSENTRY32 = record
        dwSize, cntUsage, th32ProcessID: DWORD;
        th32DefaultHeapID: Longint;
        th32ModuleID, cntThreads, th32ParentProcessID: DWORD;
        pcPriClassBase: Longint;
        dwFlags: DWORD;
        szExeFile: array [0..259] of char;
    end;

    TFNTimerProc = Longint;

function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; external 'CreateToolhelp32Snapshot@kernel32.dll stdcall';
function Process32First(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32Next@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): Boolean; external 'CloseHandle@kernel32.dll stdcall';
function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT; lpTimerFunc: TFNTimerProc): UINT; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: HWND; uIDEvent: UINT): BOOL; external 'KillTimer@user32.dll stdcall';


var
    msgPage: TOutputMsgWizardPage;


function IsProcessRunning(FileName: String): Boolean;
var
    hProcessSnap: THandle;
    pe32: TPROCESSENTRY32;
    szExeFile: String;
begin
    hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if hProcessSnap = INVALID_HANDLE_VALUE then Exit;
    pe32.dwSize := sizeof(pe32);
    if not Process32First(hProcessSnap, pe32) then Exit;
    while not Result and Process32Next(hProcessSnap, pe32) do
    begin
        szExeFile := '';
        while not (pe32.szExeFile[Length(szExeFile)] = #0) do szExeFile := szExeFile + pe32.szExeFile[Length(szExeFile)];
        Result := LowerCase(FileName) = LowerCase(szExeFile);
    end;
    CloseHandle(hProcessSnap);
end;


procedure TimerProc(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
begin
    WizardForm.NextButton.Enabled := not IsProcessRunning('{#KillExe}');
end;


procedure InitializeWizard();
begin
    msgPage := CreateOutputMsgPage(wpSelectComponents, 'Заголовок', 'Подзаголовок', 'Сообщение');
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageFromID(PageID) of
        msgPage: Result := not IsProcessRunning('{#KillExe}');
    end;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
    KillTimer(WizardForm.Handle, TIMER_ID);

    case PageFromID(CurPageID) of
        msgPage: if IsProcessRunning('{#KillExe}') then SetTimer(WizardForm.Handle, TIMER_ID, 30, CallbackAddr('TimerProc'));
    end;
end;


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

diman_21Ru · Отправлено: **19:08, 27-01-2014** | #**2004**

saurn , огромнейшее тебе спасибо

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

Цитата innot20:

то что включен процесс сообщений не выдало »

Потому что на юникодной версии Inno компилил, у меня на ANSI всё нормально работает.

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

Цитата innot20:

запустил танки, запустил установщик и установил все моды без проблем, то что включен процесс сообщений не выдало »

Тестировал на процессе калькулятора и забыл изменить в одном месте. Поправил. А так, все работает.

innot20 · Отправлено: **20:07, 27-01-2014** | #**2007**

Спасибо всем за помощь

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

Цитата saurn:

А так, все работает. »

А я ещё раз повторю, что примеры на юникодной версии не будут работать.

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

Цитата Nordek:

на юникодной версии не будут работать »

Юникодовой никогда не пользовался. Про нее и слова не было. На ANSI все работает.

innot20 · Отправлено: **21:23, 27-01-2014** | #**2010**

помогите пожалуйста ещё сделать проверку на версию игры
считать версию игры можно 3 способами
1. файл version.xml
его содержимое:

Код:

<version.xml>
	<appname>	#menu:login/version	</appname>
	<version> v.0.8.11 Common Test #578</version> // цифра 578 может меняться у другого пользователя
	<showLicense>   0   </showLicense>
	<ingameHelpVersion>	1	</ingameHelpVersion>
	<meta>
		<client>368825</client>
		<overrides>368619</overrides>
		<localization>368469 RU</localization>
	</meta>
</version.xml>

2. у файла WorldOfTanks.exe в свойствах > подробно
есть версия файла

Код:

0.8.11.0

3. файл paths.xml
содержимое первых 3 строчек

Код:

<root>
  <Paths>
    <Path>./res_mods/0.8.11 Common Test</Path>