关于在Delphi中FTP文件传输中碰到的问题求解！

Question

1.在NMFTP空间的onsucess事件中判断
  Case Trans_Type of
    cmdDownload: StatusBar1.SimpleText := 'download sucess';
    cmdUpload: StatusBar1.SimpleText := 'Upload success';
  end;

Answer 1

1.onsucess event
      Case  Trans_Type  of
          cmdDownload:  showmessage('download  sucessful!');
          cmdUpload:  showmessage('upload  successful!');
      end;2: if winexec(...)>31 then showmessage('execute successful!')
else ...