Fixed issues when running in windows 7 which doesn't seem to support padding properly, rejigged everything to be simpler
This commit is contained in:
@@ -54,8 +54,8 @@ function CheckForQBFC(): Boolean;
|
||||
begin
|
||||
if not QBFCChecked then begin
|
||||
QBFCCheckResult := True;
|
||||
if not FileExists(ExpandConstant('{commoncf64}\Intuit\QuickBooks\QbFC15.dll')) then begin
|
||||
QBFCCheckResult := MsgBox('QBFC15 does not appear to have been installed as required prior to QBI.' #13#13 'File: ' + ExpandConstant('{commoncf64}\Intuit\QuickBooks\qbfc15.dll') + ' was not found.'#13#13'Do you want to install QBI anyway?', mbConfirmation, MB_YESNO) = idYes;
|
||||
if not FileExists(ExpandConstant('{commoncf64}\Intuit\QuickBooks\QbFC14.dll')) then begin
|
||||
QBFCCheckResult := MsgBox('QBFC14 does not appear to have been installed as required prior to QBI.' #13#13 'File: ' + ExpandConstant('{commoncf64}\Intuit\QuickBooks\qbfc14.dll') + ' was not found.'#13#13'Do you want to install QBI anyway?', mbConfirmation, MB_YESNO) = idYes;
|
||||
if not QBFCCheckResult then begin
|
||||
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user