Delphiでボリュームシャドウコピーサービス（VSS）を使用する

Question

ボリュームシャドウコピーサービス（VSS）APIを使用して、開いている（使用中および別のプログラムによってロックされている）ファイルをコピーするサンプルコードはありますか？

The Delphi Magazine（2005年9月）にこれに関する記事がありました。しかし、そのコードは使用できなくなり、たとえ使用できたとしても最新ではありません。

ボリュームシャドウコピーサービスライブラリの現在のバージョンで動作するサンプルコードを探しています。

Answer 1

「The Delphi Magazine」のusbスティックにデジタル版があります。 ウェブページで注文できます。

誰かがそのスティックの急流を作成した可能性があります。

更新

iはそのサンプルをここで見つけました： http://www.google.com/codesearch/ p？hl = de＃XIdFp1PskBE / VSS / VssAPI.pas

上部のリンクは古くなっています。ヘッダーファイルは次の場所にもあります。 http://www.delphipraxis.net/998560-post3.html

Answer 2

ここで動作する（XE2）例が見つかりました： http://www.rathlev-home.de/sources/delphi.html#progsxe2

XE8でコンパイルするには、最新の＆quot; gnugettext.pas＆quot;を取得してください

このパッケージには、ボリュームシャドウコピーを作成するデルファイプログラムのコンパイルに必要なすべてのユニットが含まれています。さらに、サンプルアプリケーションVsToolkitが利用可能です。 XE2とXE8でコンパイルしましたが、うまく動作します...