Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.11.24;
Скачать: CL | DM;

Вниз

WMI   Найти похожие ветки 

 
Dy1   (2009-07-25 00:29) [0]

полтора года назад поднимался вопрос. Помогите плз, я до сих пор не понимаю ActiveXprogram test;
uses
KOL, WbemScripting_TLBKOL, ActiveX, Variants;

function GetWMIstring2 (wmiHost, wmiClass, wmiProperty : string):string;
var
Locator:  ISWbemLocator;
Services: ISWbemServices;
SObject:  ISWbemObject;
ObjSet:   ISWbemObjectSet;
SProp:    ISWbemProperty;
Enum:     IEnumVariant;
Value:    Cardinal;
TempObj:  OleVariant;
SN: string;
begin
Locator := CoSWbemLocator.Create;
Services :=  Locator.ConnectServer(wmiHost, "root\wmi", "", "", "","", 0, nil);
ObjSet := Services.ExecQuery("SELECT * FROM "+wmiClass, "WQL",
 wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);{здесь у меня ошибка Exception with message ""}
Enum := (ObjSet._NewEnum) as IEnumVariant;
while (Enum.Next(1, TempObj, Value) = S_OK) do
begin
 SObject := IUnknown(tempObj) as ISWBemObject;
 SProp := SObject.Properties_.Item(wmiProperty, 0);
 if VarIsNull(SProp.Get_Value) then
   result := ""
 else
 begin
   SN := SProp.Get_Value;
   result :=  SN;
 end;
end;
{ except
on exception do
 result := "";
end;
}
end;

procedure ButtonClick(Dummy: Pointer; Sender: PControl);
begin
MsgOK(getWMIstring2("","MSAcpi_ThermalZoneTemperature","CurrentTemperature") );
end;

begin
Applet := NewForm(nil,"Test").SetSize(200,200);
with NewButton(Applet,"Temp")^ do
begin
  CenterOnParent;
  OnClick := TOnEvent(MakeMethod(nil,@ButtonClick));
end;
OleInit;
Run(Applet);
OleUnInit;
end.


 
Dy1   (2009-07-28 12:09) [1]

помогите пожалуйста



Страницы: 1 вся ветка

Текущий архив: 2013.11.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
11-1249020271
MTsv DN
2009-07-31 10:04
2013.11.24
Работа с ассоциациями файлов


1-1319001199
hoolio
2011-10-19 09:13
2013.11.24
Функция скриншота кушает память


15-1370338957
Ламот
2013-06-04 13:42
2013.11.24
Как узнать IP камеры?


2-1361087240
jonis_84
2013-02-17 11:47
2013.11.24
Кнопка вернуть


2-1360966465
Anetik
2013-02-16 02:14
2013.11.24
Поиск в таблице