Problema al Utilizar SetupDiCreateDeviceInfoList

[JoeyJordison]

Estoy tratando de utilizar SetupDiCreateDeviceInfoList pero me da error en tiempo de compilación mi codigo es el sgte:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
function CrearLista : HDEVINFO;
begin
Result:=SetupDiCreateDeviceInfoList(nil,HWND_DESKTOP);
end;
begin
if (CrearLista = INVALID_HANDLE_VALUE) then
begin
ShowMessage('La creación de la lista falló en: '+inttostr(GetLastError()));
end;
end;

pero me da error de compilación en la sgte línea:
if (CrearLista = INVALID_HANDLE_VALUE) then

me dice:
[Error] Unit1.pas(34): Operator not applicable to this operand type

[[seoane]]

El problema es que HDEVINFO esta definido de la siguiente manera:

Código Delphi [-]
  HDEVINFO = Pointer;

Prueba haciendo un typecast:

Código Delphi [-]
  if CrearLista = Pointer(INVALID_HANDLE_VALUE) then

[JoeyJordison]

Jaja eres un genio.

[JoeyJordison]

ahora tengo otra duda tengo este ejemplo de C:

hDevInfo = SetupDiGetClassDevs(NULL,0, // Enumerator0,DIGCF_PRESENT | DIGCF_ALLCLASSES );

y tengo dudas por ejemplo el caracter | delphi no me lo va a reconocer me dira caracter ilegal, que hago??

[[seoane]]

Me parece que sin saber C se te va a hacer cuesta arriba. Animo!

El simbolo "|" se corresponde con "or" en delphi

[JoeyJordison]

Ese es mi problema es que no si ni papa de C jaja yo lo habia sustituido por and Ñoooo! ! ! ! ! !

Estoy todo confundido con este codigo por ejemplo me dice

return 0;

Jamas he visto eso en delphi. que cosa es??