Thema: Delphi Problem mit FileRead

Einzelnen Beitrag anzeigen

barf00s
(Gast)

n/a Beiträge
 
#4

Re: Problem mit FileRead

  Alt 7. Jul 2005, 16:15
ja des .rc script würde dann wie folgt aussehen

<rc>
myEXE RC_DATA c:\foobar\program.exe
</rc>

ohne rc tags natürlich

dann kompilierst die

brcc32.exe myRC.rc

[edit] natürlich nicht vergessen dann die entstandenee .res file in dein program einzubinden über {$R myRC.res}[/edit]

und denn kannst in deinem program

Delphi-Quellcode:
var
  xRS: TResourceStream;
  xFS: TFileStream;

begin
  xRS := TResourceStream(hInstance, 'myEXE'); // oder so ähnlich - bin mir grad nich sicher
  xFS := TFileStream.Create('C:\new\blah.exe', fmCreate);
  try
    xRS.Position := 0;
    xFS.CopyFrom(xRS, xRS.Size);
  finally
    FreeAndNil(xRS);
    FreeAndNil(xFS);
  end;
end;
  Mit Zitat antworten Zitat