| orlando9427 |
27-01-2012 00:51:00 |
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! |
