IS_INTRESOURCE funktioniert nicht

[Zacherl]

Ich verwende EnumResourceNames(0, RT_RCDATA, @EnumNamesFunc, 0); und meine Callback Funktion lautet so:

Delphi-Quellcode:

function EnumNamesFunc(hModule: THANDLE; lpType, lpName: PChar; lParam: DWORD):BOOL; stdcall;
var 
  Info,
  FH,
  BW: DWORD;
  FileData: TFileData;
  Params: string;
begin
  Result := True;
  if IS_INTRESOURCE(Integer(lpName)) then
    messagebox(0, pchar('int: ' + inttostr(integer(lpname))), '', 0)
    //FileData := GetFileByID(Integer(lpName))
  else
    messagebox(0, pchar('str: ' + String(lpName)), '', 0);
    //FileData := GetFileByID(StrToInt(String(lpName)));
end;