[Ferra]

Пользоваться (это если ресурс был в длл)

Код:

procedure ExtractIcon(FName: String);
var
stream: TResourceStream;
begin
stream := TResourceStream.Create(LoadLibrary(pchar(Fname)), 'CD_Rom', 'Icons');
  with TFileStream.Create('test.png', fmCreate) do
  begin
  CopyFrom(stream, stream.Size);
  Free;
end;
end;  

Если в себе

Код:

procedure ExtractIcon;
var
stream: TResourceStream;
begin
stream := TResourceStream.Create(hInstance, 'CD_Rom', 'Icons');
  with TFileStream.Create('test.png', fmCreate) do
  begin
  CopyFrom(stream, stream.Size);
  Free;
end;
end;