mirror of
https://github.com/danbulant/Cosmos
synced 2026-06-11 10:41:33 +00:00
This commit is contained in:
parent
6257ca299a
commit
ff29283492
1 changed files with 13 additions and 0 deletions
13
Setup2/Events.inc
Normal file
13
Setup2/Events.inc
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
[Code]
|
||||
|
||||
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||||
var
|
||||
xResultCode: Integer;
|
||||
begin
|
||||
|
||||
Exec(ExpandConstant('{code:VSNET2008_PATH|}\devenv.exe'), '/setup', '', SW_HIDE, ewWaitUntilTerminated, xResultCode);
|
||||
if xResultCode <> 0 then
|
||||
begin
|
||||
RaiseException('An error occurred while unregistering with Visual Studio!');
|
||||
end;
|
||||
end;
|
||||
Loading…
Reference in a new issue