CRÉATION D'UN POINT DE RESTAURATION (ME/XP)

procedure TfrmMain.btbtnCreateClick(Sender: TObject);
begin
  ppRestorePtSpec.llSequenceNumber := 0;
  ppRestorePtSpec.dwEventType := BEGIN_SYSTEM_CHANGE;   //on commence nos changements
  ppRestorePtSpec.dwRestorePtType := APPLICATION_INSTALL;  //type de changement
  CopyMemory(@(ppRestorePtSpec).szDescription, PChar(edtDesc.Text), Length(PChar(edtDesc.Text))); //description du changement
  if SetRestorePoint(ppRestorePtSpec, ppSMgrStatus) then //si tout se passe correctement la condition est verifiée
  begin
    //faîtes les modifications que vous voulez sur le système (installation de driver, modification registre etc..)
    btbtnCreate.Enabled := False; 
    edtDesc.Enabled := False;
    Button1.Enabled := True;
    ShowMessage('Après avoir effectué les modifications, cliquez sur CONCLUR pour sauver le point de restauration.');
  end
  else              //sinon en cas d'erreur...
    Case ppSMgrStatus.nStatus of   //on teste les différents états
      ERROR_SUCCESS: caption := 'Tout s''est bien passé';
      ERROR_BAD_ENVIRONMENT: caption := 'ERROR_BAD_ENVIRONMENT';
      ERROR_DISK_FULL: caption := 'ERROR_DISK_FULL';
      ERROR_FILE_EXISTS: caption := 'ERROR_FILE_EXISTS';
      ERROR_INTERNAL_ERROR: caption := 'ERROR_INTERNAL_ERROR';
      ERROR_INVALID_DATA: caption := 'ERROR_INVALID_DATA';
      ERROR_SERVICE_DISABLED: caption := 'ERROR_SERVICE_DISABLED';
      ERROR_TIMEOUT: caption := 'ERROR_TIMEOUT';
    end;
end;