Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для YURSHAT

Старожил


Сообщения: 163
Благодарности: 78

Профиль | Отправить PM | Цитировать


Цитата Deen:
Как сделать чтобы при установке игры второй раз появлялось окно "удалить игру" но или что то подобное? »
Как то так
Пример
Код: Выделить весь код
[Setup]
AppName=Need for Speed™ Undercover
AppVerName=Need for Speed™ Undercover
DefaultDirName={pf}\Need for Speed™ Undercover
DefaultGroupName=Need for Speed™ Undercover
AllowNoIcons=yes

[Code_]

function InitializeSetup(): Boolean;
var
  ResultCode: Integer;
  ResultStr:string;
begin
Result:=True;
begin
  If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Need for Speed™ Undercover_is1', 'UninstallString', ResultStr)
then
 begin
  If ResultStr<>''
then
 begin
  ResultStr:=RemoveQuotes(ResultStr);
  if MsgBox('Игра Need for Speed™ Undercover уже установлена.' #13#13 'Вы хотите удалить существующую копию перед продолжением?', mbConfirmation, MB_YESNO) = idYes
then
  if not Exec(ResultStr, '/silent', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
then
  MsgBox('Ошибка удаления.' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
end;
end;
end;
end;

-------
Если я знаю, что знаю мало, я добьюсь того, чтобы знать больше... В.И. Ленин
Krinkels.org - сжатие данных и создание инсталляторов


Последний раз редактировалось YURSHAT, 07-02-2010 в 22:19. Причина: Подправил

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:06, 07-02-2010 | #1237