Как добавить exe файл..?!

[NetSpace]

делай проще - запиши свой EXEшник в конец твоей скомпилированной программы и потом его оттуда читай, а хочешь, то можно и скопировать и запустить. или если файл небольшой, то посимвольно запиши его как константу в исходный код, типа так:

const file=CHR(72)+Chr(45)+Chr(0)+...

. Так и читается легко и упаковщиком не испоганишь твой драгоценный файл

[Человек_Борща]

Сообщение от Manhunt714

спс, более менее понятно, а чО за хелп, справка делфийский?)

в главном мененю delphi есть пункт Help тыкаешь его и там для тедя 2 важных пкнкта:
1. Delphi Help с описнием всего и вся в делфи(модули классы компоненты и т.д.)
2/ Windows SDK аналок MSDN только старый.

[asmodey1]

Надеюсь, что вы не вирус пишете
Тогда может быть сгодится:

Добавление данных в EXE файл и их чтение

На самом деле это вполне реально сделать с помощью следующего кода. Применение данному методу можно найти массу, решать вам.
Вот процедура, добавляющая какие-либо данные к существующему EXE файлу:

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
aStream: TFileStream;
iSize: Integer;
begin
Result := False;
if not FileExists(AFileName) then
Exit;
try
aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
MemoryStream.Seek(0, soFromBeginning);
// поиск конца файла
aStream.Seek(0, soFromEnd);
// копируем данные из MemoryStream
aStream.CopyFrom(MemoryStream, 0);
// сохраняем размер потока
iSize := MemoryStream.Size + SizeOf(Integer);
aStream.Write(iSize, SizeOf(iSize));
finally
aStream.Free;
end;
Result := True;
end;

А вот так эти данные можно прочитать:

function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
aStream: TFileStream;
iSize: Integer;
begin
Result := False;
if not FileExists(AFileName) then
Exit;

try
aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
// ищем позицию с которой начинаются сохраненные данные
aStream.Seek(-SizeOf(Integer), soFromEnd);
aStream.Read(iSize, SizeOf(iSize));
if iSize > aStream.Size then
begin
aStream.Free;
Exit;
end;
// ищем позицию сохраненных данных
aStream.Seek(-iSize, soFromEnd);
MemoryStream.SetSize(iSize - SizeOf(Integer));
MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
MemoryStream.Seek(0, soFromBeginning);
finally
aStream.Free;
end;
Result := True;
end;

А вот как это можно использовать:

procedure TForm1.SaveClick(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
Memo1.Lines.SaveToStream(aStream);
AttachToFile('Test.exe', aStream);
aStream.Free;
end;

procedure TForm1.LoadClick(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
LoadFromFile('Test.exe', aStream);
Memo1.Lines.LoadFromStream(aStream) ;
aStream.Free;
end;

Думаю, что с последними примерами все понятно. В данном случае мы рассмотрели сохранение данных в файле Test.exe из компонента TMemo.

[p51x]

2/ Windows SDK аналок MSDN только старый.

Надеюсь это вы так шутите.... Поскольку ВинСДК никакой не аналог МСДН и тем более не старый МСДН.

[Человек_Борща]

я имел ввиду его оффлаин версия.

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

[p51x]

Хоть оффлайн, хоть онлайе... ВинСДК нет онлайн кстати.

Microsoft® Windows® SDK — это набор средств, примеров кода, документации, компиляторов, заголовков и библиотек, которые могут использоваться разработчиками при создании приложений, работающих в операционных системах Microsoft Windows с использованием собственной (Win32) или управляемой (.NET Framework) моделей программирования.

http://msdn.microsoft.com/ru-ru/windows/ff851942

А, MSDN - это именно справочник... и как его можно еще как-то использовать?
И да, он есть онлайн.