开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWbemCli.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：57k
源码类别：

Windows编程

开发平台：

Delphi

JwaWbemCli.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { WBEM Client interface Unit for Object Pascal                                 }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: wbemcli.idl, released Nov 2002. The original Pascal    }
  9. { code is: WbemCli.pas, released April 2002. The initial developer of the      }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaWbemCli;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "wbemcli.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   ActiveX, JwaWinType;
  59. type
  60.   tag_WBEM_GENUS_TYPE = DWORD;
  61.   {$EXTERNALSYM tag_WBEM_GENUS_TYPE}
  62.   WBEM_GENUS_TYPE = tag_WBEM_GENUS_TYPE;
  63.   {$EXTERNALSYM WBEM_GENUS_TYPE}
  64.   TWbemGenusType = WBEM_GENUS_TYPE;
  65.   {$EXTERNALSYM TWbemGenusType}
  67. const
  68.   WBEM_GENUS_CLASS = 1;
  69.   {$EXTERNALSYM WBEM_GENUS_CLASS}
  70.   WBEM_GENUS_INSTANCE = 2;
  71.   {$EXTERNALSYM WBEM_GENUS_INSTANCE}
  73. type
  74.   tag_WBEM_CHANGE_FLAG_TYPE = DWORD;
  75.   {$EXTERNALSYM tag_WBEM_CHANGE_FLAG_TYPE}
  76.   WBEM_CHANGE_FLAG_TYPE = tag_WBEM_CHANGE_FLAG_TYPE;
  77.   {$EXTERNALSYM WBEM_CHANGE_FLAG_TYPE}
  78.   TWbemChangeFlagType = WBEM_CHANGE_FLAG_TYPE;
  79.   {$EXTERNALSYM TWbemChangeFlagType}
  81. const
  82.   WBEM_FLAG_CREATE_OR_UPDATE  = $0;
  83.   {$EXTERNALSYM WBEM_FLAG_CREATE_OR_UPDATE}
  84.   WBEM_FLAG_UPDATE_ONLY       = $1;
  85.   {$EXTERNALSYM WBEM_FLAG_UPDATE_ONLY}
  86.   WBEM_FLAG_CREATE_ONLY       = $2;
  87.   {$EXTERNALSYM WBEM_FLAG_CREATE_ONLY}
  88.   WBEM_FLAG_UPDATE_COMPATIBLE = $0;
  89.   {$EXTERNALSYM WBEM_FLAG_UPDATE_COMPATIBLE}
  90.   WBEM_FLAG_UPDATE_SAFE_MODE  = $20;
  91.   {$EXTERNALSYM WBEM_FLAG_UPDATE_SAFE_MODE}
  92.   WBEM_FLAG_UPDATE_FORCE_MODE = $40;
  93.   {$EXTERNALSYM WBEM_FLAG_UPDATE_FORCE_MODE}
  94.   WBEM_MASK_UPDATE_MODE       = $60;
  95.   {$EXTERNALSYM WBEM_MASK_UPDATE_MODE}
  96.   WBEM_FLAG_ADVISORY          = $10000;
  97.   {$EXTERNALSYM WBEM_FLAG_ADVISORY}
  99. type
  100.   tag_WBEM_GENERIC_FLAG_TYPE = DWORD;
  101.   {$EXTERNALSYM tag_WBEM_GENERIC_FLAG_TYPE}
  102.   WBEM_GENERIC_FLAG_TYPE = tag_WBEM_GENERIC_FLAG_TYPE;
  103.   {$EXTERNALSYM WBEM_GENERIC_FLAG_TYPE}
  104.   TWbemGenericFlagType = WBEM_GENERIC_FLAG_TYPE;
  105.   {$EXTERNALSYM TWbemGenericFlagType}
  107. const
  108.   WBEM_FLAG_RETURN_IMMEDIATELY     = $10;
  109.   {$EXTERNALSYM WBEM_FLAG_RETURN_IMMEDIATELY}
  110.   WBEM_FLAG_RETURN_WBEM_COMPLETE   = $0;
  111.   {$EXTERNALSYM WBEM_FLAG_RETURN_WBEM_COMPLETE}
  112.   WBEM_FLAG_BIDIRECTIONAL          = $0;
  113.   {$EXTERNALSYM WBEM_FLAG_BIDIRECTIONAL}
  114.   WBEM_FLAG_FORWARD_ONLY           = $20;
  115.   {$EXTERNALSYM WBEM_FLAG_FORWARD_ONLY}
  116.   WBEM_FLAG_NO_ERROR_OBJECT        = $40;
  117.   {$EXTERNALSYM WBEM_FLAG_NO_ERROR_OBJECT}
  118.   WBEM_FLAG_RETURN_ERROR_OBJECT    = $0;
  119.   {$EXTERNALSYM WBEM_FLAG_RETURN_ERROR_OBJECT}
  120.   WBEM_FLAG_SEND_STATUS            = $80;
  121.   {$EXTERNALSYM WBEM_FLAG_SEND_STATUS}
  122.   WBEM_FLAG_DONT_SEND_STATUS       = $0;
  123.   {$EXTERNALSYM WBEM_FLAG_DONT_SEND_STATUS}
  124.   WBEM_FLAG_ENSURE_LOCATABLE       = $100;
  125.   {$EXTERNALSYM WBEM_FLAG_ENSURE_LOCATABLE}
  126.   WBEM_FLAG_DIRECT_READ            = $200;
  127.   {$EXTERNALSYM WBEM_FLAG_DIRECT_READ}
  128.   WBEM_FLAG_SEND_ONLY_SELECTED     = $0;
  129.   {$EXTERNALSYM WBEM_FLAG_SEND_ONLY_SELECTED}
  130.   WBEM_RETURN_WHEN_COMPLETE        = $0;
  131.   {$EXTERNALSYM WBEM_RETURN_WHEN_COMPLETE}
  132.   WBEM_RETURN_IMMEDIATELY          = $10;
  133.   {$EXTERNALSYM WBEM_RETURN_IMMEDIATELY}
  134.   WBEM_MASK_RESERVED_FLAGS         = $1f000;
  135.   {$EXTERNALSYM WBEM_MASK_RESERVED_FLAGS}
  136.   WBEM_FLAG_USE_AMENDED_QUALIFIERS = $20000;
  137.   {$EXTERNALSYM WBEM_FLAG_USE_AMENDED_QUALIFIERS}
  138.   WBEM_FLAG_STRONG_VALIDATION      = $100000;
  139.   {$EXTERNALSYM WBEM_FLAG_STRONG_VALIDATION}
  141. type
  142.   tag_WBEM_STATUS_TYPE = DWORD;
  143.   {$EXTERNALSYM tag_WBEM_STATUS_TYPE}
  144.   WBEM_STATUS_TYPE = tag_WBEM_STATUS_TYPE;
  145.   {$EXTERNALSYM WBEM_STATUS_TYPE}
  146.   TWbemStatusType = WBEM_STATUS_TYPE;
  147.   {$EXTERNALSYM TWbemStatusType}
  149. const
  150.   WBEM_STATUS_COMPLETE     = 0;
  151.   {$EXTERNALSYM WBEM_STATUS_COMPLETE}
  152.   WBEM_STATUS_REQUIREMENTS = 1;
  153.   {$EXTERNALSYM WBEM_STATUS_REQUIREMENTS}
  154.   WBEM_STATUS_PROGRESS     = 2;
  155.   {$EXTERNALSYM WBEM_STATUS_PROGRESS}
  157. type
  158.   tag_WBEM_TIMEOUT_TYPE = DWORD;
  159.   {$EXTERNALSYM tag_WBEM_TIMEOUT_TYPE}
  160.   WBEM_TIMEOUT_TYPE = tag_WBEM_TIMEOUT_TYPE;
  161.   {$EXTERNALSYM WBEM_TIMEOUT_TYPE}
  162.   TWbemTimeoutType = WBEM_TIMEOUT_TYPE;
  163.   {$EXTERNALSYM TWbemTimeoutType}
  165. const
  166.   WBEM_NO_WAIT  = 0;
  167.   {$EXTERNALSYM WBEM_NO_WAIT}
  168.   WBEM_INFINITE = DWORD($ffffffff);
  169.   {$EXTERNALSYM WBEM_INFINITE}
  171. type
  172.   tag_WBEM_CONDITION_FLAG_TYPE = DWORD;
  173.   {$EXTERNALSYM tag_WBEM_CONDITION_FLAG_TYPE}
  174.   WBEM_CONDITION_FLAG_TYPE = tag_WBEM_CONDITION_FLAG_TYPE;
  175.   {$EXTERNALSYM WBEM_CONDITION_FLAG_TYPE}
  176.   TWbemConditionFlagType = WBEM_CONDITION_FLAG_TYPE;
  177.   {$EXTERNALSYM TWbemConditionFlagType}
  179. const
  180.   WBEM_FLAG_ALWAYS                    = $0;
  181.   {$EXTERNALSYM WBEM_FLAG_ALWAYS}
  182.   WBEM_FLAG_ONLY_IF_TRUE              = $1;
  183.   {$EXTERNALSYM WBEM_FLAG_ONLY_IF_TRUE}
  184.   WBEM_FLAG_ONLY_IF_FALSE             = $2;
  185.   {$EXTERNALSYM WBEM_FLAG_ONLY_IF_FALSE}
  186.   WBEM_FLAG_ONLY_IF_IDENTICAL         = $3;
  187.   {$EXTERNALSYM WBEM_FLAG_ONLY_IF_IDENTICAL}
  188.   WBEM_MASK_PRIMARY_CONDITION         = $3;
  189.   {$EXTERNALSYM WBEM_MASK_PRIMARY_CONDITION}
  190.   WBEM_FLAG_KEYS_ONLY                 = $4;
  191.   {$EXTERNALSYM WBEM_FLAG_KEYS_ONLY}
  192.   WBEM_FLAG_REFS_ONLY                 = $8;
  193.   {$EXTERNALSYM WBEM_FLAG_REFS_ONLY}
  194.   WBEM_FLAG_LOCAL_ONLY                = $10;
  195.   {$EXTERNALSYM WBEM_FLAG_LOCAL_ONLY}
  196.   WBEM_FLAG_PROPAGATED_ONLY           = $20;
  197.   {$EXTERNALSYM WBEM_FLAG_PROPAGATED_ONLY}
  198.   WBEM_FLAG_SYSTEM_ONLY               = $30;
  199.   {$EXTERNALSYM WBEM_FLAG_SYSTEM_ONLY}
  200.   WBEM_FLAG_NONSYSTEM_ONLY            = $40;
  201.   {$EXTERNALSYM WBEM_FLAG_NONSYSTEM_ONLY}
  202.   WBEM_MASK_CONDITION_ORIGIN          = $70;
  203.   {$EXTERNALSYM WBEM_MASK_CONDITION_ORIGIN}
  204.   WBEM_FLAG_CLASS_OVERRIDES_ONLY      = $100;
  205.   {$EXTERNALSYM WBEM_FLAG_CLASS_OVERRIDES_ONLY}
  206.   WBEM_FLAG_CLASS_LOCAL_AND_OVERRIDES = $200;
  207.   {$EXTERNALSYM WBEM_FLAG_CLASS_LOCAL_AND_OVERRIDES}
  208.   WBEM_MASK_CLASS_CONDITION           = $300;
  209.   {$EXTERNALSYM WBEM_MASK_CLASS_CONDITION}
  211. type
  212.   tag_WBEM_FLAVOR_TYPE = DWORD;
  213.   {$EXTERNALSYM tag_WBEM_FLAVOR_TYPE}
  214.   WBEM_FLAVOR_TYPE = tag_WBEM_FLAVOR_TYPE;
  215.   {$EXTERNALSYM WBEM_FLAVOR_TYPE}
  216.   TWbemFlavorType = WBEM_FLAVOR_TYPE;
  217.   {$EXTERNALSYM TWbemFlavorType}
  219. const
  220.   WBEM_FLAVOR_DONT_PROPAGATE    = $0;
  221.   {$EXTERNALSYM WBEM_FLAVOR_DONT_PROPAGATE}
  222.   WBEM_FLAVOR_FLAG_PROPAGATE_TO_INSTANCE      = $1;
  223.   {$EXTERNALSYM WBEM_FLAVOR_FLAG_PROPAGATE_TO_INSTANCE}
  224.   WBEM_FLAVOR_FLAG_PROPAGATE_TO_DERIVED_CLASS = $2;
  225.   {$EXTERNALSYM WBEM_FLAVOR_FLAG_PROPAGATE_TO_DERIVED_CLASS}
  226.   WBEM_FLAVOR_MASK_PROPAGATION  = $f;
  227.   {$EXTERNALSYM WBEM_FLAVOR_MASK_PROPAGATION}
  228.   WBEM_FLAVOR_OVERRIDABLE       = $0;
  229.   {$EXTERNALSYM WBEM_FLAVOR_OVERRIDABLE}
  230.   WBEM_FLAVOR_NOT_OVERRIDABLE   = $10;
  231.   {$EXTERNALSYM WBEM_FLAVOR_NOT_OVERRIDABLE}
  232.   WBEM_FLAVOR_MASK_PERMISSIONS  = $10;
  233.   {$EXTERNALSYM WBEM_FLAVOR_MASK_PERMISSIONS}
  234.   WBEM_FLAVOR_ORIGIN_LOCAL      = $0;
  235.   {$EXTERNALSYM WBEM_FLAVOR_ORIGIN_LOCAL}
  236.   WBEM_FLAVOR_ORIGIN_PROPAGATED = $20;
  237.   {$EXTERNALSYM WBEM_FLAVOR_ORIGIN_PROPAGATED}
  238.   WBEM_FLAVOR_ORIGIN_SYSTEM     = $40;
  239.   {$EXTERNALSYM WBEM_FLAVOR_ORIGIN_SYSTEM}
  240.   WBEM_FLAVOR_MASK_ORIGIN       = $60;
  241.   {$EXTERNALSYM WBEM_FLAVOR_MASK_ORIGIN}
  242.   WBEM_FLAVOR_NOT_AMENDED       = $0;
  243.   {$EXTERNALSYM WBEM_FLAVOR_NOT_AMENDED}
  244.   WBEM_FLAVOR_AMENDED           = $80;
  245.   {$EXTERNALSYM WBEM_FLAVOR_AMENDED}
  246.   WBEM_FLAVOR_MASK_AMENDED      = $80;
  247.   {$EXTERNALSYM WBEM_FLAVOR_MASK_AMENDED}
  249. type
  250.   tag_WBEM_QUERY_FLAG_TYPE = DWORD;
  251.   {$EXTERNALSYM tag_WBEM_QUERY_FLAG_TYPE}
  252.   WBEM_QUERY_FLAG_TYPE = tag_WBEM_QUERY_FLAG_TYPE;
  253.   {$EXTERNALSYM WBEM_QUERY_FLAG_TYPE}
  254.   TWbemQueryFlagType = WBEM_QUERY_FLAG_TYPE;
  255.   {$EXTERNALSYM TWbemQueryFlagType}
  257. const
  258.   WBEM_FLAG_DEEP      = 0;
  259.   {$EXTERNALSYM WBEM_FLAG_DEEP}
  260.   WBEM_FLAG_SHALLOW   = 1;
  261.   {$EXTERNALSYM WBEM_FLAG_SHALLOW}
  262.   WBEM_FLAG_PROTOTYPE = 2;
  263.   {$EXTERNALSYM WBEM_FLAG_PROTOTYPE}
  265. type
  266.   tag_WBEM_SECURITY_FLAGS = DWORD;
  267.   {$EXTERNALSYM tag_WBEM_SECURITY_FLAGS}
  268.   WBEM_SECURITY_FLAGS = tag_WBEM_SECURITY_FLAGS;
  269.   {$EXTERNALSYM WBEM_SECURITY_FLAGS}
  270.   TWbemSecurityFlags = WBEM_SECURITY_FLAGS;
  271.   {$EXTERNALSYM TWbemSecurityFlags}
  273. const
  274.   WBEM_ENABLE            = $1;
  275.   {$EXTERNALSYM WBEM_ENABLE}
  276.   WBEM_METHOD_EXECUTE    = $2;
  277.   {$EXTERNALSYM WBEM_METHOD_EXECUTE}
  278.   WBEM_FULL_WRITE_REP    = $4;
  279.   {$EXTERNALSYM WBEM_FULL_WRITE_REP}
  280.   WBEM_PARTIAL_WRITE_REP = $8;
  281.   {$EXTERNALSYM WBEM_PARTIAL_WRITE_REP}
  282.   WBEM_WRITE_PROVIDER    = $10;
  283.   {$EXTERNALSYM WBEM_WRITE_PROVIDER}
  284.   WBEM_REMOTE_ACCESS     = $20;
  285.   {$EXTERNALSYM WBEM_REMOTE_ACCESS}
  286.   WBEM_RIGHT_SUBSCRIBE   = $40;
  287.   {$EXTERNALSYM WBEM_RIGHT_SUBSCRIBE}
  288.   WBEM_RIGHT_PUBLISH     = $80;
  289.   {$EXTERNALSYM WBEM_RIGHT_PUBLISH}
  291. type
  292.   tag_WBEM_LIMITATION_FLAG_TYPE = DWORD;
  293.   {$EXTERNALSYM tag_WBEM_LIMITATION_FLAG_TYPE}
  294.   WBEM_LIMITATION_FLAG_TYPE = tag_WBEM_LIMITATION_FLAG_TYPE;
  295.   {$EXTERNALSYM WBEM_LIMITATION_FLAG_TYPE}
  296.   TWbemLimitationFlagType = WBEM_LIMITATION_FLAG_TYPE;
  297.   {$EXTERNALSYM TWbemLimitationFlagType}
  299. const
  300.   WBEM_FLAG_EXCLUDE_OBJECT_QUALIFIERS   = $10;
  301.   {$EXTERNALSYM WBEM_FLAG_EXCLUDE_OBJECT_QUALIFIERS}
  302.   WBEM_FLAG_EXCLUDE_PROPERTY_QUALIFIERS = $20;
  303.   {$EXTERNALSYM WBEM_FLAG_EXCLUDE_PROPERTY_QUALIFIERS}
  305. type
  306.   tag_WBEM_TEXT_FLAG_TYPE = DWORD;
  307.   {$EXTERNALSYM tag_WBEM_TEXT_FLAG_TYPE}
  308.   WBEM_TEXT_FLAG_TYPE = tag_WBEM_TEXT_FLAG_TYPE;
  309.   {$EXTERNALSYM WBEM_TEXT_FLAG_TYPE}
  310.   TWbemTextFlagType = WBEM_TEXT_FLAG_TYPE;
  311.   {$EXTERNALSYM TWbemTextFlagType}
  313. const
  314.   WBEM_FLAG_NO_FLAVORS = $1;
  315.   {$EXTERNALSYM WBEM_FLAG_NO_FLAVORS}
  317. type
  318.   tag_WBEM_COMPARISON_FLAG = DWORD;
  319.   {$EXTERNALSYM tag_WBEM_COMPARISON_FLAG}
  320.   WBEM_COMPARISON_FLAG = tag_WBEM_COMPARISON_FLAG;
  321.   {$EXTERNALSYM WBEM_COMPARISON_FLAG}
  322.   TWbemComparisonFlag = WBEM_COMPARISON_FLAG;
  323.   {$EXTERNALSYM TWbemComparisonFlag}
  325. const
  326.   WBEM_COMPARISON_INCLUDE_ALL     = $0;
  327.   {$EXTERNALSYM WBEM_COMPARISON_INCLUDE_ALL}
  328.   WBEM_FLAG_IGNORE_QUALIFIERS     = $1;
  329.   {$EXTERNALSYM WBEM_FLAG_IGNORE_QUALIFIERS}
  330.   WBEM_FLAG_IGNORE_OBJECT_SOURCE  = $2;
  331.   {$EXTERNALSYM WBEM_FLAG_IGNORE_OBJECT_SOURCE}
  332.   WBEM_FLAG_IGNORE_DEFAULT_VALUES = $4;
  333.   {$EXTERNALSYM WBEM_FLAG_IGNORE_DEFAULT_VALUES}
  334.   WBEM_FLAG_IGNORE_CLASS          = $8;
  335.   {$EXTERNALSYM WBEM_FLAG_IGNORE_CLASS}
  336.   WBEM_FLAG_IGNORE_CASE           = $10;
  337.   {$EXTERNALSYM WBEM_FLAG_IGNORE_CASE}
  338.   WBEM_FLAG_IGNORE_FLAVOR         = $20;
  339.   {$EXTERNALSYM WBEM_FLAG_IGNORE_FLAVOR}
  341. type
  342.   tag_WBEM_LOCKING = DWORD;
  343.   {$EXTERNALSYM tag_WBEM_LOCKING}
  344.   WBEM_LOCKING_FLAG_TYPE = tag_WBEM_LOCKING;
  345.   {$EXTERNALSYM WBEM_LOCKING_FLAG_TYPE}
  346.   TWbemLockingFlagType = WBEM_LOCKING_FLAG_TYPE;
  347.   {$EXTERNALSYM TWbemLockingFlagType}
  349. const
  350.   WBEM_FLAG_ALLOW_READ = $1;
  351.   {$EXTERNALSYM WBEM_FLAG_ALLOW_READ}
  353. type
  354.   tag_CIMTYPE_ENUMERATION = DWORD;
  355.   {$EXTERNALSYM tag_CIMTYPE_ENUMERATION}
  356.   CIMTYPE_ENUMERATION = tag_CIMTYPE_ENUMERATION;
  357.   {$EXTERNALSYM CIMTYPE_ENUMERATION}
  358.   TCimTypeEnumeration = CIMTYPE_ENUMERATION;
  359.   {$EXTERNALSYM TCimTypeEnumeration}
  361. const
  362.   CIM_ILLEGAL    = $fff;
  363.   {$EXTERNALSYM CIM_ILLEGAL}
  364.   CIM_EMPTY      = 0;
  365.   {$EXTERNALSYM CIM_EMPTY}
  366.   CIM_SINT8      = 16;
  367.   {$EXTERNALSYM CIM_SINT8}
  368.   CIM_UINT8      = 17;
  369.   {$EXTERNALSYM CIM_UINT8}
  370.   CIM_SINT16     = 2;
  371.   {$EXTERNALSYM CIM_SINT16}
  372.   CIM_UINT16     = 18;
  373.   {$EXTERNALSYM CIM_UINT16}
  374.   CIM_SINT32     = 3;
  375.   {$EXTERNALSYM CIM_SINT32}
  376.   CIM_UINT32     = 19;
  377.   {$EXTERNALSYM CIM_UINT32}
  378.   CIM_SINT64     = 20;
  379.   {$EXTERNALSYM CIM_SINT64}
  380.   CIM_UINT64     = 21;
  381.   {$EXTERNALSYM CIM_UINT64}
  382.   CIM_REAL32     = 4;
  383.   {$EXTERNALSYM CIM_REAL32}
  384.   CIM_REAL64     = 5;
  385.   {$EXTERNALSYM CIM_REAL64}
  386.   CIM_BOOLEAN    = 11;
  387.   {$EXTERNALSYM CIM_BOOLEAN}
  388.   CIM_STRING     = 8;
  389.   {$EXTERNALSYM CIM_STRING}
  390.   CIM_DATETIME   = 101;
  391.   {$EXTERNALSYM CIM_DATETIME}
  392.   CIM_REFERENCE  = 102;
  393.   {$EXTERNALSYM CIM_REFERENCE}
  394.   CIM_CHAR16     = 103;
  395.   {$EXTERNALSYM CIM_CHAR16}
  396.   CIM_OBJECT     = 13;
  397.   {$EXTERNALSYM CIM_OBJECT}
  398.   CIM_FLAG_ARRAY = $2000;
  399.   {$EXTERNALSYM CIM_FLAG_ARRAY}
  401. type
  402.   tag_WBEM_BACKUP_RESTORE_FLAGS = DWORD;
  403.   {$EXTERNALSYM tag_WBEM_BACKUP_RESTORE_FLAGS}
  404.   WBEM_BACKUP_RESTORE_FLAGS = tag_WBEM_BACKUP_RESTORE_FLAGS;
  405.   {$EXTERNALSYM WBEM_BACKUP_RESTORE_FLAGS}
  406.   TWbemBackupRestoreFlags = WBEM_BACKUP_RESTORE_FLAGS;
  407.   {$EXTERNALSYM TWbemBackupRestoreFlags}
  409. const
  410.   WBEM_FLAG_BACKUP_RESTORE_DEFAULT        = 0;
  411.   {$EXTERNALSYM WBEM_FLAG_BACKUP_RESTORE_DEFAULT}
  412.   WBEM_FLAG_BACKUP_RESTORE_FORCE_SHUTDOWN = 1;
  413.   {$EXTERNALSYM WBEM_FLAG_BACKUP_RESTORE_FORCE_SHUTDOWN}
  415. type
  416.   tag_WBEM_REFRESHER_FLAGS = DWORD;
  417.   {$EXTERNALSYM tag_WBEM_REFRESHER_FLAGS}
  418.   WBEM_REFRESHER_FLAGS = tag_WBEM_REFRESHER_FLAGS;
  419.   {$EXTERNALSYM WBEM_REFRESHER_FLAGS}
  420.   TWbemRefresherFlags = WBEM_REFRESHER_FLAGS;
  421.   {$EXTERNALSYM TWbemRefresherFlags}
  423. const
  424.   WBEM_FLAG_REFRESH_AUTO_RECONNECT    = 0;
  425.   {$EXTERNALSYM WBEM_FLAG_REFRESH_AUTO_RECONNECT}
  426.   WBEM_FLAG_REFRESH_NO_AUTO_RECONNECT = 1;
  427.   {$EXTERNALSYM WBEM_FLAG_REFRESH_NO_AUTO_RECONNECT}
  429. type
  430.   tag_WBEM_SHUTDOWN_FLAGS = DWORD;
  431.   {$EXTERNALSYM tag_WBEM_SHUTDOWN_FLAGS}
  432.   WBEM_SHUTDOWN_FLAGS = tag_WBEM_SHUTDOWN_FLAGS;
  433.   {$EXTERNALSYM WBEM_SHUTDOWN_FLAGS}
  434.   TWbemShutdownFlags = WBEM_SHUTDOWN_FLAGS;
  435.   {$EXTERNALSYM TWbemShutdownFlags}
  437. const
  438.   WBEM_SHUTDOWN_UNLOAD_COMPONENT = 1;
  439.   {$EXTERNALSYM WBEM_SHUTDOWN_UNLOAD_COMPONENT}
  440.   WBEM_SHUTDOWN_WMI              = 2;
  441.   {$EXTERNALSYM WBEM_SHUTDOWN_WMI}
  442.   WBEM_SHUTDOWN_OS               = 3;
  443.   {$EXTERNALSYM WBEM_SHUTDOWN_OS}
  445. type
  446.   CIMTYPE = LONG;
  447.   {$EXTERNALSYM CIMTYPE}
  449. type
  450.   tag_WBEMSTATUS_FORMAT = DWORD;
  451.   {$EXTERNALSYM tag_WBEMSTATUS_FORMAT}
  452.   WBEMSTATUS_FORMAT = tag_WBEMSTATUS_FORMAT;
  453.   {$EXTERNALSYM WBEMSTATUS_FORMAT}
  454.   TWbemStatusFormat = WBEMSTATUS_FORMAT;
  455.   {$EXTERNALSYM TWbemStatusFormat}
  457. const
  458.   WBEMSTATUS_FORMAT_NEWLINE    = 0;
  459.   {$EXTERNALSYM WBEMSTATUS_FORMAT_NEWLINE}
  460.   WBEMSTATUS_FORMAT_NO_NEWLINE = 1;
  461.   {$EXTERNALSYM WBEMSTATUS_FORMAT_NO_NEWLINE}
  463. type
  464.   tag_WBEM_LIMITS = DWORD;
  465.   {$EXTERNALSYM tag_WBEM_LIMITS}
  466.   WBEM_LIMITS = tag_WBEM_LIMITS;
  467.   {$EXTERNALSYM WBEM_LIMITS}
  468.   TWbemLimits = WBEM_LIMITS;
  470. const
  471.   WBEM_MAX_IDENTIFIER      = $1000;
  472.   {$EXTERNALSYM WBEM_MAX_IDENTIFIER}
  473.   WBEM_MAX_QUERY           = $4000;
  474.   {$EXTERNALSYM WBEM_MAX_QUERY}
  475.   WBEM_MAX_PATH            = $2000;
  476.   {$EXTERNALSYM WBEM_MAX_PATH}
  477.   WBEM_MAX_OBJECT_NESTING  = 64;
  478.   {$EXTERNALSYM WBEM_MAX_OBJECT_NESTING}
  479.   WBEM_MAX_USER_PROPERTIES = 1024;
  480.   {$EXTERNALSYM WBEM_MAX_USER_PROPERTIES}
  483. type
  484.   tag_WBEMSTATUS = DWORD;
  485.   {$EXTERNALSYM tag_WBEMSTATUS}
  486.   WBEMSTATUS = tag_WBEMSTATUS;
  487.   {$EXTERNALSYM WBEMSTATUS}
  488.   TWbemStatus = WBEMSTATUS;
  489.   {$EXTERNALSYM TWbemStatus}
  491. const
  492.   WBEM_NO_ERROR = 0;
  493.   {$EXTERNALSYM WBEM_NO_ERROR}
  494.   WBEM_S_NO_ERROR = 0;
  495.   {$EXTERNALSYM WBEM_S_NO_ERROR}
  496.   WBEM_S_SAME = 0;
  497.   {$EXTERNALSYM WBEM_S_SAME}
  498.   WBEM_S_FALSE = 1;
  499.   {$EXTERNALSYM WBEM_S_FALSE}
  500.   WBEM_S_ALREADY_EXISTS = DWORD($40001);
  501.   {$EXTERNALSYM WBEM_S_ALREADY_EXISTS}
  502.   WBEM_S_RESET_TO_DEFAULT = DWORD($40002);
  503.   {$EXTERNALSYM WBEM_S_RESET_TO_DEFAULT}
  504.   WBEM_S_DIFFERENT = DWORD($40003);
  505.   {$EXTERNALSYM WBEM_S_DIFFERENT}
  506.   WBEM_S_TIMEDOUT = DWORD($40004);
  507.   {$EXTERNALSYM WBEM_S_TIMEDOUT}
  508.   WBEM_S_NO_MORE_DATA = DWORD($40005);
  509.   {$EXTERNALSYM WBEM_S_NO_MORE_DATA}
  510.   WBEM_S_OPERATION_CANCELLED = DWORD($40006);
  511.   {$EXTERNALSYM WBEM_S_OPERATION_CANCELLED}
  512.   WBEM_S_PENDING = DWORD($40007);
  513.   {$EXTERNALSYM WBEM_S_PENDING}
  514.   WBEM_S_DUPLICATE_OBJECTS = DWORD($40008);
  515.   {$EXTERNALSYM WBEM_S_DUPLICATE_OBJECTS}
  516.   WBEM_S_ACCESS_DENIED = DWORD($40009);
  517.   {$EXTERNALSYM WBEM_S_ACCESS_DENIED}
  518.   WBEM_S_PARTIAL_RESULTS = DWORD($40010);
  519.   {$EXTERNALSYM WBEM_S_PARTIAL_RESULTS}
  520.   WBEM_S_SOURCE_NOT_AVAILABLE = DWORD($40017);
  521.   {$EXTERNALSYM WBEM_S_SOURCE_NOT_AVAILABLE}
  522.   WBEM_E_FAILED = DWORD($80041001);
  523.   {$EXTERNALSYM WBEM_E_FAILED}
  524.   WBEM_E_NOT_FOUND = DWORD($80041002);
  525.   {$EXTERNALSYM WBEM_E_NOT_FOUND}
  526.   WBEM_E_ACCESS_DENIED = DWORD($80041003);
  527.   {$EXTERNALSYM WBEM_E_ACCESS_DENIED}
  528.   WBEM_E_PROVIDER_FAILURE = DWORD($80041004);
  529.   {$EXTERNALSYM WBEM_E_PROVIDER_FAILURE}
  530.   WBEM_E_TYPE_MISMATCH = DWORD($80041005);
  531.   {$EXTERNALSYM WBEM_E_TYPE_MISMATCH}
  532.   WBEM_E_OUT_OF_MEMORY = DWORD($80041006);
  533.   {$EXTERNALSYM WBEM_E_OUT_OF_MEMORY}
  534.   WBEM_E_INVALID_CONTEXT = DWORD($80041007);
  535.   {$EXTERNALSYM WBEM_E_INVALID_CONTEXT}
  536.   WBEM_E_INVALID_PARAMETER = DWORD($80041008);
  537.   {$EXTERNALSYM WBEM_E_INVALID_PARAMETER}
  538.   WBEM_E_NOT_AVAILABLE = DWORD($80041009);
  539.   {$EXTERNALSYM WBEM_E_NOT_AVAILABLE}
  540.   WBEM_E_CRITICAL_ERROR = DWORD($8004100a);
  541.   {$EXTERNALSYM WBEM_E_CRITICAL_ERROR}
  542.   WBEM_E_INVALID_STREAM = DWORD($8004100b);
  543.   {$EXTERNALSYM WBEM_E_INVALID_STREAM}
  544.   WBEM_E_NOT_SUPPORTED = DWORD($8004100c);
  545.   {$EXTERNALSYM WBEM_E_NOT_SUPPORTED}
  546.   WBEM_E_INVALID_SUPERCLASS = DWORD($8004100d);
  547.   {$EXTERNALSYM WBEM_E_INVALID_SUPERCLASS}
  548.   WBEM_E_INVALID_NAMESPACE = DWORD($8004100e);
  549.   {$EXTERNALSYM WBEM_E_INVALID_NAMESPACE}
  550.   WBEM_E_INVALID_OBJECT = DWORD($8004100f);
  551.   {$EXTERNALSYM WBEM_E_INVALID_OBJECT}
  552.   WBEM_E_INVALID_CLASS = DWORD($80041010);
  553.   {$EXTERNALSYM WBEM_E_INVALID_CLASS}
  554.   WBEM_E_PROVIDER_NOT_FOUND = DWORD($80041011);
  555.   {$EXTERNALSYM WBEM_E_PROVIDER_NOT_FOUND}
  556.   WBEM_E_INVALID_PROVIDER_REGISTRATION = DWORD($80041012);
  557.   {$EXTERNALSYM WBEM_E_INVALID_PROVIDER_REGISTRATION}
  558.   WBEM_E_PROVIDER_LOAD_FAILURE = DWORD($80041013);
  559.   {$EXTERNALSYM WBEM_E_PROVIDER_LOAD_FAILURE}
  560.   WBEM_E_INITIALIZATION_FAILURE = DWORD($80041014);
  561.   {$EXTERNALSYM WBEM_E_INITIALIZATION_FAILURE}
  562.   WBEM_E_TRANSPORT_FAILURE = DWORD($80041015);
  563.   {$EXTERNALSYM WBEM_E_TRANSPORT_FAILURE}
  564.   WBEM_E_INVALID_OPERATION = DWORD($80041016);
  565.   {$EXTERNALSYM WBEM_E_INVALID_OPERATION}
  566.   WBEM_E_INVALID_QUERY = DWORD($80041017);
  567.   {$EXTERNALSYM WBEM_E_INVALID_QUERY}
  568.   WBEM_E_INVALID_QUERY_TYPE = DWORD($80041018);
  569.   {$EXTERNALSYM WBEM_E_INVALID_QUERY_TYPE}
  570.   WBEM_E_ALREADY_EXISTS = DWORD($80041019);
  571.   {$EXTERNALSYM WBEM_E_ALREADY_EXISTS}
  572.   WBEM_E_OVERRIDE_NOT_ALLOWED = DWORD($8004101a);
  573.   {$EXTERNALSYM WBEM_E_OVERRIDE_NOT_ALLOWED}
  574.   WBEM_E_PROPAGATED_QUALIFIER = DWORD($8004101b);
  575.   {$EXTERNALSYM WBEM_E_PROPAGATED_QUALIFIER}
  576.   WBEM_E_PROPAGATED_PROPERTY = DWORD($8004101c);
  577.   {$EXTERNALSYM WBEM_E_PROPAGATED_PROPERTY}
  578.   WBEM_E_UNEXPECTED = DWORD($8004101d);
  579.   {$EXTERNALSYM WBEM_E_UNEXPECTED}
  580.   WBEM_E_ILLEGAL_OPERATION = DWORD($8004101e);
  581.   {$EXTERNALSYM WBEM_E_ILLEGAL_OPERATION}
  582.   WBEM_E_CANNOT_BE_KEY = DWORD($8004101f);
  583.   {$EXTERNALSYM WBEM_E_CANNOT_BE_KEY}
  584.   WBEM_E_INCOMPLETE_CLASS = DWORD($80041020);
  585.   {$EXTERNALSYM WBEM_E_INCOMPLETE_CLASS}
  586.   WBEM_E_INVALID_SYNTAX = DWORD($80041021);
  587.   {$EXTERNALSYM WBEM_E_INVALID_SYNTAX}
  588.   WBEM_E_NONDECORATED_OBJECT = DWORD($80041022);
  589.   {$EXTERNALSYM WBEM_E_NONDECORATED_OBJECT}
  590.   WBEM_E_READ_ONLY = DWORD($80041023);
  591.   {$EXTERNALSYM WBEM_E_READ_ONLY}
  592.   WBEM_E_PROVIDER_NOT_CAPABLE = DWORD($80041024);
  593.   {$EXTERNALSYM WBEM_E_PROVIDER_NOT_CAPABLE}
  594.   WBEM_E_CLASS_HAS_CHILDREN = DWORD($80041025);
  595.   {$EXTERNALSYM WBEM_E_CLASS_HAS_CHILDREN}
  596.   WBEM_E_CLASS_HAS_INSTANCES = DWORD($80041026);
  597.   {$EXTERNALSYM WBEM_E_CLASS_HAS_INSTANCES}
  598.   WBEM_E_QUERY_NOT_IMPLEMENTED = DWORD($80041027);
  599.   {$EXTERNALSYM WBEM_E_QUERY_NOT_IMPLEMENTED}
  600.   WBEM_E_ILLEGAL_NULL = DWORD($80041028);
  601.   {$EXTERNALSYM WBEM_E_ILLEGAL_NULL}
  602.   WBEM_E_INVALID_QUALIFIER_TYPE = DWORD($80041029);
  603.   {$EXTERNALSYM WBEM_E_INVALID_QUALIFIER_TYPE}
  604.   WBEM_E_INVALID_PROPERTY_TYPE = DWORD($8004102a);
  605.   {$EXTERNALSYM WBEM_E_INVALID_PROPERTY_TYPE}
  606.   WBEM_E_VALUE_OUT_OF_RANGE = DWORD($8004102b);
  607.   {$EXTERNALSYM WBEM_E_VALUE_OUT_OF_RANGE}
  608.   WBEM_E_CANNOT_BE_SINGLETON = DWORD($8004102c);
  609.   {$EXTERNALSYM WBEM_E_CANNOT_BE_SINGLETON}
  610.   WBEM_E_INVALID_CIM_TYPE = DWORD($8004102d);
  611.   {$EXTERNALSYM WBEM_E_INVALID_CIM_TYPE}
  612.   WBEM_E_INVALID_METHOD = DWORD($8004102e);
  613.   {$EXTERNALSYM WBEM_E_INVALID_METHOD}
  614.   WBEM_E_INVALID_METHOD_PARAMETERS = DWORD($8004102f);
  615.   {$EXTERNALSYM WBEM_E_INVALID_METHOD_PARAMETERS}
  616.   WBEM_E_SYSTEM_PROPERTY = DWORD($80041030);
  617.   {$EXTERNALSYM WBEM_E_SYSTEM_PROPERTY}
  618.   WBEM_E_INVALID_PROPERTY = DWORD($80041031);
  619.   {$EXTERNALSYM WBEM_E_INVALID_PROPERTY}
  620.   WBEM_E_CALL_CANCELLED = DWORD($80041032);
  621.   {$EXTERNALSYM WBEM_E_CALL_CANCELLED}
  622.   WBEM_E_SHUTTING_DOWN = DWORD($80041033);
  623.   {$EXTERNALSYM WBEM_E_SHUTTING_DOWN}
  624.   WBEM_E_PROPAGATED_METHOD = DWORD($80041034);
  625.   {$EXTERNALSYM WBEM_E_PROPAGATED_METHOD}
  626.   WBEM_E_UNSUPPORTED_PARAMETER = DWORD($80041035);
  627.   {$EXTERNALSYM WBEM_E_UNSUPPORTED_PARAMETER}
  628.   WBEM_E_MISSING_PARAMETER_ID = DWORD($80041036);
  629.   {$EXTERNALSYM WBEM_E_MISSING_PARAMETER_ID}
  630.   WBEM_E_INVALID_PARAMETER_ID = DWORD($80041037);
  631.   {$EXTERNALSYM WBEM_E_INVALID_PARAMETER_ID}
  632.   WBEM_E_NONCONSECUTIVE_PARAMETER_IDS = DWORD($80041038);
  633.   {$EXTERNALSYM WBEM_E_NONCONSECUTIVE_PARAMETER_IDS}
  634.   WBEM_E_PARAMETER_ID_ON_RETVAL = DWORD($80041039);
  635.   {$EXTERNALSYM WBEM_E_PARAMETER_ID_ON_RETVAL}
  636.   WBEM_E_INVALID_OBJECT_PATH = DWORD($8004103a);
  637.   {$EXTERNALSYM WBEM_E_INVALID_OBJECT_PATH}
  638.   WBEM_E_OUT_OF_DISK_SPACE = DWORD($8004103b);
  639.   {$EXTERNALSYM WBEM_E_OUT_OF_DISK_SPACE}
  640.   WBEM_E_BUFFER_TOO_SMALL = DWORD($8004103c);
  641.   {$EXTERNALSYM WBEM_E_BUFFER_TOO_SMALL}
  642.   WBEM_E_UNSUPPORTED_PUT_EXTENSION = DWORD($8004103d);
  643.   {$EXTERNALSYM WBEM_E_UNSUPPORTED_PUT_EXTENSION}
  644.   WBEM_E_UNKNOWN_OBJECT_TYPE = DWORD($8004103e);
  645.   {$EXTERNALSYM WBEM_E_UNKNOWN_OBJECT_TYPE}
  646.   WBEM_E_UNKNOWN_PACKET_TYPE = DWORD($8004103f);
  647.   {$EXTERNALSYM WBEM_E_UNKNOWN_PACKET_TYPE}
  648.   WBEM_E_MARSHAL_VERSION_MISMATCH = DWORD($80041040);
  649.   {$EXTERNALSYM WBEM_E_MARSHAL_VERSION_MISMATCH}
  650.   WBEM_E_MARSHAL_INVALID_SIGNATURE = DWORD($80041041);
  651.   {$EXTERNALSYM WBEM_E_MARSHAL_INVALID_SIGNATURE}
  652.   WBEM_E_INVALID_QUALIFIER = DWORD($80041042);
  653.   {$EXTERNALSYM WBEM_E_INVALID_QUALIFIER}
  654.   WBEM_E_INVALID_DUPLICATE_PARAMETER = DWORD($80041043);
  655.   {$EXTERNALSYM WBEM_E_INVALID_DUPLICATE_PARAMETER}
  656.   WBEM_E_TOO_MUCH_DATA = DWORD($80041044);
  657.   {$EXTERNALSYM WBEM_E_TOO_MUCH_DATA}
  658.   WBEM_E_SERVER_TOO_BUSY = DWORD($80041045);
  659.   {$EXTERNALSYM WBEM_E_SERVER_TOO_BUSY}
  660.   WBEM_E_INVALID_FLAVOR = DWORD($80041046);
  661.   {$EXTERNALSYM WBEM_E_INVALID_FLAVOR}
  662.   WBEM_E_CIRCULAR_REFERENCE = DWORD($80041047);
  663.   {$EXTERNALSYM WBEM_E_CIRCULAR_REFERENCE}
  664.   WBEM_E_UNSUPPORTED_CLASS_UPDATE = DWORD($80041048);
  665.   {$EXTERNALSYM WBEM_E_UNSUPPORTED_CLASS_UPDATE}
  666.   WBEM_E_CANNOT_CHANGE_KEY_INHERITANCE = DWORD($80041049);
  667.   {$EXTERNALSYM WBEM_E_CANNOT_CHANGE_KEY_INHERITANCE}
  668.   WBEM_E_CANNOT_CHANGE_INDEX_INHERITANCE = DWORD($80041050);
  669.   {$EXTERNALSYM WBEM_E_CANNOT_CHANGE_INDEX_INHERITANCE}
  670.   WBEM_E_TOO_MANY_PROPERTIES = DWORD($80041051);
  671.   {$EXTERNALSYM WBEM_E_TOO_MANY_PROPERTIES}
  672.   WBEM_E_UPDATE_TYPE_MISMATCH = DWORD($80041052);
  673.   {$EXTERNALSYM WBEM_E_UPDATE_TYPE_MISMATCH}
  674.   WBEM_E_UPDATE_OVERRIDE_NOT_ALLOWED = DWORD($80041053);
  675.   {$EXTERNALSYM WBEM_E_UPDATE_OVERRIDE_NOT_ALLOWED}
  676.   WBEM_E_UPDATE_PROPAGATED_METHOD = DWORD($80041054);
  677.   {$EXTERNALSYM WBEM_E_UPDATE_PROPAGATED_METHOD}
  678.   WBEM_E_METHOD_NOT_IMPLEMENTED = DWORD($80041055);
  679.   {$EXTERNALSYM WBEM_E_METHOD_NOT_IMPLEMENTED}
  680.   WBEM_E_METHOD_DISABLED = DWORD($80041056);
  681.   {$EXTERNALSYM WBEM_E_METHOD_DISABLED}
  682.   WBEM_E_REFRESHER_BUSY = DWORD($80041057);
  683.   {$EXTERNALSYM WBEM_E_REFRESHER_BUSY}
  684.   WBEM_E_UNPARSABLE_QUERY = DWORD($80041058);
  685.   {$EXTERNALSYM WBEM_E_UNPARSABLE_QUERY}
  686.   WBEM_E_NOT_EVENT_CLASS = DWORD($80041059);
  687.   {$EXTERNALSYM WBEM_E_NOT_EVENT_CLASS}
  688.   WBEM_E_MISSING_GROUP_WITHIN = DWORD($8004105a);
  689.   {$EXTERNALSYM WBEM_E_MISSING_GROUP_WITHIN}
  690.   WBEM_E_MISSING_AGGREGATION_LIST = DWORD($8004105b);
  691.   {$EXTERNALSYM WBEM_E_MISSING_AGGREGATION_LIST}
  692.   WBEM_E_PROPERTY_NOT_AN_OBJECT = DWORD($8004105c);
  693.   {$EXTERNALSYM WBEM_E_PROPERTY_NOT_AN_OBJECT}
  694.   WBEM_E_AGGREGATING_BY_OBJECT = DWORD($8004105d);
  695.   {$EXTERNALSYM WBEM_E_AGGREGATING_BY_OBJECT}
  696.   WBEM_E_UNINTERPRETABLE_PROVIDER_QUERY = DWORD($8004105f);
  697.   {$EXTERNALSYM WBEM_E_UNINTERPRETABLE_PROVIDER_QUERY}
  698.   WBEM_E_BACKUP_RESTORE_WINMGMT_RUNNING = DWORD($80041060);
  699.   {$EXTERNALSYM WBEM_E_BACKUP_RESTORE_WINMGMT_RUNNING}
  700.   WBEM_E_QUEUE_OVERFLOW = DWORD($80041061);
  701.   {$EXTERNALSYM WBEM_E_QUEUE_OVERFLOW}
  702.   WBEM_E_PRIVILEGE_NOT_HELD = DWORD($80041062);
  703.   {$EXTERNALSYM WBEM_E_PRIVILEGE_NOT_HELD}
  704.   WBEM_E_INVALID_OPERATOR = DWORD($80041063);
  705.   {$EXTERNALSYM WBEM_E_INVALID_OPERATOR}
  706.   WBEM_E_LOCAL_CREDENTIALS = DWORD($80041064);
  707.   {$EXTERNALSYM WBEM_E_LOCAL_CREDENTIALS}
  708.   WBEM_E_CANNOT_BE_ABSTRACT = DWORD($80041065);
  709.   {$EXTERNALSYM WBEM_E_CANNOT_BE_ABSTRACT}
  710.   WBEM_E_AMENDED_OBJECT = DWORD($80041066);
  711.   {$EXTERNALSYM WBEM_E_AMENDED_OBJECT}
  712.   WBEM_E_CLIENT_TOO_SLOW = DWORD($80041067);
  713.   {$EXTERNALSYM WBEM_E_CLIENT_TOO_SLOW}
  714.   WBEM_E_NULL_SECURITY_DESCRIPTOR = DWORD($80041068);
  715.   {$EXTERNALSYM WBEM_E_NULL_SECURITY_DESCRIPTOR}
  716.   WBEM_E_TIMED_OUT = DWORD($80041069);
  717.   {$EXTERNALSYM WBEM_E_TIMED_OUT}
  718.   WBEM_E_INVALID_ASSOCIATION = DWORD($8004106a);
  719.   {$EXTERNALSYM WBEM_E_INVALID_ASSOCIATION}
  720.   WBEM_E_AMBIGUOUS_OPERATION = DWORD($8004106b);
  721.   {$EXTERNALSYM WBEM_E_AMBIGUOUS_OPERATION}
  722.   WBEM_E_QUOTA_VIOLATION = DWORD($8004106c);
  723.   {$EXTERNALSYM WBEM_E_QUOTA_VIOLATION}
  724.   WBEM_E_RESERVED_001 = DWORD($8004106d);
  725.   {$EXTERNALSYM WBEM_E_RESERVED_001}
  726.   WBEM_E_RESERVED_002 = DWORD($8004106e);
  727.   {$EXTERNALSYM WBEM_E_RESERVED_002}
  728.   WBEM_E_UNSUPPORTED_LOCALE = DWORD($8004106f);
  729.   {$EXTERNALSYM WBEM_E_UNSUPPORTED_LOCALE}
  730.   WBEM_E_HANDLE_OUT_OF_DATE = DWORD($80041070);
  731.   {$EXTERNALSYM WBEM_E_HANDLE_OUT_OF_DATE}
  732.   WBEM_E_CONNECTION_FAILED = DWORD($80041071);
  733.   {$EXTERNALSYM WBEM_E_CONNECTION_FAILED}
  734.   WBEM_E_INVALID_HANDLE_REQUEST = DWORD($80041072);
  735.   {$EXTERNALSYM WBEM_E_INVALID_HANDLE_REQUEST}
  736.   WBEM_E_PROPERTY_NAME_TOO_WIDE = DWORD($80041073);
  737.   {$EXTERNALSYM WBEM_E_PROPERTY_NAME_TOO_WIDE}
  738.   WBEM_E_CLASS_NAME_TOO_WIDE = DWORD($80041074);
  739.   {$EXTERNALSYM WBEM_E_CLASS_NAME_TOO_WIDE}
  740.   WBEM_E_METHOD_NAME_TOO_WIDE = DWORD($80041075);
  741.   {$EXTERNALSYM WBEM_E_METHOD_NAME_TOO_WIDE}
  742.   WBEM_E_QUALIFIER_NAME_TOO_WIDE = DWORD($80041076);
  743.   {$EXTERNALSYM WBEM_E_QUALIFIER_NAME_TOO_WIDE}
  744.   WBEM_E_RERUN_COMMAND = DWORD($80041077);
  745.   {$EXTERNALSYM WBEM_E_RERUN_COMMAND}
  746.   WBEM_E_DATABASE_VER_MISMATCH = DWORD($80041078);
  747.   {$EXTERNALSYM WBEM_E_DATABASE_VER_MISMATCH}
  748.   WBEM_E_VETO_DELETE = DWORD($80041079);
  749.   {$EXTERNALSYM WBEM_E_VETO_DELETE}
  750.   WBEM_E_VETO_PUT = DWORD($8004107a);
  751.   {$EXTERNALSYM WBEM_E_VETO_PUT}
  752.   WBEM_E_INVALID_LOCALE = DWORD($80041080);
  753.   {$EXTERNALSYM WBEM_E_INVALID_LOCALE}
  754.   WBEM_E_PROVIDER_SUSPENDED = DWORD($80041081);
  755.   {$EXTERNALSYM WBEM_E_PROVIDER_SUSPENDED}
  756.   WBEM_E_SYNCHRONIZATION_REQUIRED = DWORD($80041082);
  757.   {$EXTERNALSYM WBEM_E_SYNCHRONIZATION_REQUIRED}
  758.   WBEM_E_NO_SCHEMA = DWORD($80041083);
  759.   {$EXTERNALSYM WBEM_E_NO_SCHEMA}
  760.   WBEM_E_PROVIDER_ALREADY_REGISTERED = DWORD($80041084);
  761.   {$EXTERNALSYM WBEM_E_PROVIDER_ALREADY_REGISTERED}
  762.   WBEM_E_PROVIDER_NOT_REGISTERED = DWORD($80041085);
  763.   {$EXTERNALSYM WBEM_E_PROVIDER_NOT_REGISTERED}
  764.   WBEM_E_FATAL_TRANSPORT_ERROR = DWORD($80041086);
  765.   {$EXTERNALSYM WBEM_E_FATAL_TRANSPORT_ERROR}
  766.   WBEM_E_ENCRYPTED_CONNECTION_REQUIRED = DWORD($80041087);
  767.   {$EXTERNALSYM WBEM_E_ENCRYPTED_CONNECTION_REQUIRED}
  768.   WBEM_E_PROVIDER_TIMED_OUT = DWORD($80041088);
  769.   {$EXTERNALSYM WBEM_E_PROVIDER_TIMED_OUT}
  770.   WBEM_E_NO_KEY = DWORD($80041089);
  771.   {$EXTERNALSYM WBEM_E_NO_KEY}
  772.   WBEM_E_PROVIDER_DISABLED = DWORD($8004108a);
  773.   {$EXTERNALSYM WBEM_E_PROVIDER_DISABLED}
  774.   WBEMESS_E_REGISTRATION_TOO_BROAD = DWORD($80042001);
  775.   {$EXTERNALSYM WBEMESS_E_REGISTRATION_TOO_BROAD}
  776.   WBEMESS_E_REGISTRATION_TOO_PRECISE = DWORD($80042002);
  777.   {$EXTERNALSYM WBEMESS_E_REGISTRATION_TOO_PRECISE}
  778.   WBEMMOF_E_EXPECTED_QUALIFIER_NAME = DWORD($80044001);
  779.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_QUALIFIER_NAME}
  780.   WBEMMOF_E_EXPECTED_SEMI = DWORD($80044002);
  781.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_SEMI}
  782.   WBEMMOF_E_EXPECTED_OPEN_BRACE = DWORD($80044003);
  783.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_OPEN_BRACE}
  784.   WBEMMOF_E_EXPECTED_CLOSE_BRACE = DWORD($80044004);
  785.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_CLOSE_BRACE}
  786.   WBEMMOF_E_EXPECTED_CLOSE_BRACKET = DWORD($80044005);
  787.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_CLOSE_BRACKET}
  788.   WBEMMOF_E_EXPECTED_CLOSE_PAREN = DWORD($80044006);
  789.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_CLOSE_PAREN}
  790.   WBEMMOF_E_ILLEGAL_CONSTANT_VALUE = DWORD($80044007);
  791.   {$EXTERNALSYM WBEMMOF_E_ILLEGAL_CONSTANT_VALUE}
  792.   WBEMMOF_E_EXPECTED_TYPE_IDENTIFIER = DWORD($80044008);
  793.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_TYPE_IDENTIFIER}
  794.   WBEMMOF_E_EXPECTED_OPEN_PAREN = DWORD($80044009);
  795.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_OPEN_PAREN}
  796.   WBEMMOF_E_UNRECOGNIZED_TOKEN = DWORD($8004400a);
  797.   {$EXTERNALSYM WBEMMOF_E_UNRECOGNIZED_TOKEN}
  798.   WBEMMOF_E_UNRECOGNIZED_TYPE = DWORD($8004400b);
  799.   {$EXTERNALSYM WBEMMOF_E_UNRECOGNIZED_TYPE}
  800.   WBEMMOF_E_EXPECTED_PROPERTY_NAME = DWORD($8004400c);
  801.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_PROPERTY_NAME}
  802.   WBEMMOF_E_TYPEDEF_NOT_SUPPORTED = DWORD($8004400d);
  803.   {$EXTERNALSYM WBEMMOF_E_TYPEDEF_NOT_SUPPORTED}
  804.   WBEMMOF_E_UNEXPECTED_ALIAS = DWORD($8004400e);
  805.   {$EXTERNALSYM WBEMMOF_E_UNEXPECTED_ALIAS}
  806.   WBEMMOF_E_UNEXPECTED_ARRAY_INIT = DWORD($8004400f);
  807.   {$EXTERNALSYM WBEMMOF_E_UNEXPECTED_ARRAY_INIT}
  808.   WBEMMOF_E_INVALID_AMENDMENT_SYNTAX = DWORD($80044010);
  809.   {$EXTERNALSYM WBEMMOF_E_INVALID_AMENDMENT_SYNTAX}
  810.   WBEMMOF_E_INVALID_DUPLICATE_AMENDMENT = DWORD($80044011);
  811.   {$EXTERNALSYM WBEMMOF_E_INVALID_DUPLICATE_AMENDMENT}
  812.   WBEMMOF_E_INVALID_PRAGMA = DWORD($80044012);
  813.   {$EXTERNALSYM WBEMMOF_E_INVALID_PRAGMA}
  814.   WBEMMOF_E_INVALID_NAMESPACE_SYNTAX = DWORD($80044013);
  815.   {$EXTERNALSYM WBEMMOF_E_INVALID_NAMESPACE_SYNTAX}
  816.   WBEMMOF_E_EXPECTED_CLASS_NAME = DWORD($80044014);
  817.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_CLASS_NAME}
  818.   WBEMMOF_E_TYPE_MISMATCH = DWORD($80044015);
  819.   {$EXTERNALSYM WBEMMOF_E_TYPE_MISMATCH}
  820.   WBEMMOF_E_EXPECTED_ALIAS_NAME = DWORD($80044016);
  821.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_ALIAS_NAME}
  822.   WBEMMOF_E_INVALID_CLASS_DECLARATION = DWORD($80044017);
  823.   {$EXTERNALSYM WBEMMOF_E_INVALID_CLASS_DECLARATION}
  824.   WBEMMOF_E_INVALID_INSTANCE_DECLARATION = DWORD($80044018);
  825.   {$EXTERNALSYM WBEMMOF_E_INVALID_INSTANCE_DECLARATION}
  826.   WBEMMOF_E_EXPECTED_DOLLAR = DWORD($80044019);
  827.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_DOLLAR}
  828.   WBEMMOF_E_CIMTYPE_QUALIFIER = DWORD($8004401a);
  829.   {$EXTERNALSYM WBEMMOF_E_CIMTYPE_QUALIFIER}
  830.   WBEMMOF_E_DUPLICATE_PROPERTY = DWORD($8004401b);
  831.   {$EXTERNALSYM WBEMMOF_E_DUPLICATE_PROPERTY}
  832.   WBEMMOF_E_INVALID_NAMESPACE_SPECIFICATION = DWORD($8004401c);
  833.   {$EXTERNALSYM WBEMMOF_E_INVALID_NAMESPACE_SPECIFICATION}
  834.   WBEMMOF_E_OUT_OF_RANGE = DWORD($8004401d);
  835.   {$EXTERNALSYM WBEMMOF_E_OUT_OF_RANGE}
  836.   WBEMMOF_E_INVALID_FILE = DWORD($8004401e);
  837.   {$EXTERNALSYM WBEMMOF_E_INVALID_FILE}
  838.   WBEMMOF_E_ALIASES_IN_EMBEDDED = DWORD($8004401f);
  839.   {$EXTERNALSYM WBEMMOF_E_ALIASES_IN_EMBEDDED}
  840.   WBEMMOF_E_NULL_ARRAY_ELEM = DWORD($80044020);
  841.   {$EXTERNALSYM WBEMMOF_E_NULL_ARRAY_ELEM}
  842.   WBEMMOF_E_DUPLICATE_QUALIFIER = DWORD($80044021);
  843.   {$EXTERNALSYM WBEMMOF_E_DUPLICATE_QUALIFIER}
  844.   WBEMMOF_E_EXPECTED_FLAVOR_TYPE = DWORD($80044022);
  845.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_FLAVOR_TYPE}
  846.   WBEMMOF_E_INCOMPATIBLE_FLAVOR_TYPES = DWORD($80044023);
  847.   {$EXTERNALSYM WBEMMOF_E_INCOMPATIBLE_FLAVOR_TYPES}
  848.   WBEMMOF_E_MULTIPLE_ALIASES = DWORD($80044024);
  849.   {$EXTERNALSYM WBEMMOF_E_MULTIPLE_ALIASES}
  850.   WBEMMOF_E_INCOMPATIBLE_FLAVOR_TYPES2 = DWORD($80044025);
  851.   {$EXTERNALSYM WBEMMOF_E_INCOMPATIBLE_FLAVOR_TYPES2}
  852.   WBEMMOF_E_NO_ARRAYS_RETURNED = DWORD($80044026);
  853.   {$EXTERNALSYM WBEMMOF_E_NO_ARRAYS_RETURNED}
  854.   WBEMMOF_E_MUST_BE_IN_OR_OUT = DWORD($80044027);
  855.   {$EXTERNALSYM WBEMMOF_E_MUST_BE_IN_OR_OUT}
  856.   WBEMMOF_E_INVALID_FLAGS_SYNTAX = DWORD($80044028);
  857.   {$EXTERNALSYM WBEMMOF_E_INVALID_FLAGS_SYNTAX}
  858.   WBEMMOF_E_EXPECTED_BRACE_OR_BAD_TYPE = DWORD($80044029);
  859.   {$EXTERNALSYM WBEMMOF_E_EXPECTED_BRACE_OR_BAD_TYPE}
  860.   WBEMMOF_E_UNSUPPORTED_CIMV22_QUAL_VALUE = DWORD($8004402a);
  861.   {$EXTERNALSYM WBEMMOF_E_UNSUPPORTED_CIMV22_QUAL_VALUE}
  862.   WBEMMOF_E_UNSUPPORTED_CIMV22_DATA_TYPE = DWORD($8004402b);
  863.   {$EXTERNALSYM WBEMMOF_E_UNSUPPORTED_CIMV22_DATA_TYPE}
  864.   WBEMMOF_E_INVALID_DELETEINSTANCE_SYNTAX = DWORD($8004402c);
  865.   {$EXTERNALSYM WBEMMOF_E_INVALID_DELETEINSTANCE_SYNTAX}
  866.   WBEMMOF_E_INVALID_QUALIFIER_SYNTAX = DWORD($8004402d);
  867.   {$EXTERNALSYM WBEMMOF_E_INVALID_QUALIFIER_SYNTAX}
  868.   WBEMMOF_E_QUALIFIER_USED_OUTSIDE_SCOPE = DWORD($8004402e);
  869.   {$EXTERNALSYM WBEMMOF_E_QUALIFIER_USED_OUTSIDE_SCOPE}
  870.   WBEMMOF_E_ERROR_CREATING_TEMP_FILE = DWORD($8004402f);
  871.   {$EXTERNALSYM WBEMMOF_E_ERROR_CREATING_TEMP_FILE}
  872.   WBEMMOF_E_ERROR_INVALID_INCLUDE_FILE = DWORD($80044030);
  873.   {$EXTERNALSYM WBEMMOF_E_ERROR_INVALID_INCLUDE_FILE}
  874.   WBEMMOF_E_INVALID_DELETECLASS_SYNTAX = DWORD($80044031);
  875.   {$EXTERNALSYM WBEMMOF_E_INVALID_DELETECLASS_SYNTAX}
  876.   
  877. //const
  878. //EXTERN_C const IID LIBID_WbemClient_v1;
  880. const
  881.   IID_IWbemClassObject: TGUID = '{dc12a681-737f-11cf-884d-00aa004b2e24}';
  882.   {$EXTERNALSYM IID_IWbemClassObject}
  883.   IID_IWbemObjectAccess: TGUID = '{49353c9a-516b-11d1-aea6-00c04fb68820}';
  884.   {$EXTERNALSYM IID_IWbemObjectAccess}
  885.   IID_IWbemQualifierSet: TGUID = '{dc12a680-737f-11cf-884d-00aa004b2e24}';
  886.   {$EXTERNALSYM IID_IWbemQualifierSet}
  887.   IID_IWbemServices: TGUID = '{9556dc99-828c-11cf-a37e-00aa003240c7}';
  888.   {$EXTERNALSYM IID_IWbemServices}
  889.   IID_IWbemLocator: TGUID = '{dc12a687-737f-11cf-884d-00aa004b2e24}';
  890.   {$EXTERNALSYM IID_IWbemLocator}
  891.   IID_IWbemObjectSink: TGUID = '{7c857801-7381-11cf-884d-00aa004b2e24}';
  892.   {$EXTERNALSYM IID_IWbemObjectSink}
  893.   IID_IEnumWbemClassObject: TGUID = '{027947e1-d731-11ce-a357-000000000001}';
  894.   {$EXTERNALSYM IID_IEnumWbemClassObject}
  895.   IID_IWbemCallResult: TGUID = '{44aca675-e8fc-11d0-a07c-00c04fb68820}';
  896.   {$EXTERNALSYM IID_IWbemCallResult}
  897.   IID_IWbemContext: TGUID = '{44aca674-e8fc-11d0-a07c-00c04fb68820}';
  898.   {$EXTERNALSYM IID_IWbemContext}
  899.   IID_IUnsecuredApartment: TGUID = '{1cfaba8c-1523-11d1-ad79-00c04fd8fdff}';
  900.   {$EXTERNALSYM IID_IUnsecuredApartment}
  901.   IID_IWbemUnsecuredApartment: TGUID = '{31739d04-3471-4cf4-9a7c-57a44ae71956}';
  902.   {$EXTERNALSYM IID_IWbemUnsecuredApartment}
  903.   IID_IWbemStatusCodeText: TGUID = '{eb87e1bc-3233-11d2-aec9-00c04fb68820}';
  904.   {$EXTERNALSYM IID_IWbemStatusCodeText}
  905.   IID_IWbemBackupRestore: TGUID = '{C49E32C7-BC8B-11d2-85D4-00105A1F8304}';
  906.   {$EXTERNALSYM IID_IWbemBackupRestore}
  907.   IID_IWbemBackupRestoreEx: TGUID = '{A359DEC5-E813-4834-8A2A-BA7F1D777D76}';
  908.   {$EXTERNALSYM IID_IWbemBackupRestoreEx}
  909.   IID_IWbemRefresher: TGUID = '{49353c99-516b-11d1-aea6-00c04fb68820}';
  910.   {$EXTERNALSYM IID_IWbemRefresher}
  911.   IID_IWbemHiPerfEnum: TGUID = '{2705C288-79AE-11d2-B348-00105A1F8177}';
  912.   {$EXTERNALSYM IID_IWbemHiPerfEnum}
  913.   IID_IWbemConfigureRefresher: TGUID = '{49353c92-516b-11d1-aea6-00c04fb68820}';
  914.   {$EXTERNALSYM IID_IWbemConfigureRefresher}
  916. type
  917.   // forward declarations
  918.   
  919.   IWbemQualifierSet = interface;
  920.   IWbemContext = interface;
  921.   IWbemCallResult = interface;
  922.   IWbemObjectSink = interface;
  923.   IEnumWbemClassObject = interface;
  925.   IWbemClassObject = interface(IUnknown)
  926.   ['{dc12a681-737f-11cf-884d-00aa004b2e24}']
  927.     function GetQualifierSet(out ppQualSet: IWbemQualifierSet): HRESULT; stdcall;
  928.     function Get(wszName: LPCWSTR; lFlags: Longint; var pVal: OleVariant; var pType: CIMTYPE; var plFlavor: Longint): HRESULT; stdcall;
  929.     function Put(wszName: LPCWSTR; lFlags: Longint; pVal: POleVariant; Type_: CIMTYPE): HRESULT; stdcall;
  930.     function Delete(wszName: LPCWSTR): HRESULT; stdcall;
  931.     function GetNames(wszQualifierName: LPCWSTR; lFlags: Longint; pQualifierVal: POleVariant; out pNames: PSafeArray): HRESULT; stdcall;
  932.     function BeginEnumeration(lEnumFlags: Longint): HRESULT; stdcall;
  933.     function Next(lFlags: Longint; var strName: WideString; var pVal: OleVariant; var pType: CIMTYPE; var plFlavor: Longint): HRESULT; stdcall;
  934.     function EndEnumeration: HRESULT; stdcall;
  935.     function GetPropertyQualifierSet(wszProperty: LPCWSTR; out ppQualSet: IWbemQualifierSet): HRESULT; stdcall;
  936.     function Clone(out ppCopy: IWbemClassObject): HRESULT; stdcall;
  937.     function GetObjectText(lFlags: Longint; out pstrObjectText: WideString): HRESULT; stdcall;
  938.     function SpawnDerivedClass(lFlags: Longint; out ppNewClass: IWbemClassObject): HRESULT; stdcall;
  939.     function SpawnInstance(lFlags: Longint; out ppNewInstance: IWbemClassObject): HRESULT; stdcall;
  940.     function CompareTo(lFlags: Longint; pCompareTo: IWbemClassObject): HRESULT; stdcall;
  941.     function GetPropertyOrigin(wszName: LPCWSTR; out pstrClassName: WideString): HRESULT; stdcall;
  942.     function InheritsFrom(strAncestor: LPCWSTR): HRESULT; stdcall;
  943.     function GetMethod(wszName: LPCWSTR; lFlags: Longint; out ppInSignature, ppOutSignature: IWbemClassObject): HRESULT; stdcall;
  944.     function PutMethod(wszName: LPCWSTR; lFlags: Longint; pInSignature, pOutSignature: IWbemClassObject): HRESULT; stdcall;
  945.     function DeleteMethod(wszName: LPCWSTR): HRESULT; stdcall;
  946.     function BeginMethodEnumeration(lEnumFlags: Longint): HRESULT; stdcall;
  947.     function NextMethod(lFlags: Longint; var pstrName: WideString; var ppInSignature, ppOutSignature: IWbemClassObject): HRESULT; stdcall;
  948.     function EndMethodEnumeration: HRESULT; stdcall;
  949.     function GetMethodQualifierSet(wszMethod: LPCWSTR; out ppQualSet: IWbemQualifierSet): HRESULT; stdcall;
  950.     function GetMethodOrigin(wszMethodName: LPCWSTR; out pstrClassName: WideString): HRESULT; stdcall;
  951.   end;
  952.   {$EXTERNALSYM IWbemClassObject}
  954.   IWbemObjectAccess = interface (IWbemClassObject)
  955.   ['{49353c9a-516b-11d1-aea6-00c04fb68820}']
  956.     function GetPropertyHandle(wszPropertyName: LPCWSTR; out pType: CIMTYPE; out plHandle: Longint): HRESULT; stdcall;
  957.     function WritePropertyValue(lHandle, lNumBytes: Longint; aData: LPBYTE): HRESULT; stdcall;
  958.     function ReadPropertyValue(lHandle, lBufferSize: Longint; out plNumBytes: Longint; aData: LPBYTE): HRESULT; stdcall;
  959.     function ReadDWORD(lHandle: Longint; out pdw: DWORD): HRESULT; stdcall;
  960.     function WriteDWORD(lHandle: Longint; dw: DWORD): HRESULT; stdcall;
  961.     function ReadQWORD(lHandle: Longint; out pqw: Int64): HRESULT; stdcall;
  962.     function WriteQWORD(lHandle: Longint; pw: Int64): HRESULT; stdcall;
  963.     function GetPropertyInfoByHandle(lHandle: Longint; out pstrName: WideString; out pType: CIMTYPE): HRESULT; stdcall;
  964.     function Lock(lFlags: Longint): HRESULT; stdcall;
  965.     function Unlock(lFlags: Longint): HRESULT; stdcall;
  966.   end;
  967.   {$EXTERNALSYM IWbemObjectAccess}
  969.   IWbemQualifierSet = interface (IUnknown)
  970.   ['{dc12a680-737f-11cf-884d-00aa004b2e24}']
  971.     function Get(wszName: LPCWSTR; lFlags: Longint; var pVal: OleVariant; var plFlavor: Longint): HRESULT; stdcall;
  972.     function Put(wszName: LPCWSTR; pVal: POleVariant; lFlavor: Longint): HRESULT; stdcall;
  973.     function Delete(wszName: LPCWSTR): HRESULT; stdcall;
  974.     function GetNames(lFlags: Longint; out pNames: PSafeArray): HRESULT; stdcall;
  975.     function BeginEnumeration(lFlags: Longint): HRESULT; stdcall;
  976.     function Next(lFlags: Longint; var pstrName: WideString; var pVal: OleVariant; var plFlavor: Longint): HRESULT; stdcall;
  977.     function EndEnumeration: HRESULT; stdcall;
  978.   end;
  979.   {$EXTERNALSYM IWbemQualifierSet}
  981.   IWbemServices = interface (IUnknown)
  982.   ['{9556dc99-828c-11cf-a37e-00aa003240c7}']
  983.     function OpenNamespace(strNamespace: WideString; lFlags: Longint; pCtx: IWbemContext; out ppWorkingNamespace: IWbemServices; out ppResult: IWbemCallResult): HRESULT; stdcall;
  984.     function CancelAsyncCall(pSink: IWbemObjectSink): HRESULT; stdcall;
  985.     function QueryObjectSink(lFlags: Longint; out ppResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  986.     function GetObject(strObjectPath: WideString; lFlags: Longint; pCtx: IWbemContext; out ppObject: IWbemClassObject; out ppCallResult: IWbemCallResult): HRESULT; stdcall;
  987.     function GetObjectAsync(strObjectPath: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  988.     function PutClass(pObject: IWbemClassObject; lFlags: Longint; pCtx: IWbemContext; out ppCallResult: IWbemCallResult): HRESULT; stdcall;
  989.     function PutClassAsync(pObject: IWbemClassObject; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  990.     function DeleteClass(strClass: WideString; lFlags: Longint; pCtx: IWbemContext; out ppCallResult: IWbemCallResult): HRESULT; stdcall;
  991.     function DeleteClassAsync(strClass: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  992.     function CreateClassEnum(strSuperclass: WideString; lFlags: Longint; pCtx: IWbemContext; out ppEnum: IEnumWbemClassObject): HRESULT; stdcall;
  993.     function CreateClassEnumAsync(strSuperclass: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  994.     function PutInstance(pInst: IWbemClassObject; lFlags: Longint; pCtx: IWbemContext; out ppCallResult: IWbemCallResult): HRESULT; stdcall;
  995.     function PutInstanceAsync(pInst: IWbemClassObject; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  996.     function DeleteInstance(strObjectPath: WideString; lFlags: Longint; pCtx: IWbemContext; out ppCallResult: IWbemCallResult): HRESULT; stdcall;
  997.     function DeleteInstanceAsync(strObjectPath: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  998.     function CreateInstanceEnum(strFilter: WideString; lFlags: Longint; pCtx: IWbemContext; out ppEnum: IEnumWbemClassObject): HRESULT; stdcall;
  999.     function CreateInstanceEnumAsync(strFilter: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  1000.     function ExecQuery(strQueryLanguage, strQuery: WideString; lFlags: Longint; pCtx: IWbemContext; out ppEnum: IEnumWbemClassObject): HRESULT; stdcall;
  1001.     function ExecQueryAsync(strQueryLanguage, strQuery: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  1002.     function ExecNotificationQuery(strQueryLanguage, strQuery: WideString; lFlags: Longint; pCtx: IWbemContext; out ppEnum: IEnumWbemClassObject): HRESULT; stdcall;
  1003.     function ExecNotificationQueryAsync(strQueryLanguage, strQuery: WideString; lFlags: Longint; pCtx: IWbemContext; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  1004.     function ExecMethod(strObjectPath, strMethodName: WideString; lFlags: Longint; pCtx: IWbemContext; pInParams: IWbemClassObject; out ppOutParams: IWbemClassObject; out ppCallResult: IWbemCallResult): HRESULT; stdcall;
  1005.     function ExecMethodAsync(strObjectPath, strMethodName: WideString; lFlags: Longint; pCtx: IWbemContext; pInParams: IWbemClassObject; pResponseHandler: IWbemObjectSink): HRESULT; stdcall;
  1006.   end;
  1007.   {$EXTERNALSYM IWbemServices}
  1009.   IWbemLocator = interface (IUnknown)
  1010.   ['{dc12a687-737f-11cf-884d-00aa004b2e24}']
  1011.     function ConnectServer(strNetworkResource, strUser, strPassword, strLocale: WideString; lSecurityFlags: Longint;
  1012.       strAuthority: WideString; pCtx: IWbemContext; out ppNamespace: IWbemServices): HRESULT; stdcall;
  1013.   end;
  1014.   {$EXTERNALSYM IWbemLocator}
  1016.   IWbemObjectSink = interface (IUnknown)
  1017.   ['{7c857801-7381-11cf-884d-00aa004b2e24}']
  1018.     function Indicate(lObjectCount: Longint; var apObjArray: IWbemClassObject{todo}): HRESULT; stdcall;
  1019.     function SetStatus(lFlags: Longint; hResult: HRESULT; strParam: WideString; pObjParam: IWbemClassObject): HRESULT; stdcall;
  1020.   end;
  1021.   {$EXTERNALSYM IWbemObjectSink}
  1023.   IEnumWbemClassObject = interface (IUnknown)
  1024.   ['{027947e1-d731-11ce-a357-000000000001}']
  1025.     function Reset: HRESULT; stdcall;
  1026.     function Next(lTimeout: Longint; uCount: ULONG; out apObjects: IWbemClassObject; out puReturned: ULONG): HRESULT; stdcall;
  1027.     function NextAsync(uCount: ULONG; pSink: IWbemObjectSink): HRESULT; stdcall;
  1028.     function Clone(out ppEnum: IEnumWbemClassObject): HRESULT; stdcall;
  1029.     function Skip(lTimeout: Longint; nCount: ULONG): HRESULT; stdcall;
  1030.   end;
  1031.   {$EXTERNALSYM IEnumWbemClassObject}
  1033.   IWbemCallResult = interface (IUnknown)
  1034.   ['{44aca675-e8fc-11d0-a07c-00c04fb68820}']
  1035.     function GetResultObject(lTimeout: Longint; out ppResultObject: IWbemClassObject): HRESULT; stdcall;
  1036.     function GetResultString(lTimeout: Longint; out pstrResultString: WideString): HRESULT; stdcall;
  1037.     function GetResultServices(lTimeout: Longint; out ppServices: IWbemServices): HRESULT; stdcall;
  1038.     function GetCallStatus(lTimeout: Longint; out plStatus: Longint): HRESULT; stdcall;
  1039.   end;
  1040.   {$EXTERNALSYM IWbemCallResult}
  1042.   IWbemContext = interface (IUnknown)
  1043.   ['{44aca674-e8fc-11d0-a07c-00c04fb68820}']
  1044.     function Clone(out ppNewCopy: IWbemContext): HRESULT; stdcall;
  1045.     function GetNames(lFlags: Longint; out pNames: PSafeArray): HRESULT; stdcall;
  1046.     function BeginEnumeration(lFlags: Longint): HRESULT; stdcall;
  1047.     function Next(lFlags: Longint; out pstrName: WideString; out pValue: OleVariant): HRESULT; stdcall;
  1048.     function EndEnumeration: HRESULT; stdcall;
  1049.     function SetValue(wszName: LPCWSTR; lFlags: Longint; pValue: POleVariant): HRESULT; stdcall;
  1050.     function GetValue(wszName: LPCWSTR; lFlags: Longint; out pValue: OleVariant): HRESULT; stdcall;
  1051.     function DeleteValue(wszName: LPCWSTR; lFlags: Longint): HRESULT; stdcall;
  1052.     function DeleteAll: HRESULT; stdcall;
  1053.   end;
  1054.   {$EXTERNALSYM IWbemContext}
  1056.   IUnsecuredApartment = interface (IUnknown)
  1057.   ['{1cfaba8c-1523-11d1-ad79-00c04fd8fdff}']
  1058.     function CreateObjectStub(pObject: IUnknown; out ppStub: IUnknown): HRESULT; stdcall;
  1059.   end;
  1060.   {$EXTERNALSYM IUnsecuredApartment}
  1062.   IWbemUnsecuredApartment = interface (IUnsecuredApartment)
  1063.   ['{31739d04-3471-4cf4-9a7c-57a44ae71956}']
  1064.     function CreateSinkStub(pSink: IWbemObjectSink; dwFlags: DWORD; wszReserved: LPCWSTR; out ppStub: IWbemObjectSink): HRESULT; stdcall;
  1065.   end;
  1066.   {$EXTERNALSYM IWbemUnsecuredApartment}
  1068.   IWbemStatusCodeText = interface (IUnknown)
  1069.   ['{eb87e1bc-3233-11d2-aec9-00c04fb68820}']
  1070.     function GetErrorCodeText(hRes: HRESULT; LocaleId: LCID; lFlags: Longint; out MessageText: WideString): HRESULT; stdcall;
  1071.     function GetFacilityCodeText(hRes: HRESULT; LocaleId: LCID; lFlags: Longint; out MessageText: WideString): HRESULT; stdcall;
  1072.   end;
  1073.   {$EXTERNALSYM IWbemStatusCodeText}
  1075.   IWbemBackupRestore = interface (IUnknown)
  1076.   ['{C49E32C7-BC8B-11d2-85D4-00105A1F8304}']
  1077.     function Backup(strBackupToFile: LPCWSTR; lFlags: Longint): HRESULT; stdcall;
  1078.     function Restore(strRestoreFromFile: LPCWSTR; lFlags: Longint): HRESULT; stdcall;
  1079.   end;
  1080.   {$EXTERNALSYM IWbemBackupRestore}
  1082.   IWbemBackupRestoreEx = interface (IWbemBackupRestore)
  1083.   ['{A359DEC5-E813-4834-8A2A-BA7F1D777D76}']
  1084.     function Pause: HRESULT; stdcall;
  1085.     function Resume: HRESULT; stdcall;
  1086.   end;
  1087.   {$EXTERNALSYM IWbemBackupRestoreEx}
  1089.   IWbemRefresher = interface (IUnknown)
  1090.   ['{49353c99-516b-11d1-aea6-00c04fb68820}']
  1091.     function Refresh(lFlags: Longint): HRESULT; stdcall;
  1092.   end;
  1093.   {$EXTERNALSYM IWbemRefresher}
  1095.   PIWbemObjectAccess = ^IWbemObjectAccess;
  1097.   PLongint = ^Longint; // TODO PLongint introduced in Delphi 6
  1099.   IWbemHiPerfEnum = interface (IUnknown)
  1100.   ['{2705C288-79AE-11d2-B348-00105A1F8177}']
  1101.     function AddObjects(lFlags: Longint; uNumObjects: ULONG; apIds: PLongint; apObj: PIWbemObjectAccess): HRESULT; stdcall;
  1102.     function RemoveObjects(lFlags: Longint; uNumObjects: ULONG; apIds: PLongint): HRESULT; stdcall;
  1103.     function GetObjects(lFlags: Longint; uNumObjects: ULONG; out apObj: IWbemObjectAccess; out puReturned: ULONG): HRESULT; stdcall;
  1104.     function RemoveAll(lFlags: Longint): HRESULT; stdcall;
  1105.   end;
  1106.   {$EXTERNALSYM IWbemHiPerfEnum}
  1108.   IWbemConfigureRefresher = interface (IUnknown)
  1109.   ['{49353c92-516b-11d1-aea6-00c04fb68820}']
  1110.     function AddObjectByPath(pNamespace: IWbemServices; wszPath: LPCWSTR; lFlags: Longint; pContext: IWbemContext; out ppRefreshable: IWbemClassObject; var plId: Longint): HRESULT; stdcall;
  1111.     function AddObjectByTemplate(pNamespace: IWbemServices; pTemplate: IWbemClassObject; lFlags: Longint; pContext: IWbemContext; out ppRefreshable: IWbemClassObject; var plId: Longint): HRESULT; stdcall;
  1112.     function AddRefresher(pRefresher: IWbemRefresher; lFlags: Longint; var plId: Longint): HRESULT; stdcall;
  1113.     function Remove(lId, lFlags: Longint): HRESULT; stdcall;
  1114.     function AddEnum(pNamespace: IWbemServices; wszClassName: LPCWSTR; lFlags: Longint; pContext: IWbemContext; out ppEnum: IWbemHiPerfEnum; var plId: Longint): HRESULT; stdcall;
  1115.   end;
  1116.   {$EXTERNALSYM IWbemConfigureRefresher}
  1118. const
  1119.   CLSID_WbemLocator: TGUID = '{4590f811-1d3a-11d0-891f-00aa004b2e24}';
  1120.   {$EXTERNALSYM CLSID_WbemLocator}
  1121.   CLSID_WbemContext: TGUID = '{674B6698-EE92-11d0-AD71-00C04FD8FDFF}';
  1122.   {$EXTERNALSYM CLSID_WbemContext}
  1123.   CLSID_UnsecuredApartment: TGUID = '{49bd2028-1523-11d1-ad79-00c04fd8fdff}';
  1124.   {$EXTERNALSYM CLSID_UnsecuredApartment}
  1125.   CLSID_WbemClassObject: TGUID = '{9A653086-174F-11d2-B5F9-00104B703EFD}';
  1126.   {$EXTERNALSYM CLSID_WbemClassObject}
  1127.   CLSID_MofCompiler: TGUID = '{6daf9757-2e37-11d2-aec9-00c04fb68820}';
  1128.   {$EXTERNALSYM CLSID_MofCompiler}
  1129.   CLSID_WbemStatusCodeText: TGUID = '{eb87e1bd-3233-11d2-aec9-00c04fb68820}';
  1130.   {$EXTERNALSYM CLSID_WbemStatusCodeText}
  1131.   CLSID_WbemBackupRestore: TGUID = '{C49E32C6-BC8B-11d2-85D4-00105A1F8304}';
  1132.   {$EXTERNALSYM CLSID_WbemBackupRestore}
  1133.   CLSID_WbemRefresher: TGUID = '{c71566f2-561e-11d1-ad87-00c04fd8fdff}';
  1134.   {$EXTERNALSYM CLSID_WbemRefresher}
  1135.   CLSID_WbemObjectTextSrc: TGUID = '{8D1C559D-84F0-4bb3-A7D5-56A7435A9BA6}';
  1136.   {$EXTERNALSYM CLSID_WbemObjectTextSrc}
  1138. const
  1139.   IID_IWbemShutdown: TGUID = '{b7b31df9-d515-11d3-a11c-00105a1f515a}';
  1140.   {$EXTERNALSYM IID_IWbemShutdown}
  1142. type
  1143.   IWbemShutdown = interface (IUnknown)
  1144.   ['{b7b31df9-d515-11d3-a11c-00105a1f515a}']
  1145.     function Shutdown(uReason: LONG; uMaxMilliseconds: ULONG; pCtx: IWbemContext): HRESULT; stdcall;
  1146.   end;
  1147.   {$EXTERNALSYM IWbemShutdown}
  1149. type
  1150.   tag_WMI_OBJ_TEXT = DWORD;
  1151.   {$EXTERNALSYM tag_WMI_OBJ_TEXT}
  1152.   WMI_OBJ_TEXT = tag_WMI_OBJ_TEXT;
  1153.   {$EXTERNALSYM WMI_OBJ_TEXT}
  1154.   TWmiObjText = WMI_OBJ_TEXT;
  1156. const
  1157.   WMI_OBJ_TEXT_CIM_DTD_2_0 = 1;
  1158.   {$EXTERNALSYM WMI_OBJ_TEXT_CIM_DTD_2_0}
  1159.   WMI_OBJ_TEXT_WMI_DTD_2_0 = 2;
  1160.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_DTD_2_0}
  1161.   WMI_OBJ_TEXT_WMI_EXT1 = 3;
  1162.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT1}
  1163.   WMI_OBJ_TEXT_WMI_EXT2 = 4;
  1164.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT2}
  1165.   WMI_OBJ_TEXT_WMI_EXT3 = 5;
  1166.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT3}
  1167.   WMI_OBJ_TEXT_WMI_EXT4 = 6;
  1168.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT4}
  1169.   WMI_OBJ_TEXT_WMI_EXT5 = 7;
  1170.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT5}
  1171.   WMI_OBJ_TEXT_WMI_EXT6 = 8;
  1172.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT6}
  1173.   WMI_OBJ_TEXT_WMI_EXT7 = 9;
  1174.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT7}
  1175.   WMI_OBJ_TEXT_WMI_EXT8 = 10;
  1176.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT8}
  1177.   WMI_OBJ_TEXT_WMI_EXT9 = 11;
  1178.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT9}
  1179.   WMI_OBJ_TEXT_WMI_EXT10 = 12;
  1180.   {$EXTERNALSYM WMI_OBJ_TEXT_WMI_EXT10}
  1181.   WMI_OBJ_TEXT_LAST = 13;
  1182.   {$EXTERNALSYM WMI_OBJ_TEXT_LAST}
  1184. const
  1185.   IID_IWbemObjectTextSrc: TGUID = '{bfbf883a-cad7-11d3-a11b-00105a1f515a}';
  1186.   {$EXTERNALSYM IID_IWbemObjectTextSrc}
  1188. type
  1189.   IWbemObjectTextSrc = interface (IUnknown)
  1190.   ['{bfbf883a-cad7-11d3-a11b-00105a1f515a}']
  1191.     function GetText(lFlags: Longint; pObj: IWbemClassObject; uObjTextFormat: ULONG; pCtx: IWbemContext; out strText: WideString): HRESULT; stdcall;
  1192.     function CreateFromText(lFlags: Longint; strText: WideString; uObjTextFormat: ULONG; pCtx: IWbemContext; out pNewObj:IWbemClassObject): HRESULT; stdcall;
  1193.   end;
  1194.   {$EXTERNALSYM IWbemObjectTextSrc}
  1196. const
  1197.   IID_IMofCompiler: TGUID = '{6daf974e-2e37-11d2-aec9-00c04fb68820}';
  1198.   {$EXTERNALSYM IID_IMofCompiler}
  1200. type
  1201.   tag_CompileStatusInfo = record
  1202.     lPhaseError: Longint;
  1203.     hRes: HRESULT;
  1204.     ObjectNum: Longint;
  1205.     FirstLine: Longint;
  1206.     LastLine: Longint;
  1207.     dwOutFlags: DWORD;
  1208.   end;
  1209.   {$EXTERNALSYM tag_CompileStatusInfo}
  1210.   WBEM_COMPILE_STATUS_INFO = tag_CompileStatusInfo;
  1211.   {$EXTERNALSYM WBEM_COMPILE_STATUS_INFO}
  1212.   TWbemCompileStatusInfo = WBEM_COMPILE_STATUS_INFO;
  1214. type
  1215.   tag_WBEM_COMPILER_OPTIONS = DWORD;
  1216.   {$EXTERNALSYM tag_WBEM_COMPILER_OPTIONS}
  1217.   WBEM_COMPILER_OPTIONS = tag_WBEM_COMPILER_OPTIONS;
  1218.   {$EXTERNALSYM WBEM_COMPILER_OPTIONS}
  1219.   TWbemCompilerOptions = WBEM_COMPILER_OPTIONS;
  1221. const
  1222.   WBEM_FLAG_CHECK_ONLY       = $1;
  1223.   {$EXTERNALSYM WBEM_FLAG_CHECK_ONLY}
  1224.   WBEM_FLAG_AUTORECOVER      = $2;
  1225.   {$EXTERNALSYM WBEM_FLAG_AUTORECOVER}
  1226.   WBEM_FLAG_WMI_CHECK        = $4;
  1227.   {$EXTERNALSYM WBEM_FLAG_WMI_CHECK}
  1228.   WBEM_FLAG_CONSOLE_PRINT    = $8;
  1229.   {$EXTERNALSYM WBEM_FLAG_CONSOLE_PRINT}
  1230.   WBEM_FLAG_DONT_ADD_TO_LIST = $10;
  1231.   {$EXTERNALSYM WBEM_FLAG_DONT_ADD_TO_LIST}
  1232.   WBEM_FLAG_SPLIT_FILES      = $20;
  1233.   {$EXTERNALSYM WBEM_FLAG_SPLIT_FILES}
  1234.   WBEM_FLAG_STORE_FILE       = $100;
  1235.   {$EXTERNALSYM WBEM_FLAG_STORE_FILE}
  1237. type
  1238.   tag_WBEM_CONNECT_OPTIONS = DWORD;
  1239.   {$EXTERNALSYM tag_WBEM_CONNECT_OPTIONS}
  1240.   WBEM_CONNECT_OPTIONS = tag_WBEM_CONNECT_OPTIONS;
  1241.   {$EXTERNALSYM WBEM_CONNECT_OPTIONS}
  1242.   TWbemConnectOptions = WBEM_CONNECT_OPTIONS;
  1244. const
  1245.   WBEM_FLAG_CONNECT_REPOSITORY_ONLY = $40;
  1246.   {$EXTERNALSYM WBEM_FLAG_CONNECT_REPOSITORY_ONLY}
  1247.   WBEM_FLAG_CONNECT_USE_MAX_WAIT = $80;
  1248.   {$EXTERNALSYM WBEM_FLAG_CONNECT_USE_MAX_WAIT}
  1250. type
  1251.   IMofCompiler = interface (IUnknown)
  1252.   ['{6daf974e-2e37-11d2-aec9-00c04fb68820}']
  1253.     function CompileFile(FileName, ServerAndNamespace, User, Authority, Password: LPWSTR;
  1254.       lOptionFlags, lClassFlags, lInstanceFlags: LONG; var pInfo: WBEM_COMPILE_STATUS_INFO): HRESULT; stdcall;
  1255.     function CompileBuffer(buffSize: Longint; pBuffer: LPBYTE; ServerAndNamespace, User, Authority, Password: LPWSTR;
  1256.       lOptionFlags, lClassFlags, lInstanceFlags: LONG; var pInfo: WBEM_COMPILE_STATUS_INFO): HRESULT; stdcall;
  1257.     function CreateBMOF(TextFileName, BMOFFileName, ServerAndNamespace: LPWSTR;
  1258.       lOptionFlags, lClassFlags, lInstanceFlags: LONG; var pInfo: WBEM_COMPILE_STATUS_INFO): HRESULT; stdcall;
  1259.   end;
  1261. type
  1262.   tag_WBEM_UNSECAPP_FLAG_TYPE = DWORD;
  1263.   {$EXTERNALSYM tag_WBEM_UNSECAPP_FLAG_TYPE}
  1264.   WBEM_UNSECAPP_FLAG_TYPE = tag_WBEM_UNSECAPP_FLAG_TYPE;
  1265.   {$EXTERNALSYM WBEM_UNSECAPP_FLAG_TYPE}
  1266.   TWbemUnsecAppFlagType = WBEM_UNSECAPP_FLAG_TYPE;
  1268. const
  1269.   WBEM_FLAG_UNSECAPP_DEFAULT_CHECK_ACCESS = 0;
  1270.   {$EXTERNALSYM WBEM_FLAG_UNSECAPP_DEFAULT_CHECK_ACCESS}
  1271.   WBEM_FLAG_UNSECAPP_CHECK_ACCESS         = 1;
  1272.   {$EXTERNALSYM WBEM_FLAG_UNSECAPP_CHECK_ACCESS}
  1273.   WBEM_FLAG_UNSECAPP_DONT_CHECK_ACCESS    = 2;
  1274.   {$EXTERNALSYM WBEM_FLAG_UNSECAPP_DONT_CHECK_ACCESS}
  1276. type
  1277.   tag_WBEM_INFORMATION_FLAG_TYPE = DWORD;
  1278.   {$EXTERNALSYM tag_WBEM_INFORMATION_FLAG_TYPE}
  1279.   WBEM_INFORMATION_FLAG_TYPE = tag_WBEM_INFORMATION_FLAG_TYPE;
  1280.   {$EXTERNALSYM WBEM_INFORMATION_FLAG_TYPE}
  1281.   TWbemInformationFlagType = WBEM_INFORMATION_FLAG_TYPE;
  1283. const
  1284.   WBEM_FLAG_SHORT_NAME = $1;
  1285.   {$EXTERNALSYM WBEM_FLAG_SHORT_NAME}
  1286.   WBEM_FLAG_LONG_NAME  = $2;
  1287.   {$EXTERNALSYM WBEM_FLAG_LONG_NAME}
  1289. // Additional Prototypes for ALL interfaces
  1291. //unsigned long             __RPC_USER  WideString_UserSize(     unsigned long *, unsigned long            , WideString * );
  1292. //unsigned char * __RPC_USER  WideString_UserMarshal(  unsigned long *, unsigned char *, WideString * );
  1293. //unsigned char * __RPC_USER  WideString_UserUnmarshal(unsigned long *, unsigned char *, WideString * );
  1294. //void                      __RPC_USER  WideString_UserFree(     unsigned long *, WideString * );
  1296. // end of Additional Prototypes
  1298. implementation
  1300. end.