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:
2022-07-20 20:21:20 +00:00
parent 63eebfee2f
commit 551db31a91
26 changed files with 175 additions and 185 deletions

View File

@@ -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;