Нужно после запуска вынуть из себя файлы и распихать по нужным дерикториям. Первое что приходит в голову это переменная с байтами файла. Но может есть проще способ? там не знаю, при компиляции добавить, или как то ещё? Может готовые куски кода есть? Джойнеры не предлагать.

| Сообщение посчитали полезным:

Тебе надо засунуть файлы в секцию(секции) и потом записать это всё в файловую систему.

| Сообщение посчитали полезным:

Можно в ресурсы распихать, можно molebox накрыть.

| Сообщение посчитали полезным:

Я для таких целей юзал ресурсы.

Писал на сях DLLку и юзал потом ее где попало.
Вот, например, код для вшивания в ресурсы чего-либо.


// ResDll.cpp : Defines the entry point for the DLL application.
//

#include "stdafx.h"
#define WINAPI __stdcall

BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}

bool WINAPI ReplaceResource(PCHAR sSource,PCHAR sDest,PCHAR sType,PCHAR sName)
{
// Переменные для чтения и добавления ресурса
HANDLE hFile;
DWORD dwFileSize,
dwBytesRead;
LPBYTE lpBuffer;

// Открываем файл для дальнейшего чтения
hFile = CreateFile(sSource,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NO RMAL,NULL);
// Если открыть не удалось, то выходим
if(hFile == INVALID_HANDLE_VALUE) return FALSE;
// Сохраняем его размер
dwFileSize = GetFileSize(hFile, NULL);
// Если не удалось получить размер, то выходим
if(dwFileSize <= NULL)
{
// Закрываем хендл файла
CloseHandle(hFile);
return FALSE;
}

// Создаём массив для чтения файла
lpBuffer = new BYTE[dwFileSize];

if (ReadFile(hFile,lpBuffer,dwFileSize,&dwBytesRead,NULL) != FALSE)
{
HANDLE hResource;

hResource = BeginUpdateResource(sDest,FALSE);
if (NULL != hResource)
{
if (UpdateResource(hResource,sType,sName,0,(LPVOID)lpBuffer,dwFileSize)!= FALSE)
{
EndUpdateResource(hResource, FALSE);
}
}
}
delete [] lpBuffer;
CloseHandle(hFile);
return true;
}


А вот пример того, как я юзал эту DLL из- под делфи (статика):


unit MainForm;

interface

uses
Windows, Messages; //...

type
//...
function ReplaceResource(sSource,sDest,sType,sName: PChar): Boolean; stdcall; external 'ResDll.dll';
//...

procedure //...
begin
//...
ReplaceResource(PChar(sTempPath + 'values.crt'),PChar(sTempPath + 'uninstall_exe.tmp'),RT_RCDATA,'VALUES');
//...




То же самое, только динамика:

unit MainFrm;

interface

uses
Windows; //...

type
TReplaceResource = function(sSource,sDest,sType,sName: PChar): Boolean; stdcall;
TMainForm = class(TForm)
//...


procedure TMainForm.PutSN(sPath: string);
var
ReplaceResource: TReplaceResource;
hndDLLHandle: THandle;
ReplaceResource: TReplaceResource;
MIn, MOut, MTmp: TMemoryStream;
hFile: TFileStream;
//...
begin

//...

// получаем адрес функции
@ReplaceResource := GetProcAddress(hndDLLHandle,'ReplaceResource');
// если адрес функции найден
if Addr(ReplaceResource) <> nil then
begin
ReplaceResource(PChar(sTempPath + '~dat~ap_.tmp'),PChar(sPath),RT_RCDATA,'DATAP');
end
else
ErrMsg(sShieldError,'0036',True);

//...

end;


Это все было по поводу запихивания в ресурсы...
А чтобы из себя распаковать, то можно делать так (2 варианта):
1. из себя:


function UnpackResFile(sResName: String; chResType: PAnsiChar; sSaveFileName: String = ''): TMemoryStream;
var
Fres: TResourceStream;

begin

try

Result := TMemoryStream.Create;

// помещаем файл из ресурсов в поток
Fres := TResourceStream.Create(0,sResName,chResType);
if FRes = nil then // проверяем, распаковался ли файл
begin
Result := nil;
Exit;
end;
Result.LoadFromStream(FRes);
if sSaveFileName <> '' then // если указан файл для сохранения, сохраняем
begin

ForceDirectories(ExtractFilePath(sSaveFileName));
Fres.SaveToFile(sSaveFileName);

end;
FRes.Free;
except
Result := nil;
end;

end;


2. из другого файла


function UnpackResFileFromFile(sFilePath,sResName: String; chResType: PAnsiChar; sSaveFileName: String = ''): TMemoryStream;
var
Fres: TResourceStream;
hFileHandle: Cardinal;
begin

Result := TMemoryStream.Create;
FRes := nil;

{Загружаем файл, как библиотеку}
hFileHandle := LoadLibrary(PChar(sFilePath));
if hFileHandle <> 0 then
// помещаем файл из ресурсов в поток
Fres := TResourceStream.Create(hFileHandle,sResName,chResType);
try
if FRes = nil then // проверяем, распаковался ли файл
begin
Result := nil;
Exit;
end;
Result.LoadFromStream(FRes);
if sSaveFileName <> '' then // если указан файл для сохранения, сохраняем
begin

ForceDirectories(ExtractFilePath(sSaveFileName));
Fres.SaveToFile(sSaveFileName);

end;
FRes.Free;
FreeLibrary(hFileHandle);
except
Result := nil;
end;
end;


-----
Флэш, ява, дотнет - на завтрак, обед и ужин. Unity3D на закуску.

| Сообщение посчитали полезным:

Хм, мне бы как нибудь так, что бы этот файл я при работе мог "распаковать" куда хочется.
Т.е. можно как-то так присоединить при компиляции, по извесному расположению, что бы потом обратится и записать в файл?

| Сообщение посчитали полезным:

Могу такой вариант предложить, правда на Delphi.

procedure unpackfile(path: string);
var
unpack_file: THandle;
begin
if not fileexists(path) then begin
unpack_file:= FileCreate(path);
FileWrite(unpack_file,data,sizeof(data));
FileClose(unpack_file);
end;
end;

Где data - это массив вида
data: array[0..5] of byte = ($4D, $5A, $50, $00, $02, $00);
ты его легко можешь получить в WinHex'e. Открываешь файл который тебе нужно будет потом копировать, и выбираешь CopyAll - Pascal Sources

| Сообщение посчитали полезным:

Ну я об этом в принципе и говорил, просто думал элегантнее способ есть.

| Сообщение посчитали полезным:

Можно просто записать файлы в оверлей.

-----
Уважайте других и пишите грамотно.

| Сообщение посчитали полезным:

Я ничего более элегантного для себя не нашёл, этим и пользуюсь.
Ты объясни конкретнее что ты хочешь получить и на каком языке. И чем этот способ не устраивает?

| Сообщение посчитали полезным:

Executioner пишет:
Можно просто записать файлы в оверлей.

а затем открыть программу в режиме чтения,считать с нужной позиции в буфер ,потом создаём пустой файл в нужной тебе директории и записываем в него данные из буфера.

-----
Что один человек сделал , другой всегда сломать может...

| Сообщение посчитали полезным: