呵呵,这个可以,那个是否返回0,返回0表示操作正常,非0表示出现错误。
而fAnyOperationsAborted标志是否有取消操作出现,呵呵。
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
F: TShFileOpStruct;
l_FileName: Array[0..128] of Char;
begin
F.Wnd := Handle;
F.wFunc := FO_DELETE; {操作方式}
l_FileName := 'D:/SQL.EXE';
F.pFrom := l_FileName;
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(F) = 0 then
ShowMessage('执行完成')
else
ShowMessage('执行失败');
{看下面这个}
if F.fAnyOperationsAborted = True then
ShowMessage('没有取消')
else
ShowMessage('用户取消了')
end;