System Restore Point löschen

**gernotmann**

Hallo,

ich würde gerne alle System Restore Points löschen und danach einen neuen erstellen.

Den code zum erstellen eines neuen points habe ich gefunden, aber wie ich die alten löschen kann bleibt mir rätselhaft.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  sr: OLEVAriant;

begin

  ScriptControl1.Language := 'VBScript';

  sr := ScriptControl1.Eval('getobject("winmgmts:\\.\root\default:Systemrestore")');

  if sr.CreateRestorePoint('Automatic Restore Point', 0, 100) = 0 then

    ShowMessage('New Restore Point successfully created.')

    // Wiederherstellungspunkt erfolgreich erstellt

  else

    ShowMessage('Restore Point creation Failed!');

    // Wiederherstellungspunkt Erstellung fehlgeschlagen.

end;

Wäre schön wenn jemand Rat weis.

System Restore Point löschen

System Restore Point löschen

Forumregeln