ファイルをごみ箱から元に戻すには？ (ID:8431)

名前

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

本文 ごみ箱のパスはNTFSの場合C:\Recyclerですよね。 DirectoryExistsで確認して問題ありませんでした。 ごみ箱内のファイル(ここではsample.txt)を元の位置に戻す場合、どうすればいいのでしょう？以下を試したのですがダメで困ってます。 ごみ箱にあるファイルはどこにあるのでしょう？ sFrom := 'C:\Recycler\sample.txt'; sTo := 'C:\'; test(Form1, sFrom, sTo); procedure test (Handle:HWND; sFrom:string; sTo:string); var fs:SHFILEOPSTRUCT; begin with fs do begin Wnd := Handle; pFrom := PChar(sFrom + #0#0); pTo := PChar(sTo + #0#0); wFunc := FO_MOVE; fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(fs); end;