Atachment к ехе

← →
rimd © (2004-03-26 12:19) [0]

Друзья! Как к ехе файлу прицепить другой ехе файл? Например по нажатию на батон чтоб последний ехе файл копировался куда надо.

заранее благодарен

← →
Плохиш (2004-03-26 12:28) [1]

Интересные темы проходят в институтах в марте месяце :-)

← →
rimd © (2004-03-26 12:31) [2]

Ну, Братан, поддержал!

← →
ashnurov © (2004-03-26 12:44) [3]

примерно так
procedure TMainForm.Button4Click(Sender: TObject);
var
F1, //Первый файл
F2, //Второй файл
F4, //Загрузчик
F5, //Результат
F6 : TFileStream; //Файл с инфой
F3 : File of Info;
begin
//Если файлы не заданы, то выйти из процедуры
if Edit1.text="" then Exit;
if Edit2.text="" then Exit;
//Открываем склеиваемые файлы
F1:=TFileStream.Create(Edit1.Text,fmOpenRead);
F2:=TFileStream.Create(Edit2.Text,fmOpenRead);
//Открываем загрузчик
F4:=TFileStream.Create(ExtractFilePath(Application.ExeName)+"Loader.exe",fmOpenRead);
//Создаем результирующий файл
F5:=TFileStream.Create(ExtractFilePath(Application.ExeName)+"result.exe",fmOpenWrite or fmCreate);
//Заносим в запись инфу о наших файлах
Infos.File1Size:=F1.Size;
Infos.File2Size:=F2.Size;
Infos.File1Ext:=ExtractFileExt(Edit1.Text);
Infos.File2Ext:=ExtractFileExt(Edit2.Text);
//Заносим в запись инфу о наших файлах
AssignFile(F3,ExtractFilePath(Application.ExeName)+"info.dat");
Rewrite(F3);
Write(F3, Infos);
CloseFile(F3);
//Открываем этот файл
F6:=TFileStream.create(ExtractFilePath(Application.ExeName)+"info.dat", fmOpenRead);
//Копируем в исходный файл загрузчик
F5.CopyFrom(F4,F4.Size);
//Копируем первый файл
F5.CopyFrom(F1,F1.Size);
//Копируем второй файл
F5.CopyFrom(F2,F2.Size);
//Копируем файл с информацией
F5.CopyFrom(F6,F6.Size);
//Закрываем все открытые файлы
F1.Free;
F2.Free;
F4.Free;
F5.Free;
F6.Free;
//Удаляем файл с информациией, т.к. он нам больше ненужен
DeleteFile(pchar(ExtractFilePath(Application.ExeName)+"info.dat"));
end;

end.

← →
Игорь Шевченко © (2004-03-26 12:50) [4]

Вирусы пишем на других сайтах.

← →
rimd © (2004-03-26 12:52) [5]

F3:file of Info;
Info - это что такое, из какого модуля?

← →
rimd © (2004-03-26 12:56) [6]

Это не вирус, а программа установщик

← →
Игорь Шевченко © (2004-03-26 12:59) [7]

rimd © (26.03.04 12:56)

> Это не вирус, а программа установщик

innosetup - оно лучше.

← →
ashnurov © (2004-03-26 12:59) [8]

F3:file of Info;
Info - это что такое, из какого модуля?

ну я же не буду приводить весь код.
Дальше сам догадайся.

← →
rimd © (2004-03-26 13:00) [9]

я хочу написать собственную

Ну хоть намекни

> хочу написать собственную

что уж там мелочиться ... сразу начинай с написания ОС
с "установщиком" мелковало берешь

а если не мелковато, то скачай себе исх.тексты InnoSetup (благо они открыты) и сиди изучай

Спасибо, друзья, за поддержку

В ресурсы его засунь и все.

Atachment к ехе Найти похожие ветки