Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Код:
 
[code]
function InitializeSetup: Boolean;
var
  ResultCode: Integer;
  ResultReg: string;
begin
  Result := False;
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\GSC Game World\STALKER-SHOC', 'InstallPath', ResultReg) then
    if MsgBox('Запустить S.T.A.L.K.E.R.?', mbConfirmation, MB_YESNO) = IDYES then
    begin
      RemoveQuotes(ResultReg);
      if not Exec(ResultReg + '\bin\XR_3DA.exe', '', '', SW_SHOW, ewNoWait, ResultCode)
        then
        MsgBox('Ошибка', mbError, MB_OK);
    end
    else
    begin
      Result := False;
    end;
end;
 


Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 19:51 14-04-2007 | Исправлено: NightW0lf, 19:52 14-04-2007
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru