Ver Mensaje Individual
  #1  
Antiguo 27-01-2012
orlando9427 orlando9427 is offline
Registrado
NULL
 
Registrado: nov 2010
Posts: 8
Reputación: 0
orlando9427 Va por buen camino
Como leer recursos externos

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.
Código:
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!
Responder Con Cita