Delphi相談室その５

　　　　　　　　　　　　　　　＿＿＿＿＿
　　　　　 ∧,,∧＿__　　／
　　　／ミ,,ﾟДﾟミ／＼＜　　あってる？
　　／|￣∪∪￣|＼／　＼＿＿＿＿＿
　　　 |＿＿＿＿|／

コンストラクタで例外が発生しても
処理Cを動作せせるためには

begin
　処理A

　try
　　ShortcutFile1 := TShortcutFile.Create('C:\無題.lnk');
　　try
　　　処理B
　　finally
　　　ShortcutFile1.Free;
　　end;
　except
　　on Exception do
　end;

　処理C
end;

こんなのや

begin
　処理A

　try
　　ShortcutFile1 := TShortcutFile.Create('C:\無題.lnk');
　　try
　　　処理B
　　finally
　　　ShortcutFile1.Free;
　　end;
　finally
　　処理C
　end;

end;

こんな風にするのでいいのでしょうか。