SHFileOperation関数の連続しようでエラー (ID:14045)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

SHFileOperation関数の使い方が今ひとつ理解できません。
Button2Click()手続きの中から CopyRootin()手続きを呼び出してファイルをコピーします。これは正常にコピーするのですが、コピー終了後引き続きButton2Click()手続きの中でテキストファイルを移動したいのです。
エラーが出るので、wndを０にしてみたり、handleにしてみたりいろいろするのですがだめです。何がおかしいのかご指導下さいませんか。メモリー解放など必要なのでしょうか。
よろしくお願い致します。
procedure CopyRootin(const CopyFileName: string);//コピールーチン
・・・・
 	for i := 2 to num do
・・・・ 
    with  hSHFileOpStruct do        //************* コピーする
    begin
      wnd                := handle;
      wFunc              := FO_COPY;
      pFrom              := PChar(FromFile + #0);
      pTo                := PChar(ToFile + #0);
      fFlags             := FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR；
      fAnyOperationsAborted :=   False;
      hNameMappings      := nil;
      lpszProgressTitle  := nil;
    end;
    SHFileOperation(hSHFileOpStruct);//************* コピーする
  end;
・・・・・	
end;

procedure TfrmMain.Button2Click(Sender: TObject);
・・・・
      CopyRootin(frmMain.ListBox1.Items[0]);  ←手続き呼び出し
・・・・・
      with  foStruct do             //********************
      begin
        wnd                := 0;  ←←←  エラーになる
        wFunc              := FO_MOVE;
        pFrom              := 'C:\Temp\test.txt' + #0;
        pTo                := 'C:\aaa\' + #0;
        fFlags             := FOF_FILESONLY  or  FOF_ALLOWUNDO;
        fAnyOperationsAborted :=   False;
        hNameMappings      := nil;
        lpszProgressTitle  := nil;
      end;
      SHFileOperation(foStruct);    //********************
・・・
end;

←解決時は質問者本人がここをチェックしてください。

戻る