怎样删除远程目录

Question

才开始学DELPHI,因为程序急于要开发出来,所以很多东西还没看明白
在论坛上看到有人帖出删除目录的方法:
procedure TForm1.SpeedButton7Click(Sender: TObject);  Var
      T:TSHFileOpStruct;
      P:String;
  begin
      P:='trim(edit6.text)';//要删除的任意目录名     ////////////////////////?????????????????????????????????
      With   T   do
      Begin
      Wnd:=0;
      wFunc:=FO_DELETE;
      pFrom:=Pchar(P);
      pTo:=nil;
      fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
      hNameMappings:=nil;
      ListBox1.Items.Add('正在删除文件夹');
      fAnyOperationsAborted:=False;
      End;
      SHFileOperation(T);
      MessageDlg('已删除文件！',mtinformation,[mbok],0);
      GetDir(Edit6.Text);
     end;
 P:='trim(edit6.text)';//要删除的任意目录名     ////////////////////////?????????????????????????????????
想请问下这怎么设置可以得到远程文件,我实在是太菜了在这方面
谢谢回答!

Answer 1

说得是，0分帖，
楼主你还真以为SHFileOperation可以删除远程机子的文件夹么，那这个世界多危险啊。