Fix small toolbox bugs

This commit is contained in:
Jeffrey Morgan 2015-08-10 20:16:26 -07:00
parent 4493b497f6
commit 3c85548061
1 changed files with 18 additions and 10 deletions

View File

@ -59,12 +59,12 @@ SolidCompression=yes
WizardImageFile=windows-installer-side.bmp WizardImageFile=windows-installer-side.bmp
WizardSmallImageFile=windows-installer-logo.bmp WizardSmallImageFile=windows-installer-logo.bmp
WizardImageStretch=no WizardImageStretch=no
WizardImageBackColor=$22B8EB WizardImageBackColor=$22EBB8
; in the installer itself: ; in the installer itself:
; in the "Add/Remove" list: ; in the "Add/Remove" list:
UninstallDisplayIcon={app}\toolbox.ico UninstallDisplayIcon={app}\unins000.exe
SignTool=ksign /d $q{#MyAppName}$q /du $q{#MyAppURL}$q $f SignTool=ksign /d $q{#MyAppName}$q /du $q{#MyAppURL}$q $f
@ -202,10 +202,13 @@ var
ResultCode: integer; ResultCode: integer;
WinHttpReq: Variant; WinHttpReq: Variant;
begin begin
try
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1'); WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
WinHttpReq.Open('POST', 'https://api.mixpanel.com/track/?data={#EventStartedData}', false); WinHttpReq.Open('POST', 'https://api.mixpanel.com/track/?data={#EventStartedData}', false);
WinHttpReq.SetRequestHeader('Content-Type', 'application/json'); WinHttpReq.SetRequestHeader('Content-Type', 'application/json');
WinHttpReq.Send(''); WinHttpReq.Send('');
except
end;
// Proceed Setup // Proceed Setup
Result := True; Result := True;
@ -347,10 +350,15 @@ begin
begin begin
if IsComponentSelected('DockerMachine') then if IsComponentSelected('DockerMachine') then
MigrateVM(); MigrateVM();
try
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1'); WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
WinHttpReq.Open('POST', 'https://api.mixpanel.com/track/?data={#EventFinishedData}', false); WinHttpReq.Open('POST', 'https://api.mixpanel.com/track/?data={#EventFinishedData}', false);
WinHttpReq.SetRequestHeader('Content-Type', 'application/json'); WinHttpReq.SetRequestHeader('Content-Type', 'application/json');
WinHttpReq.Send(''); WinHttpReq.Send('');
except
end;
if IsTaskSelected(taskname) then if IsTaskSelected(taskname) then
ModPath(); ModPath();
end end