Zugriff auf Sicherheitscenter von WinXP SP2

[Luckie]

Kann sein, dass Delphi 3 das noch nicht unterstützt, weil zu der Zeit WMI noch nicht unterstützt wurde.

[x000x]

Moin moin,

du könntest nochmal folgendes versuchen:

Delphi-Quellcode:

//...
var
//...
  pFetched     : LongInt;
  unknown      : Variant; //IUnknown;  
  enumUnk      : IEnumUnknown;
//...
begin
//...
      unknown    := SWbemQuery._NewEnum;
      IUnknown(unknown).QueryInterface(IEnumVariant, enumUnk); // unknown.QueryInterface(IEnumVariant, enumUnk);
//...
      szWQL := 'Select * from FirewallProduct';
      SWbemQuery := SWbemCon.ExecQuery(szWQL,'WQL', 48);
      unknown := SWbemQuery._NewEnum;
      IUnknown(unknown).QueryInterface(IEnumVariant, enumUnk); // unknown.QueryInterface(IEnumVariant, enumUnk);
//...

Falls das nicht funktionieren sollte, kannst du das ganze auch über die Unit WbemScripting_TLB realisieren, wie
du zu dieser kommst, findest du bestimmt hier im Forum...

[masc-online]

Zitat:

Zitat von x000x

Moin moin,
du könntest nochmal folgendes versuchen:

Delphi-Quellcode:

IUnknown(unknown).QueryInterface(IEnumVariant, enumUnk);

Hallo Peter,

kaum zu glauben, aber ich habe tatsächlich ewig an der richtigen Lösung vorbei gecastet. :oops: Vielen Dank für die Verhinderung schlafloser Nächte und für den entscheidenden Hinweis.

[hincapie]

Also irgendwie erhalte ich in der folgenden zeile einen Fehler:

Delphi-Quellcode:

      OleCheck(enumUnk.Next( 1, objVar, @pFetched ));

Delphi-Quellcode:

[Fehler] MDIFrame.pas(2449): Undefinierter Bezeichner: 'Next'

Ich benutze D5 Prof.

[x000x]

Moin moin,

Zitat:

Zitat von hincapie

Ich benutze D5 Prof.

ich habe hier aktuell kein Delphi 5, kann morgen erst nach schaun.

[x000x]

Moin moin,

also ich habs heute mit Delphi 5 getestet und der Code von oben fnuktioniert einwandfrei.
(Einfach in ein neues Project kopiert und uses ComObj, ActiveX eingefügt)
Kannst du mal die Deklaration der Variablen enumUnk prüfen? die
sollte vom Typ IEnumUnknown sein.

[hincapie]

Zitat:

Zitat von x000x

Moin moin,

also ich habs heute mit Delphi 5 getestet und der Code von oben fnuktioniert einwandfrei.
(Einfach in ein neues Project kopiert und uses ComObj, ActiveX eingefügt)
Kannst du mal die Deklaration der Variablen enumUnk prüfen? die
sollte vom Typ IEnumUnknown sein.

Hallo,
also ComObj und AktiveX stehen in den uses,
enumUnk ist so deklariert:

Delphi-Quellcode:

enumUnk      : IEnumUnknown;

trotzdem kommt der Fehler 'undefinierter Bezeichner: next'. :?: :(

[x000x]

Moin moin,

also dann stimmt wohl irgendwas mit deiner ActiveX Unit nicht, bzw. IEnumUnknown ist noch irgendwo anners deklariert :gruebel: Wo springt Delphi hin, wenn du
mit der Mause auf IEnumUnknown klickst und dabei [STRG] gedrückt hälst?
Es sollte die Unit ActiveX aufgehen und der Cursor sollte an die Stelle springen:

Delphi-Quellcode:

  {$EXTERNALSYM IEnumUnknown}
  IEnumUnknown = interface(IUnknown)
    ['{00000100-0000-0000-C000-000000000046}']
    function Next(celt: Longint; out elt;
      pceltFetched: PLongint): HResult; stdcall;
    function Skip(celt: Longint): HResult; stdcall;
    function Reset: HResult; stdcall;
    function Clone(out enm: IEnumUnknown): HResult; stdcall;
  end;

Du könntest enumUnk auch mal so deklarieren:

Delphi-Quellcode:

enumUnk      : ActiveX.IEnumUnknown;

Ansonsten hab ich im Moment keine weiteren Ideen woran es liegen könnte...

[hincapie]

Zitat:

Zitat von x000x

Du könntest enumUnk auch mal so deklarieren:

Delphi-Quellcode:

enumUnk      : ActiveX.IEnumUnknown;

Ansonsten hab ich im Moment keine weiteren Ideen woran es liegen könnte...

Das wars, jetzt funktioniert's! :thumb:
Danke! :-D

[peschai]

Hallo,

Bei neueren Delphi versionen sollte noch in uses die Unit "Variants" aufgenommen werden, ansonsten findet er das "VarToStr" nicht ... Könnte jemand das auch noch in dem zugeordneten Beitrag von CalganX in der CodeLibrary ergänzen ?