delphi 保存导出或加载资源文件

procedure SaveResourceTofile(aFileName, aResName: string);

var

stream: TResourceStream;

begin

try

stream := TResourceStream.Create(HInstance,aResName,RT_RCDATA);

stream.SaveToFile(aFileName);

//aImage.Picture.Graphic.LoadFromStream(stream);

//stream.Free;

finally

// aImage.Picture := nil;

stream.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SaveResourceTofile('PngImage_1.png','PngImage_1');

end;

推荐分享