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.

Hallo,

schau Dir mal die Beispielprozedur
Procedure CreateAndCancelRestorePoint; auf dieser Seite an.
Dort wird das Verfahren (meines Erachtens nach - französisch ist nicht ganz mein Fall) beschrieben. Du musst Dir zum Verständnis aber wahrscheinlich den kompletten Thread reinziehen.

Okay danke
ich kann zwar kein Wort französisch aber ich denke ich hab rausgefunden wie's klappt.

Ich brauche das Scriptcontrol...
 ScriptControl1.Language := 'VBScript'; Ich programmiere in Win32 Delphi Umgebung, wie binde ich nun das TScriptControl in meine Anwendung ein?
Scheint irgenwie bei mir nicht zu klappen.

Dieser Beitrag ist zwar alt. Aber vielleicht stolpert ja jemand über die Suchfunktionen hierüber (so wie ich gerade )
Du musst das ActiveX Control "Microsoft Script Control 1.0" / C:\Windows\System32\msscript.ocx importieren (Komponenten --> Importieren)