Using Volume Shadow Copy Service (VSS) in Delphi

Does anyone have sample code to copy open (in-use and locked by another program) files using Volume Shadow Copy Service (VSS) API?

There was an article about this in The Delphi Magazine (September 2005). But that code is no longer available and even if it was, it's not current.

I am looking for sample code that works with current version of Volume Shadow Copy service libraries.

From stackoverflow

• there is a digital edition on usb stick of the "The Delphi Magazine". you can order that on their webpage.

  maybe someone has created a torrent of that stick.

  update

  i found that sample here: http://www.google.com/codesearch/p?hl=de#XIdFp1PskBE/VSS/VssAPI.pas