Ver Mensaje Individual
  #2  
Antiguo 20-03-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.109
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Echa un vistazo a este hilo. Podrías usar un procedimiento más o menos similar a este, por ejemplo:

Código Delphi [-]
procedure ExtractFileFromResource(const resName, targetFile: string);
var
  fStream: TFileStream;
  rStream: TResourceStream;
begin
  rStream := TResourceStream.Create(hInstance, resName, RT_RCDATA);
  try
    fStream := TFileStream.Create(targetFile, fmCreate);
    try
      fStream.CopyFrom(rStream, 0);
    finally
      fStream.Free();
    end;
  finally
    rStream.Free();
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita