>>97
スマートなクラスメソッド版のエラー処理ってこんな感じ？
>>96のはユーザーへのある程度のエラー原因の通知処理も含まれてるんだけど
どこがスマートじゃないんだろ。

ShortcutFile1 := TShortcutFile.CheckCreate('C:\無題.lnk');
if not Assigned(ShortcutFile1) then
begin
　ShowMessage('ショートカットファイル(名前は失念)を開けませんでした、
　　原因は不明です。なにしろお馬鹿なTShortcutFile.CheckCreateメソッド
　　がエラーの原因やファイル名を全て捨ててしまったからです。一番考え
　　られるのは指定したファイル(ファイル名はわかりますか？)が存在しない
　　ことですが、他にもアクセス拒否やメモリ不足、内部エラーなどあらゆる
　　原因が考えられますのでがんばって原因を究明して下さい(藁');
　Abone;
end;