Dont proceed on windows 10

Signed-off-by: Jeffrey Morgan <jmorganca@gmail.com>
This commit is contained in:
Jeffrey Morgan 2015-08-13 10:57:29 -07:00
parent f3bf0a748a
commit a5b8346153
1 changed files with 9 additions and 0 deletions

View File

@ -201,7 +201,16 @@ function InitializeSetup(): boolean;
var var
ResultCode: integer; ResultCode: integer;
WinHttpReq: Variant; WinHttpReq: Variant;
Version: TWindowsVersion;
begin begin
GetWindowsVersionEx(Version);
if (Version.Major = 10) then
begin
SuppressibleMsgBox('Windows 10 is not currently supported by the Docker Toolbox, due to an incompatibility with VirtualBox. There is a Windows 10 test build available at github.com/docker/toolbox/releases', mbCriticalError, MB_OK, IDOK);
Result := False;
Exit;
end;
try 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);