程法

GUID *guidDev = (GUID*)&GUID_CLASS_COMPORT;
HDEVINFO hDevInfo = INVALID_HANDLE_VALUE;

上述 C++ 法如何 Delphi 呢? Delphi Windows?API
[解决办法]
不容易啊
uses
ActiveX;

var
guidDev: TGuid;
hdevinfo: THandle;
begin
guidDev:=GUID_CLASS_COMPORT;
hdevinfo:=INVALID_HANDLE_VALUE;
end;

类似这样子吧！
[解决办法]
var
guidDev : PGUID;
hDevInfo : HDEVINFO;
begin
guidDev := PGUID(@GUID_CLASS_COMPORT);
hdevinfo:=INVALID_HANDLE_VALUE;
[解决办法]
楼上正解 。