Форум программистов [Powered by Invision Power Board]

Код


function TRestoreViewer.GetRestorePoints: TRestorePoints;
var
  ObjWMIService           : OLEVariant;
  ColItems                : OLEVariant;
  ColItem                 : OLEVariant;
  OEnum                   : IEnumvariant;
//  IValue                  : PLongint;
  CountOfRestorePoint     : Integer;
  I: Integer;
  RestorePoint            : TRestorePoint;
begin
  ObjWMIService := GetWMIObject('winmgmts:\\localhost\root\default');
  ColItems      := objWMIService.ExecQuery('SELECT * FROM SystemRestore','WQL',0);
  OEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;

 if not VarIsNull(ColItems.Count) then
   CountOfRestorePoint := StrToInt(VarToStr(ColItems.Count))
 else
   CountOfRestorePoint := 0;
 if (CountOfRestorePoint = 0) then Exit;

//   SetLength(Result, CountOfRestorePoint);

  I := 0;

  while OEnum.Next(1, colItem, nil {IValue}) = 0 do
  begin
    RestorePoint.Description := ColItem.Description;
    RestorePoint.EventType := EventTypeToStr(ColItem.EventType);
    RestorePoint.SequenceNumber := ColItem.SequenceNumber;
    RestorePoint.CreationTime := WMITimeToStr(ColItem.CreationTime);
    RestorePoint.RestorePointType := RestorePointTypeToStr(ColItem.RestorePointType);

    Result[i] := RestorePoint;
    Inc(i);
  end;
end;

Код


type
  TRestorePoint = record
    Description:string;
    EventType:string;
    SequenceNumber:string;
    CreationTime:string;
    RestorePointType:string;
  end;
 TRestorePoints = array [0..255]of TRestorePoint;

Код


TRestorePoints = array of TRestorePoint;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 MyRestoreViewer:TRestoreViewer;
 AllRestorePoint:TRestorePoints;
 I: Integer;
begin
 ListView1.Items.Clear;

 MyRestoreViewer := TRestoreViewer.Create;
 AllRestorePoint := MyRestoreViewer.GetRestorePoints;

 for I := 0 to High(AllRestorePoint) do
  with ListView1.Items.Add do
  begin
    Caption := AllRestorePoint[i].Description;
    SubItems.Add(AllRestorePoint[i].EventType);
    SubItems.Add(AllRestorePoint[i].SequenceNumber);
    SubItems.Add(AllRestorePoint[i].RestorePointType);
    SubItems.Add(AllRestorePoint[i].CreationTime);
  end;

 MyRestoreViewer.Free;

end;

Цитата(navodri @ 18.7.2018, 08:23

)

for I := 0 to High(AllRestorePoint) do

Код


for I := 0 to Length(AllRestorePoint) do

Код


Incompatible types: String and TRestorePoints

Код


type
  TRestorePoint = record
    Description:string;
    EventType:string;
    SequenceNumber:string;
    CreationTime:string;
    RestorePointType:string;
    RPGetItems: Integer;
  end;
 TRestorePoints = array [0..255]of TRestorePoint;

//В функции function TRestoreViewer.GetRestorePoints: TRestorePoints; добавил
 if not VarIsNull(ColItems.Count) then
   CountOfRestorePoint := StrToInt(VarToStr(ColItems.Count))
 else
   CountOfRestorePoint := 0;
 if (CountOfRestorePoint = 0) then Exit;
  RestorePoint.RPGetItems :=  CountOfRestorePoint;

//а перебор сделал так:
 for I := 0 to AllRestorePoint[0].RPGetItems do