From 9fa109af162b1ecde543a018ea3fc60f591d7bd0 Mon Sep 17 00:00:00 2001 From: Salvador Diaz Fau Date: Wed, 29 Mar 2017 10:55:39 +0200 Subject: [PATCH] Added error message boxes in CheckCEFLibrary --- source/uCEFApplication.pas | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/source/uCEFApplication.pas b/source/uCEFApplication.pas index 7c16cf1a..52aa714c 100644 --- a/source/uCEFApplication.pas +++ b/source/uCEFApplication.pas @@ -483,10 +483,16 @@ begin CEF_SUPPORTED_VERSION_BUILD) then Result := True else - OutputDebugMessage('TCefApplication.CheckCEFLibrary error: Unsupported CEF version !'); + begin + OutputDebugMessage('TCefApplication.CheckCEFLibrary error: Unsupported CEF version !'); + MessageBox(0, PWideChar('Unsupported CEF version !'), PWideChar('CEF4Delphi error'), MB_ICONERROR or MB_OK or MB_TOPMOST); + end; end else - OutputDebugMessage('TCefApplication.CheckCEFLibrary error: CEF binaries missing !'); + begin + OutputDebugMessage('TCefApplication.CheckCEFLibrary error: CEF binaries missing !'); + MessageBox(0, PWideChar('CEF binaries missing !'), PWideChar('CEF4Delphi error'), MB_ICONERROR or MB_OK or MB_TOPMOST); + end; end; function TCefApplication.StartMainProcess : boolean;