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.
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.