htuos
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Forslay
и в каком месте ты это делаешь (название процедуры, функции)?
если InitializeSetup, то наверное так
Код: begin
Result := false;
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Valve\Half-Life\cstrike', 'InstallPath', ResultReg) then begin
if MsgBox('Counter-Strike уже установлен на Вашем компьютере.'#13#13'Вы желаете запустить Counter-Strike?', mbConfirmation, MB_YESNO) = IDYES then begin
RemoveQuotes(ResultReg);
if not Exec(ResultReg + '\hl.exe', '-game cstrike -steam -console', '', SW_SHOW, ewNoWait, ResultCode) then MsgBox('Ошибка', mbError, MB_OK);
end
end else Result := true;
end; |
1.кнопка "ОК" имеется только на сообщении об ошибке
2.есть подозрение, что RemoveQuotes - функция, тогда ее вызов бесполезен и ResultReg останется с кавычками, т.е. твой Exec(...) не будет работать. Если ф-ция, тогда так Exec(RemoveQuotes(ResultReg) + '\hl.exe', '-game cstrike -steam -console', '', SW_SHOW, ewNoWait, ResultCode)
3.внимательнее с логическими скобками (begin ... end) |
Всего записей: 335 | Зарегистр. 06-03-2008 | Отправлено: 13:02 14-04-2008 | Исправлено: htuos, 13:18 14-04-2008 |
|
Суть вопроса выше, несколькими постами ранее, проблему я решил, теперь не могу сообразить вот что: мне нужно, чтобы при отсутствии некоторых файлов в определенной папке, выводилось сообщение об их отсутствии и прекращении инсталляции. 
