1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function ExtractRes(ResType, ResName, ResNewName: string): Boolean;
var
  Res: TResourceStream;
begin
  //Result := False;
  Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType));
  try
    Res.SavetoFile(ResNewName);
    Result := True;
  finally Res.Free end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure HlpStart;
var
  HLP_FILE: String;
begin
  //GetTempDir ist eine Funktion die den Temp-Pfad zurück gibt
  HLP_FILE := GetTempDir + 'Hilfe.hlp';

  if ExtractRes('HLPFILE', 'FILE', HLP_FILE) then
      ...
end;					

1:

FILE HLPFILE Hilfe.hlp					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

{ RC-Datei }
/****************************************************************************
ProtelText.rc
*****************************************************************************/

PROTELOPTIONS  RCDATA  res\ProtelOptions.txt
PROTELCLASSES  RCDATA  res\ProtelClasses.txt
PROTELRULES  RCDATA  res\ProtelRules.txt

{ in dpr }
{$R 'res\ProtelText.res' 'res\ProtelText.RC'}
{%File 'res\ProtelClasses.txt'}
{%File 'res\ProtelOptions.txt'}
{%File 'res\ProtelRules.txt'}

{ ich habe die Files mit ins Projekt aufgenommen, damit sie überwacht werden - sonst passiert bei Änderungen einfach nichts }

{im Programm }
function TCPAProtelFile.PutFileFromResource (ResName : PChar) : boolean;
var RStream : TResourceStream;
    RResult : longint;
    buffer : string [130];
    done : boolean;
    nch : Char;
begin
Result := false;
buffer := StrPas (ResName);
RStream := TResourceStream.Create (HInstance, buffer, RT_RCDATA);
if not Assigned (RStream) then exit;
Result := true;
done := false;
buffer := '';
repeat
  RResult := RStream.Read (nch,1);
  if RResult = 0 then done := true else
  {...}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function TCPAProtelFile.PutFileFromResource (ResName : PChar) : boolean;
var ...
begin
  Result := false;
  RStream := TResourceStream.Create (HInstance, ResName, RT_RCDATA);
  try
    // was auch immer ..
  finally
    RStream.Free;
  end;
end;