Gracias por la respuesta , esa API ya la conocia.....
Estoy escribiendo un codigo y aunque clo cmpila no funciona
es el siguiente
Código:
var
recurso : HRSRC;
cargado : Cardinal;
lock : PChar;
talla : DWORD;
buffer : string;
begin
//Encontramos el recurso
recurso := FindResource(0,'101','CUSTOM');
//Cargamso el rescurso
cargado := LoadResource(HINSTANCE,recurso);
//Obtenemosel un puntero al recurso
lock := LockResource(cargado);
//Obtenemos el tamaño del recurso
talla := SizeOfResource(HINSTANCE,recurso);
//Metemos el contenido del puntero con el recurso en un string
SetString(buffer , PChar(lock) , talla);
//metemos el string con la informacion del recurso en el emo
showmessage(buffer);u
end;
No veo el error , añado el recurso manualmente y solo me da un MSGBOX en bblanco , si alguien me puede ayudar!!!
Saludos!