🚀 go-pugleaf

> Jak taka klasę użyc w Delphi ?
>
> mmm
>

Metoda "1" ale nie wiem jak uruchomić metody :(
// na podstawie 
//https://sergworks.wordpress.com/2009/12/23/wmi-in-delphi-how-to-enumerate-serial-ports-and-everything-in-windows/
> procedure TForm37.Button3Click(Sender: TObject);
> var
>   Locator:  ISWbemLocator;
>   Services: ISWbemServices;
>   ObjSet:   ISWbemObjectSet;
>   SObject:  ISWbemObject;
>   PropSet:  ISWbemPropertySet;
>   SProp:    ISWbemProperty;
>   sValue:   String;
>   Enum:     IEnumVariant;
>   Value:    Cardinal;
>   TempObj:  OleVariant;
> begin
>   Locator:= CoSWbemLocator.Create;
>   Services:=  Locator.ConnectServer('.', 'root\standardcimv2\embedded', '', '', '','', 0, nil);
>   ObjSet:= Services.InstancesOf('WESL_UserSetting', wbemFlagReturnWhenComplete, nil);
>   Enum:= (ObjSet._NewEnum) as IEnumVariant;
>   while (Enum.Next(1, tempObj, Value) = S_OK) do begin
>     SObject:= IUnknown(tempObj) as SWBemObject;
>     PropSet := SObject.Properties_;
>     SProp:= PropSet.Item('Shell',0);
>     sValue:= SProp.Get_Value;
>     Memo1.Lines.Add(sValue);
>   end;
> end;



Metoda "2"
https://sourceforge.net/projects/glibwmi/?source=typ_redirect
Na podstawie innych klas zaimplementowac to co mi brakuje, sa przykłady 
na uzycie metod

M