Resource in Stream schreiben?!

[SirThornberry]

habs jetzt so gelöst (abgeänderter source von irgend nem beitrag)

Delphi-Quellcode:

function PutResToStream(binresname: string; DestStream: TStream): boolean;
var
  ResSize, HG, HI: Cardinal;
begin
  result := false;
  HI := FindResource(hInstance, @binresname[1], 'BINRES');
  if HI <> 0 then
  begin
    //load resource and check the handle
    HG := LoadResource(hInstance, HI);
    if HG <> 0 then
    begin
      //check resource size (needed to copy a block of data)
      ResSize := SizeOfResource(hInstance, HI);
      //create the file
      try
        deststream.Write(LockResource(HG)^, ResSize);
        result := True;
      except end;
    end;
    FreeResource(HG);
  end;
end;