Скачать: CL | DM;

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]

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

---

← →
rimd ©   (2004-03-26 13:02) [10]

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

---

← →
Digitman ©   (2004-03-26 13:05) [11]

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


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

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

---

← →
rimd ©   (2004-03-26 13:10) [12]

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

---

← →
Думкин ©   (2004-03-26 13:19) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.051 c