Установочная прога

← →
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 и операционку можно написать, а вот как объединить файлы, потом достать их, по возможности сжать и добавить индикатор установки в процентах?

SergProger © (30.07.05 18:31) [4]

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

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

Судя по требованиям, тебе нужен всего лишь архиватор с возможностью создания 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: Разберешся

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