请问如何捕捉这个错误(50分)

以下这段程序当我用try excet 进行捕捉错误时不起作用，请各路高手帮我看看怎回事，谢谢！

var source:string;
ShFileOpStruct: TShFileOpStruct;
zc:boolean;
begin
zc:=true;
source:='//cw/d/KaraSongs/aa.swf';
fillchar(ShFileOpStruct, sizeof(ShFileOpStruct), 0);
with ShFileOpStruct do begin
Wnd:=Form1.Handle;
wFunc:=FO_delete;
pFrom:=PChar(source);
fFlags:=FOF_ALLOWUNDO;
try
ShFileOperation(ShFileOpStruct);
except
ShowMessage('文件拷贝失败');
zc:=false
exit;
end;
if zc=true then label1.caption:='ok';
if zc=false then label1.caption:='no';
end;
end;
end;
jony

应该没问题吧?

你是直接脱离IDE环境运行那个 exe文件的么?如果不是,请脱离IDE测试.
如果是,我不知道.

还有

if zc=true then label1.caption:='ok';
if zc=false then label1.caption:='no';

换成
if zc then label1.caption:='ok' else label1.caption:='no';
可以少打字.

我已脱离ide 是在exe状态下运行，好象是try 不起作用
jony

什么叫try 不起作用?

判断不是否删除成功
jony

哇塞,才半天你又是一个帐号?不理你了

唉，穷则思变，我没分了,只能分几个账户提问，没办法
jony

jonyhuang:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

多人接受答案了。