[Code] [Delphi] Dateien im Projekt "einbinden"

procedure TForm1.Button2Click(Sender: TObject) ;
var
 rStream: TResourceStream;
 fStream: TFileStream;
 fname: string;
begin

 fname := ExtractFileDir(Paramstr(0))+'deveject.exe';
 rStream := TResourceStream.Create(hInstance, 'deveject', RT_RCDATA) ;
 try
 fStream := TFileStream.Create(fname, fmCreate) ;
 try
 fStream.CopyFrom(rStream, 0) ;
 finally
 fStream.Free;
 end;
 finally
 rStream.Free;
 end;
end;

FUNCTION tform1.DateiExtrahiertOderExistiert(ResTyp, ResName, ResZielName : STRING) : BOOLEAN;
VAR Res : TResourceStream;
BEGIN
 IF NOT FileExists(ResZielName) THEN BEGIN
 Res := TResourceStream.Create(Hinstance, ResName, PChar(ResTyp));
 TRY
 Res.SavetoFile(ResZielName);
 IF FileExists(ResZielName) THEN Result := True
 ELSE Result := False;
 FINALLY
 Res.Free;
 END;
 END
 ELSE Result := True;
END;


procedure TForm1.Button1Click(Sender: TObject);
BEGIN
 IF DateiExtrahiertOderExistiert('EXEFILE', 'deveject', ExtractFilePath(ParamStr(0)) + 'deveject.exe') THEN BEGIN
 Application.ProcessMessages;
 END;
END;