Ветеран
Сообщения: 1640
Благодарности: 536
|
Профиль
|
Отправить PM
| Цитировать
bugmenotagain,
читать дальше »
Код:  [*Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
begin
if (CurStep = ssDone) then begin
if (IsComponentSelected('port')) then begin
Exec(ExpandConstant('{app}\uninstall\unins000.exe'), ' /VERYSILENT', ExpandConstant('{app}\uninstall'), SW_SHOW, ewNoWait, ResultCode);
// MsgBox('папка с удалятором = ' + ExpandConstant('{app}\uninstall'), mbInformation, MB_OK);
// if RegKeyExists(HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{60F3D1CB-B2A7-46E7-92B0-93526131061D}_is1) then MsgBox('ключ в реестре не удален', mbInformation, MB_OK);
end; //if (IsComponentSelected('port'))
end; //if (CurStep = ssDone)
end; //CurStepChanged
|
|
-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!
Последний раз редактировалось volk1234, 20-05-2012 в 03:14.
Причина: если уж правила нарушаете, так хоть под кат прятали бы что ли
Отправлено: 11:34, 16-05-2012
| #2037
|
