[Alloc]

Здравствуйте!

Научите пожалуйста как правильно организовать исключения на примере следующей функции:

Код:

1 2 3 4 5 6 7 8 9 10

function ExtractRes(ResType, ResName, ResNewName : String):Boolean; var   Res: TResourceStream; begin   Result:= False;   Res:=TResourceStream.Create(Hinstance, Resname, Pchar(ResType));   Res.SavetoFile(ResNewName);   if FileExists(ResNewName) then Result:= True else Result:= False;   Res.Free; end;

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

а мне нужно вывести сообщение об этом, допустим:

Код:

1 2 3 4

if ExtractRes('EXEFILE','program', GetTempDir+'program.exe') then    RichEdit.Text:= 'Файл распакован.' else    RichEdit.Text:= 'Файл НЕ распакован.';

В моем случае, если происходит ошибка распаковки ресурса то дальнейший код не выполняется... т.е. сообщения "Файл НЕ распакован." не видно...

Помогите грамотно переделать функцию пожалуйста. Буду вам очень признателен.