Como leer recursos externos

[orlando9427]

Bueno estoy desarrollando dos aplicaciones una guarda los recursos en si misma y otra lee los recursos de esa aplicación. Ya he trabajado con la edicion y creación de recursos pero no en recursos ajenos, tengo este codigo.

function ReadSettings(sFile: PChar; var Settings: PSettings): Boolean;
var    hResInfo: HRSRC;
        hRes: HGLOBAL;
        hInst: LongInt;
begin
    Result := False;
    hInst := BeginUpdateResource(sFile, False);
    hResInfo := FindResource(hInst, RC_SETTINGS, RT_RCDATA);
    if hResInfo <> 0 then
    begin
        hRes := LoadResource(hInstance, hResInfo);
        if hRes <> 0 then
        begin
            Settings := LockResource(hRes);
            Result := True;
        end;
    end;
end;

Estuve debuggeando y BeginUpdateResource si devuelve un handle pero FindResource no, ¿alguna idea de como hacer eso? Saludos!

[[escafandra]]

Aquí tienes un ejemplo de como realizar lo que quieres con un icono.

Saludos.