Write a file into the Executable at runtime BCB 6

[ironslave]

does anyone know how i would go about trying to Write a file into the Executable at runtime?

I cant find any information on this.... but then again i cant find any information on borland c++ builder at all... everyone is all about delphi

 

[2ffat]

does anyone know how i would go about trying to Write a file into the Executable at runtime?

Can you please elaborate on this? I'm not sure I understand.


James P. Cottingham
[sup]I'm number 1,229!
I'm number 1,229![/sup]

 

[ironslave]

I am trying to attach a file to the executable durring runtime.

like attaching a resource at runtime. I would select a file and the program would store it within itself.

This component is what I am looking to do but on a way more basic level

http://www.batchconverter.com/BindtoEXElibrary-download-10299.shtml

 

[2ffat]

Look and see if this discussion is what you are looking for.

James P. Cottingham
[sup]I'm number 1,229!
I'm number 1,229![/sup]

 

[ironslave]

that is exactly what i was looking for, but that is confusing to understand, i have the code in my test program and it executes.... but the filesize of the program never changes and it messes up the file I am trying to upload...


---------------my version--------------
String Nome;
TCHAR Temp[MAX_PATH+1] = {0};
GetTempPath(MAX_PATH, Temp);


Nome = "C:\\wtf.exe";

TResourceStream *Resource = new TResourceStream((unsigned)HInstance, "STUB", RT_RCDATA);
Resource->SaveToFile(Nome);
delete Resource;

HANDLE H = BeginUpdateResource( "C:\\wtfe.exe", TRUE);
HANDLE FH = CreateFile("C:\\wtfe.exe", GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
DWORD Size = GetFileSize(FH, NULL);

BYTE *Buf = new BYTE[Size];

DWORD BR;
ReadFile(FH, Buf, Size, &BR, NULL);

CloseHandle(FH);
// i dont understand where it is saving this file?
UpdateResource(H, RT_RCDATA, "WTFE.exe" ,MAKEWORD(LANG_NEUTRAL, SUBLANG_NEUTRAL), Buf, Size);
delete[] Buf;
EndUpdateResource(H, FALSE);

----------------their version--------------------
String Nome;

if( Listview1->Items->Count < 2 )
return;

if( Form4->ShowModal() == 2 )
return;

TCHAR Temp[MAX_PATH+1] = {0};
GetTempPath(MAX_PATH, Temp);

Form4->Image1->Picture->Icon->SaveToFile(String(Temp) + "icone.ico");
case( Form4->RadioGroup1->ItemIndex )
{
case 0:
Nome = "exe";
break;
case 1:
Nome = "scr";
break;
case 2:
Nome = "com";
break;
case 3:
Nome = "bat";
break;
case 4:
Nome = "pif";
break;
case 5:
Nome = "cmd";
break;
}

Nome = ExtractFilePath(ParamStr(0)) + "Bindado." + Nome;

TResourceStream *Resource = new TResourceStream(HInstance, "STUB", RT_RCDATA);
Resource->SaveToFile(Nome);
delete Resource;

HANDLE H = BeginUpdateResource(Nome.c_str(), TRUE);
for(int I = 0; I < ListView1->Items->Count; ++I)
{
TListItem *Item = ListView1->Items->Items;

HANDLE FH = CreateFile(Item->SubItems->Strings[2].c_str(), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
DWORD Size = GetFileSize(FH, NULL);

BYTE *Buf = new BYTE[Size];

DWORD BR;
ReadFile(FH, Buf, Size, &BR, NULL);

CloseHandle(FH);

UpdateResource(H, RT_RCDATA, (Item->SubItems->Strings[0] + Item->SubItems->Strings[1] + Item->Caption).UpperCase().c_str(), MAKEWORD(LANG_NEUTRAL, SUBLANG_NEUTRAL), Buf, Size);
delete[] Buf;
}
EndUpdateResource(H, FALSE);

 

[2ffat]

You probably ought to post at BCBJournal's site since they provided the code.

James P. Cottingham
[sup]I'm number 1,229!
I'm number 1,229![/sup]