Betriebsstunden einer Festplatte auslesen?

[omata]

Dann eben nicht, macht euren Mist doch allein. Habe es nur gut gemeint. Habe aber nun verstanden, das das ein Fehler war.

[hathor]

Kleine Erweiterung: DRIVE INVALID, wenn keine S.M.A.R.T.-Daten gelesen werden können:

Delphi-Quellcode:

.
.
.
procedure TFMain.getDriveInfos(drive: Integer; Infos: TStrings);
var
  i: Integer;
begin
  Infos.Clear;
  ReadSMART;
  if SCOP[drive].attr[0].bAttrID =0 then
  Begin
    Infos.Append('Drive '+ IntToStr(drive)+': DRIVE INVALID');
    Exit;
  End;
  for i := 0 to 255 do
  begin
    if SCOP[drive].attr[i].bAttrID = ATTR_READ_ERROR_RATE then
    begin
      Infos.Append('Drive '+ IntToStr(drive)+':  S.M.A.R.T. DATA'+#13#10);
      Infos.Append(Format(
        'ATTR_READ_ERROR_RATE: %s',
        [HexToStr(SCOP[drive].attr[i].Raw[0])]
        ));
    end;
    if SCOP[drive].attr[i].bAttrID = ATTR_POWER_ON_HRS_COUNT then
    begin
      Infos.Append(Format(
        'ATTR_POWER_ON_HRS_COUNT in hours: %d',
        [SCOP[drive].attr[i].Raw[0] + (SCOP[drive].attr[i].Raw[1] * 256)]
        ));
    end;
    if SCOP[drive].attr[i].bAttrID = ATTR_TEMPERATURE_CELCIUS then
    begin
      Infos.Append(Format(
        'ATTR_TEMPERATURE_CELCIUS: %d',
        [SCOP[drive].attr[i].Raw[0]]
        ));
    end;
  end;
end;

procedure TFMain.Button1Click(Sender: TObject);
begin
  getDriveInfos(0, MeInfo.Lines);
end;

procedure TFMain.Button2Click(Sender: TObject);
begin
  getDriveInfos(1, MeInfo.Lines);
end;

procedure TFMain.Button3Click(Sender: TObject);
begin
  getDriveInfos(2, MeInfo.Lines);
end;

procedure TFMain.Button4Click(Sender: TObject);
begin
  getDriveInfos(3, MeInfo.Lines);
end;

procedure TFMain.FormCreate(Sender: TObject);
begin
  getDriveInfos(0, MeInfo.Lines);
end;

end.

[Bummi]

ich trau mich ja gar nicht mehr, aber dann müßte es
    Infos.Append('Drive '+ IntToStr(drive)+': DRIVE INVALID or Missing administrative rights'); heißen

[hathor]

Zitat von Bummi:

ich trau mich ja gar nicht mehr, aber dann müßte es
    Infos.Append('Drive '+ IntToStr(drive)+': DRIVE INVALID or Missing administrative rights'); heißen

Es geht hier aber nur um ATTR_INVALID = 0; - ob es bei Missing administrative rights
bis hierher kommt, ist zweifelhaft! Dafür braucht man eine andere Abfrage.
-----------------
Ich habe es mit WIN 7 64Bit getestet:
Ohne Aadministrative rights kommt man bis zu dieser Abfrage, was aber irreführend ist, denn diese
S.M.A.R.T.-Abfrage ist mit Aadministrative rights möglich.
Es müsste also VOR dem ATTR_INVALID = 0-Test eine Abfrage nach den Rechten erfolgen, dann ist dieser "Schönheitsfehler weg".

[Bummi]

Du hast Recht, die Admin-Prüfung müßte bei
hSMARTIOCTL[i] := CreateFile(....
stattfinden