Harddisk info

Soegedunktionen virker vist stadig ikke.

Det du skal soege paa i Google er:
  Delphi WMI

Du hante info baade om logiske drev og om fysiske diske via WMI.

Eksempel:

program wmifun2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  Variants,
  WbemScripting_TLB in '..\..\Program Files\Borland\Delphi7\Projects\WbemScripting_TLB.pas';

var
  loc : ISWbemLocator;
  serv : ISWbemServices;
  objset : ISWbemObjectSet;
  enum : IEnumVariant;
  temp : OleVariant;
  val : Cardinal;
  obj : ISWbemObject;
  prop : ISWbemProperty;
  caption, drivetype, size : OleVariant;
  i : integer;

begin
  CoInitialize(nil);
  loc := CoSWbemLocator.Create;
  serv :=  loc.ConnectServer('.', 'root\cimv2', '', '', '','', 0, nil);
  objset := serv.ExecQuery('SELECT * FROM Win32_LogicalDisk', 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
  enum := (objset._NewEnum) as IEnumVariant;
  while (enum.Next(1, temp, val) = S_OK) do begin
    obj := IUnknown(temp) as ISWBemObject;
    prop := obj.Properties_.Item('Caption', 0);
    caption := prop.Get_Value;
    prop := obj.Properties_.Item('DriveType', 0);
    drivetype := prop.Get_Value;
    prop := obj.Properties_.Item('Size', 0);
    size := prop.Get_Value;
    writeln(VarToStr(caption),' ',VarToStr(drivetype),' ',VarToStr(size));
  end;
  CoUninitialize();
end.

Jeg er iøvrigt ikke skrap til COM i C++ og jer er endnu dårligere til COM i Delphi.

COM ?  Hvad er det :-)

Jeg har fundet et eksempel på nettet, men det bruger også WbemScripting_TLB.pas og den har jeg ikke i min Delphi 2009 så vidt jeg kan se.

Jeg fandt ud af at få fat på det typelibrary, så nu har jeg noget via WMI

Så smid lige et svar.

COM er noget som >80% af alle programmoerer bruger, men som <1% af dem forstaar.

:-)

http://en.wikipedia.org/wiki/Component_Object_Model

og et svar

Det lyder som en rimelig procentfordeling :-)