1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

uses
  ..., Variants, WbemScripting_TLB, ActiveX;

function QueryWMI(const QueryClass, QueryProperty: String; AStrings: TStrings): Boolean;
  var
    Locator:     ISWbemLocator;
    Services:    ISWbemServices;
    ObjectSet:   ISWbemObjectSet;
    WMIObject:   ISWbemObject;
    WMIProperty: ISWbemProperty;
    Enum:        IEnumVariant;
    ObjValue:    Cardinal;
    TempObj:     OleVariant;
begin
  Result := FALSE;
  try
    Locator := CoSWbemLocator.Create;
    try
      Services := Locator.ConnectServer('', 'root\cimv2', '', '', '','', 0, NIL);
      if Assigned(Services) then begin
        Services.Security_.ImpersonationLevel := 3;
        ObjectSet := Services.ExecQuery('SELECT * FROM '+QueryClass,
                                        'WQL',
                                         wbemFlagForwardOnly or wbemFlagReturnWhenComplete,
                                         NIL);
        Enum := (ObjectSet._NewEnum) as IEnumVariant;
        while (Enum.Next(1, TempObj, ObjValue) = S_OK) do begin
          try
            WMIObject := IUnknown(TempObj) as ISWBemObject;
          except
            WMIObject := NIL;
          end;
          TempObj := Unassigned; // Interface in TempObj freigeben
          if Assigned(WMIObject) then begin
            WMIProperty := WMIObject.Properties_.Item(QueryProperty, 0);
            if (NOT VarIsNull(WMIProperty.Get_Value)) then
              AStrings.Add(Trim(WMIProperty.Get_Value));
          end;
        end;
        Result := TRUE;
      end;
    finally
      Services := NIL;
      Locator := NIL;
    end;
  except // Exceptions fangen (Wenn WMI nicht verfügbar/installiert ist, gibt´s eine!)
    Result := FALSE;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  QueryWMI('Win32_VideoController','Caption',Memo1.Lines);
end;                    

1:
2:
3:

except // Exceptions fangen (Wenn WMI nicht verfügbar/installiert ist, gibt´s eine!)
    Result := FALSE;
  end;                    

1:
2:
3:
4:
5:
6:

try
  QueryWMI(...);
except
  on E: Exception do
    ShowMessage(E.Message);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

type
  ITest = interface['{5733B32B-BB90-42AC-9DD3-A27E32DF13AA}']
    procedure Execute;
  end;
  TTest = class(TInterfacedObject, ITest)
    constructor Create;
    procedure Execute;
    destructor Destroy; override;
  end;

{ TTest }

constructor TTest.Create;
begin
  inherited;
  writeln('Create');
end;

destructor TTest.Destroy;
begin
  writeln('Destroy');
  inherited;
end;

procedure TTest.Execute;
begin
  raise Exception.Create('adsad');
end;

procedure aha;
var
  a, b: ITest;
begin
  a := nil;
  b := nil;
  try
    a := TTest.Create;
    b := TTest.Create;
    a.Execute;
  except
    writeln('exception');
  end;
end;

begin
  ReportMemoryLeaksOnShutdown := True;
  try
    aha;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  ReadLn;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure aha;
var
  a, b: ITest;
begin
// hack mir a auf was anderes als Nil zu setzen
  asm
    lea eax, dword ptr [ebp-$4]
    inc dword ptr [eax]
  end;

  a := nil; // Exception
  b := nil;

// @IntfClear:
00405EB4 8B10             mov edx,[eax]
00405EB6 85D2             test edx,edx <<< explizit auf nil getestet
00405EB8 740E             jz $00405ec8
00405EBA C70000000000     mov [eax],$00000000
00405EC0 50               push eax
00405EC1 52               push edx
00405EC2 8B02             mov eax,[edx]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

   Servies := nil;
   Locator := CoSWbemLocator.Create;
   try
     Services := Locator.ConnectServer('', 'root\cimv2', '', '', '','', 0, NIL);
   finally
     Locator := nil;
     Services := nil;
   end;

// entsprechend in Objekten:
   Obj2 := nil;
   Obj1 := TObject.Create;
   try
     Obj2 := Locator.ConnectServer('', 'root\cimv2', '', '', '','', 0, NIL);
   finally
     FreeAndNil(Obj1);
     FreeAndNil(Obj2);
   end;