Also bei mir funzt das:
Delphi-Quellcode:
...
uses
System.ZLib;
...
var
LResStream: TResourceStream;
LZStream: TZDecompressionStream;
FS: TMemoryStream;
begin
LResStream := TResourceStream.Create(HInstance, 'RIBBON_LUNA', RT_RCDATA);
LZStream := TZDecompressionStream.Create(LResStream);
FS := TMemoryStream.Create;
try
* FS.CopyFrom(LZStream, LZStream.Size);
* FS.SaveToFile('C:\Users\cookie\Desktop\Luna.bmp');
finally
LZStream.Free;
LResStream.Free;
FS.Free;
end;
end;
Und das Bmp im Anhang kommt dabei heraus.
Einfach ein Ribbon auf eine Form und das ins "OnCreate". Pfad zur Datei musst du natürlich anpassen.