How to check if resource exists in PE and PE+ executable?

[WojTec]

How to check if resource exists in PE and PE+ executable?. I have solution that result is depended on target Windows platform, because API require module handle:

Delphi-Quellcode:

function ResourceEntryExists(const AFileName, AResourceName: string): Boolean;
var
  hModule: Cardinal;
  pResource: Pointer;
  hResource: HRSRC;
  hData: Cardinal;
begin
  Result := False;

  pResource := nil;
  hModule := LoadLibraryEx(PChar(AFileName), 0, DONT_RESOLVE_DLL_REFERENCES);

  if hModule <> 0 then
  try
    hResource := FindResource(hModule, PChar(UpperCase(AResourceName)), RT_RCDATA);
    hData := LoadResource(hModule, hResource);

    if hData <> 0 then
    try
      pResource := LockResource(hData);
      Result := pResource <> nil;
    finally
      FreeResource(hData);
    end;
  finally
    FreeLibrary(hModule);
  end;
end;

I want to have one program version. So how to make it platform independet?

[Neutral General]

Hi,

Nice code, but MSDN says you shouldn't use DONT_RESOLVE_DLL_REFERENCES because it's deprecated.
Instead you should use LOAD_LIBRARY_AS_DATAFILE or LOAD_LIBRARY_AS_DATAFILE_EXCLUSIVE.

[WojTec]

It's simplier that I thought Thanks