zoukankan      html  css  js  c++  java
  • Delphi 移动目录

     
     
    ----   3、移动目录  

    ----   有了拷贝目录和删除目录的函数,移动目录就变得很简单,只需顺序调用前两个函数即可:  

    function   MoveDir(sDirName:String;
    sToDirName:string):Boolean;
    begin
              if   CopyDir(sDirName,sToDirName)   then
                    if   RemoveDir(sDirName)   then
                          result:=True
                    else
                          result:=false;
    end;

    ///////////////////////////////////////////////
    procedure   TForm1.Button2Click(Sender:   TObject);
    var
        OpStruc:   TSHFileOpStruct;
        frombuf,   tobuf:   Array   [0..128]   of   Char;
    Begin
        FillChar(   frombuf,   Sizeof(frombuf),   0   );
        FillChar(   tobuf,   Sizeof(tobuf),   0   );
        StrPCopy(   frombuf,   'd:\brief\*.* '   );
        StrPCopy(   tobuf,   'd:\temp\brief '   );
        With   OpStruc   DO   Begin
            Wnd:=   Handle;
            wFunc:=   FO_COPY;
            pFrom:=   @frombuf;
            pTo:=@tobuf;
            fFlags:=   FOF_NOCONFIRMATION   or   FOF_RENAMEONCOLLISION;
            fAnyOperationsAborted:=   False;
            hNameMappings:=   Nil;
            lpszProgressTitle:=   Nil;

        end;
        ShFileOperation(   OpStruc   );
    end;
  • 相关阅读:
    [BZOJ3105][CQOI2013]新Nim游戏
    [BZOJ4592][SHOI2015]脑洞治疗仪
    [BZOJ3551][ONTAK2010]Peaks加强版
    [BZOJ2229][ZJOI2011]最小割
    [BZOJ4519][CQOI2016]不同的最小割
    [BZOJ3532][SDOI2014]LIS
    [BZOJ2668][CQOI2012]交换棋子
    [BZOJ3504][CQOI2014]危桥
    Java抽象类
    Java方法覆盖重写
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/2276750.html
Copyright © 2011-2022 走看看