Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Установочная прога [D7, Win95/98, WinME]

SergProger © (2005-07-30 15:53:00)
Здравствуйте, уважаемые жители и гости мира Delphi! Расскажите пожалуйста, как создать собственную установочную прогу, то есть мне надо такую прогу, в которой будут находиться некоторые файлы (архив), при запуске которой файлы будут извлекаться в заданную директорию или оставьте ссылку на страницу, где можно об этом почитать. Заранее огромное спасибо!

devmaster (2005-08-01 14:46:00) [1]
Запихуй файлы в ресурс типа 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: Разберешся

SergP (2005-08-01 04:16:00) [2]

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

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

Eraser (2005-07-31 00:54:00) [3]
SergProger © (30.07.05 18:31) [4]

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

SergProger (2005-07-31 00:33:00) [4]
Спасибо, на Delphi и операционку можно написать, а вот как объединить файлы, потом достать их, по возможности сжать и добавить индикатор установки в процентах?

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

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

SergProger (2005-07-30 18:31:00) [6]
Дело в том, что мне нужен более полный контроль над ней, создать свой, себе более удобный интерфейс и возможности. А NSIS у меня есть версии 2.06 и идущая в комплекте с Delphi. А больтше никакой информации нет?

Poirot (2005-07-30 17:02:00) [7]
Ну этого добра есть тут в статьях и что лучше решать тебе)))
Мне например по душе NSIS ненаю почему:)) Привык наверное и много чего нужного себе в виде плагинчиков напихал туда :))

Profi (2005-07-30 16:24:00) [8]
SergProger (30.07.05 15:53)
InnoSetup 5.18

Leonid Troyanovsky (2005-07-30 16:13:00) [9]

> 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.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »