Старожил
Сообщения: 440 Благодарности: 251
Профиль | Сайт | Отправить PM | Цитировать
procedure CurStepChanged(CurStep: TSetupStep); var ErrorCode: Integer; begin if CurStep = ssDone then ShellExec('open', 'http://mi_site.ru', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end;
------- Если сообщение оказалось полезным для Вас, то помимо спасибо, можно нажать на "Полезное сообщение".
Отправлено: 14:27, 09-03-2012 | #970