Игнорировать сообщение об ошибке обработки ошибок?

Question

Как я могу игнорировать ошибку msgbox, если файл uninstall.vsf не существует при вызове функции LoadVCLStyle_UnInstall в этом коде?

я предположил, что использование блока Попробуйте с пустым исключением будет достаточно, как и в других языках, но это не так.

// Import the LoadVCLStyle function from VclStylesInno.DLL 
procedure LoadVCLStyle_UnInstall(VClStyleFile: String); external 'LoadVCLStyleA@{app}\uninstall.dll stdcall uninstallonly'; 

//E: Occurs when the uninstaller initializes. 
function InitializeUninstall: Boolean; 
begin 

    Result := True; 

    // Initialize the VCL skin style. 
    try 
    LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf')); 
    except 
    finally 
    end; 

end; 

Answer 1

возможность проверить на существование файла заранее уже было упомянуто.

Пользователь TLama отметил, что код в вопросе не является обычным программным кодом pascal, а кодом сценария Inno Setup, и в этом случае мой ответ не применяется. Поскольку следующий текст может представлять интерес для программистов на языке pascal, мы сохраняем его.

Оператор EXCEPT сам по себе не обрабатывает исключение, он отмечает только точку, в которой выполнение программы должно продолжаться после возникновения ошибки. Когда исключение не обрабатывается/улавливается в блоке EXCEPT ... END, оно будет передано на следующий более высокий оператор EXCEPT. (Справочное руководство по Freepacal, глава 17)

Я также не думаю, что TRY ... EXCEPT ... FINALLY ... END будет работать. Либо EXCEPT, либо FINALLY, не оба.

Если вы хотите, чтобы захватить исключение вы должны сделать что-то вроде:

TRY 
    LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf')); 
EXCEPT 
    On EWhateverException DO ...; 
END; 

Если класс исключения этой ошибки не определен в документации, вы можете использовать следующий трюк, чтобы найти класс исключения имя:

TRY 
    LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf')); 
EXCEPT 
    ON Exception DO WriteLn(ExceptObject.ClassName); 
END; 

с ON Exception DO .. вы можете поймать любое исключение, но я не рекомендую использовать этот вариант для определенной программы.