Проверьте, существует ли ресурс в другом приложении в Delphi

Question

Я пытаюсь проверить, существует ли ресурс в другом приложении Delphi, проблема в том, что он знает только, как это сделать локально, я имею в виду в самом приложении.

Источник:

function exists_resource(name: string): boolean; 
begin 
    if (FindResource(HInstance, PChar(name), RT_RCDATA) <> 0) then 
    begin 
    Result := True; 
    end 
    else 
    begin 
    Result := False; 
    end; 
end; 

Как я могу проверить это в другом приложении?

Answer 1

Используйте LoadLibraryEx, чтобы загрузить внешний файл.

function exists_resource(const name, filename: string): boolean; 
var 
    HInst: THandle; 
begin 
    HInst:= LoadLibraryEx(PChar(Filename), 0, LOAD_LIBRARY_AS_DATAFILE or LOAD_LIBRARY_AS_IMAGE_RESOURCE); 
    //Win32Check(HInst); //Uncomment if you want to generate errors. 
    if HInst = 0 then exit(false); 
    try 
    Exit((FindResource(HInst, PChar(name), RT_RCDATA) <> 0)); 
    finally 
    FreeLibrary(Hinst); 
    end; {try} 
end; 

Обратите внимание, что использование LoadLibraryEx таким образом будет работать для загрузки как dll, так и exe.