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

Установочная прога   Найти похожие ветки 

← →
SergProger   (2005-07-30 15:53) [0]

Здравствуйте, уважаемые жители и гости мира Delphi! Расскажите пожалуйста, как создать собственную установочную прогу, то есть мне надо такую прогу, в которой будут находиться некоторые файлы (архив), при запуске которой файлы будут извлекаться в заданную директорию или оставьте ссылку на страницу, где можно об этом почитать. Заранее огромное спасибо!

---

← →
Leonid Troyanovsky ©   (2005-07-30 16:13) [1]

> SergProger   (30.07.05 15:53)  

> пожалуйста, как создать собственную установочную прогу,
> то есть мне надо такую прогу, в которой будут находиться
> некоторые файлы (архив), при запуске которой файлы будут
> извлекаться в заданную директорию или оставьте ссылку на


А на зачем создавать собс-ную?

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msi/setup/about_windows_installer.asp?

--
Regards, LVT.

---

← →
Profi ©   (2005-07-30 16:24) [2]

SergProger   (30.07.05 15:53)
InnoSetup 5.18

---

← →
Poirot ©   (2005-07-30 17:02) [3]

Ну этого добра есть тут в статьях и что лучше решать тебе)))
Мне например по душе NSIS ненаю почему:)) Привык наверное и много чего нужного себе в виде плагинчиков напихал туда :))

---

← →
SergProger ©   (2005-07-30 18:31) [4]

Дело в том, что мне нужен более полный контроль над ней, создать свой, себе более удобный интерфейс и возможности. А NSIS у меня есть версии 2.06 и идущая в комплекте с Delphi. А больтше никакой информации нет?

---

← →
Defunct ©   (2005-07-30 22:28) [5]

SergProger ©   (30.07.05 18:31) [4]
> Дело в том, что мне нужен более полный контроль над ней, создать свой, себе более удобный интерфейс и возможности.

подумайте что должен делать ваш инсталлятор. Напишите алгоритм, и реализацию, займет не дольше недели. Можно даже не паковать устанавливаемые файлы оно никому не надо. Уж на Delphi-то можно создать инсталлятор на любой вкус.

---

← →
SergProger ©   (2005-07-31 00:33) [6]

Спасибо, на Delphi и операционку можно написать, а вот как объединить файлы, потом достать их, по возможности сжать и добавить индикатор установки в процентах?

---

← →
Eraser ©   (2005-07-31 00:54) [7]

SergProger ©   (30.07.05 18:31) [4]

Во всех перечисленных инсталляторах можно делать плагины, реализующие нужные навороты.

---

← →
SergP ©   (2005-08-01 04:16) [8]

> то есть мне надо такую прогу, в которой будут находиться
> некоторые файлы (архив), при запуске которой файлы будут
> извлекаться в заданную директорию


Судя по требованиям, тебе нужен всего лишь архиватор с возможностью создания SFX-архивов.

---

← →
devmaster   (2005-08-01 14:46) [9]

Запихуй файлы в ресурс типа resfile.rc

r2 rcdata d:\project\kan\mcp_install.xls
r3 rcdata d:\project\kan\ini\b_logo.gif
r5 rcdata d:\project\kan\ini\opt.gif
r6 rcdata d:\project\kan\ini\sum.gif

потом в команднеой строке выполни  brcc32.exe resfile.rc

потом доставай их в нужную папку:

  ResToFile("r2",KanPath + "\mcp_install.xls");
  ResToFile("r3",IniPath + "\b_logo.gif");
  ResToFile("r5",IniPath + "\opt.gif");
  ResToFile("r6",IniPath + "\sum.gif");

procedure ResToFile(ResName,FileName:String);
var
 ResStream: TResourceStream;
 FileStream: TFileStream;
begin
try
 ResStream:= TResourceStream.Create(HInstance,ResName,RT_RCDATA);
 try
   if FileExists(FileName) then DeleteFile(pChar(FileName));
   FileStream := TFileStream.Create(FileName, fmCreate);
   try
     FileStream.CopyFrom(ResStream, 0);
   finally
     FileStream.Free;
   end;
 finally
   ResStream.Free;
 end;
except
 on E:Exception do
 begin
   DeleteFile(FileName);
   MessageDlg(E.Message,mtError,[mbOK],0);
 end;
end;
end;

PS: Разберешся

---

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

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



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