Inno Setup (создание инсталяционных пакетов) - [3417] :: Программы

Код:

// установка в директорию

function NextButtonClick(CurPage: Integer): Boolean;
var
sz:Integer;
s:string;
h:Longint;
begin
Result:=True;
If CurPage=1
then
begin
h:=FindWindowByClassName('My-Program-WINDOW');
If h<>0 then
SendMessage(h, 16, 0, 0); //Вот это и есть закрытие программы
end
else
If CurPage=6 then
//Проверка присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения
begin
If (FileSearch('Steam.dll', ExpandConstant('{app}'))='') //ищем файл [Main.exe] в папке {app}.
then
begin
s:='Извините, вы неправильно ' #13 'указали путь к папке с установленной игрой. Counter-Strike' #13#13 'Пожалуйста, выберите правильный путь к файлу hl.exe или cstrike.exe, ' #13 ' для установки обновления.';
MsgBox(s, mbError, mb_Ok);
Result:= False
end;
end;
end;

Модерирует : gyra, Maz
articlebot (13-10-2013 23:33): продолжение темы - №15	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению