|
下のコードと，次の書き込みのコードと，どちらが難解だと思いますか ?
function TForm1.GetWMIPropSetEnum(ASQLText: WideString): IEnumVariant;
var
LISWbemLocator : ISWbemLocator;
LISWbemService : ISWbemServices;
LSWbemObjectSet : ISWbemObjectSet;
begin
LISWbemLocator := CoSWbemLocator.Create;
LISWbemService := LISWbemLocator.ConnectServer(
'',
'root\cimv2',
'',
'',
'',
'',
0,
nil);
LSWbemObjectSet := LISWbemService.ExecQuery(
'Select * From ' + ASQLText,
'WQL',
wbemFlagReturnImmediately,
nil);
Result := LSWbemObjectSet._NewEnum as IEnumVariant;
end;
|