コピーファイルダイアログのウィンドウを呼び出します

関数CopyFileDir（sDirName：文字列。

  sToDirName：文字列）：ブール;

ました

  FO：TSHFILEOPSTRUCT。

ベギン

  FillChar（FO、にSizeOf（FO）、0）;

  FOを行います

  ベギン

    WND：= 0;

    wFunc：= FO_COPY。

    pFrom：= PChar型（sDirName +＃0）。

    PTO：= PChar型（sToDirName +＃0）。

    FFLAGS：= FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR。

  終わり;

  結果：=（SHFileOperation（FO）= 0）;

終わり;