把VC的代码转过DELPHI,有劳了,高手们!!!(50分)

请把VC的代码转过DELPHI,有劳了,高手们!!!

这篇文章中的信息适用于:
Microsoft Windows 2000 Driver Development Kit (DDK)
Microsoft Windows NT 4.0 Driver Development Kit (DDK)

概要
要得到 Windows 2000 中安装的硬件设备列表，应用程序可以调用 SetupDi 类 API 函数。
更多信息
以下代码段演示如何显示已经安装的所有硬件设备的列表：
#include <stdio.h>
#include <windows.h>
#include <setupapi.h>
#include <devguid.h>
#include <regstr.h>

int main( int argc, char *argv[ ], char *envp[ ] )
{
HDEVINFO hDevInfo;
SP_DEVINFO_DATA DeviceInfoData;
DWORD i;

// Create a HDEVINFO with all present devices.
hDevInfo = SetupDiGetClassDevs(NULL,
0, // Enumerator
0,
DIGCF_PRESENT | DIGCF_ALLCLASSES );

if (hDevInfo == INVALID_HANDLE_VALUE)
{
// Insert error handling here.
return 1;
}

// Enumerate through all devices in Set.

DeviceInfoData.cbSize = sizeof(SP_DEVINFO_DATA);
for (i=0;SetupDiEnumDeviceInfo(hDevInfo,i,
&DeviceInfoData);i++)
{
DWORD DataT;
LPTSTR buffer = NULL;
DWORD buffersize = 0;

//
// Call function with null to begin with,
// then use the returned buffer size
// to Alloc the buffer. Keep calling until
// success or an unknown failure.
//
while (!SetupDiGetDeviceRegistryProperty(
hDevInfo,
&DeviceInfoData,
SPDRP_DEVICEDESC,
&DataT,
(PBYTE)buffer,
buffersize,
&buffersize))
{
if (GetLastError() ==
ERROR_INSUFFICIENT_BUFFER)
{
// Change the buffer size.
if (buffer) LocalFree(buffer);
buffer = LocalAlloc(LPTR,buffersize);
}
else
{
// Insert error handling here.
break;
}
}

printf("Result:[%s]/n",buffer);

if (buffer) LocalFree(buffer);
}


if ( GetLastError()!=NO_ERROR &&
GetLastError()!=ERROR_NO_MORE_ITEMS )
{
// Insert error handling here.
return 1;
}

// Cleanup
SetupDiDestroyDeviceInfoList(hDevInfo);

return 0;
}
以下代码段演示如何检索系统上的所有显示适配器组：
hDevInfo = SetupDiGetClassDevs(
(LPGUID) &GUID_DEVCLASS_DISPLAY,
0,
0,
DIGCF_PRESENT);
以下代码段演示如何检索外围组件互连 (PCI) 总线上的所有设备组：
hDevInfo = SetupDiGetClassDevs(NULL,
REGSTR_KEY_PCIENUM, // Enumerator
0,
DIGCF_PRESENT | DIGCF_ALLCLASSES );
要求设备实例句柄（如 API 函数的 Config Manager 组）的 Windows API 函数可以使用 SetupDiEnumDeviceInfo 函数返回的 SP_DEVINFO_DATA 结构中的 DevInst 值。
参考
SetupDi API 调用函数归档在 Windows 2000 Device Development Kit (DDK) 中。

才50分,小气.

我改完了OK