Volume Shadow Copy Service

[kopernikus]

Da nirgendwo eine aktuelle Konvertierung der C++-Header für den Volume Shadow Copy Service für Delphi zu finden war, habe ich mich selbst daran gemacht. Basis waren die Header Dateien aus dem Microsoft Software Developement Kit für Windows 7. Dort findet man außerdem ein Beispielprogramm vshadow.exe, das die Verwendung erläutert. Ich habe es ebenfalls nach Delphi konvertiert. Das Ergebnis sind eine Unit mit den erforderlichen Funktionen und Objekten und ein kleines Konsolenprogramm, mit dem man das Ganze testen kann.
Das Programm kann sowohl für 32- als auch für 64-Bit-Windowssysteme kompiliert werden (erfordert mindestens Delpi-XE2).

Alle Quelltexte befinden sich in der angehängten Zip-Datei Vss-s.zip: VssApi.pas, VssUtils und VsToolkit.dpr. Die Zip-Datei VsToolkit.zip enthält die ausführbaren Exe-Dateien und eine kurze Anleitung.

[sh17]

:thumb:

Interesse das hier reinzustellen?

https://github.com/DelphiPraxis

[kopernikus]

Nachfolgend ein Update mit einigen Fehlerkorrekturen und Ergänzungen.

[kopernikus]

Ein aktuelles Update mit einigen Fehlerkorrekturen (u.a. für Windows 10).

[CCRDude]

Vielen Dank für Dein Update!

Ich verwende aktuell eine eigene Übersetzung, aber die ist längst nicht so vollständig, daher hatte ich Deinen Thread hier schon abonniert, als ich ihn das erste Mal sah, komme aber erst jetzt dazu, zu danken! Werde das sicher als Nachschlagmöglichkeit nutzen, wenn ich daran bin, meinen Code weiter für FreePascal fit zu machen.

[sh17]

Wie kann denn ein eigener VSS Writer implementiert werden? Laut Doku muss von der abstrakten Klasse CVssWriter geerbt werden, nur ich hab da grad keine Idee wie das in Delphi funktioniert, falls überhaupt.

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Muss ich dazu die vssapi.lib in obj Dateien überführen?

[RandomDD]

Darf ich eine dumme Frage stellen? Wie benutzt man das Toolkit wenn ich sagen wir mal eine Datei welche gerade benutzt wird kopieren möchte?
Ich versuche aktuell einen anderen Code zu benutzen aber da bekomme ich den Fehler

Zitat:

---------------------------
VSSTest.exe - Einsprungpunkt nicht gefunden
---------------------------
Der Prozedureinsprungpunkt "CreateVssBackupComponents" wurde in der DLL "vssapi.dll" nicht gefunden.
---------------------------
OK
---------------------------

Bei dem Code aus diesem Thema hier kommt folgender Fehler

Zitat:

(Option: Execute binary/script after shadow creation "C:\Users\TestNutzer\Desktop\script.bat")
(Option: Create shadow copy set)

Initializing IVssBackupComponents Interface ...
ERROR : COM call "TVolumeShadowCopy.Initialize:CreateVssBackupCompo nents" failed
.
- Returned HRESULT = $80070005
- Error text: Zugriff verweigert
Exception EOleSysError in module VsToolkit.exe at 001230B7.
TVolumeShadowCopy.Initialize:CreateVssBackupCompon ents (Zugriff verweigert).

script.bat

Zitat:

cp C:\Users\TestNutzer\NTUSER.DAT C:\Users\TestNutzer\Desktop\NTUSER.DAT

[himitsu]

Zitat:

Zitat von RandomDD (Beitrag 1344724)

Ich versuche aktuell einen anderen Code zu benutzen aber da bekomme ich den Fehler

Zitat:

---------------------------
VSSTest.exe - Einsprungpunkt nicht gefunden
---------------------------
Der Prozedureinsprungpunkt "CreateVssBackupComponents" wurde in der DLL "vssapi.dll" nicht gefunden.
---------------------------
OK
---------------------------

Bei dem Code war jemand zu doof und vergaß die Dokumentation zu lesen, als er den zugehörigen Code schrieb (den man uns verheimlicht) und er vergaß seinen Code zu testen. :stupid:
https://msdn.microsoft.com/de-de/lib.../aa381517.aspx

Zitat:

Note: This function is exported as CreateVssBackupComponentsInternal, but you should call CreateVssBackupComponents, not CreateVssBackupComponentsInternal.

Zitat:

Zitat von RandomDD (Beitrag 1344724)

Initializing IVssBackupComponents Interface ...
ERROR : COM call "TVolumeShadowCopy.Initialize:CreateVssBackupCompo nents" failed
.
- Returned HRESULT = $80070005
- Error text: Zugriff verweigert

Du, bzw. das Programm hat wohl nicht das "Recht", zum Ausführen dieser Funktion.
( billige Lösung: mal mit Administratorrechten ausführen? )

[himitsu]

[deleted]

[RandomDD]

Der von mir verwendete Code befindet sich im Anhang. Habe das hier gefunden
https://www.experts-exchange.com/que...or-Delphi.html