Installer программы для создания установки.

← →
Cerberus © (2006-11-05 22:32) [0]

Где скачать нормальный сабж.

← →
Gero © (2006-11-05 22:35) [1]

Inno Setup

← →
ANTPro © (2006-11-05 22:41) [2]

NSIS

← →
Anatoly Podgoretsky © (2006-11-05 22:42) [3]

> Cerberus (05.11.2006 22:32:00) [0]

С Дельфи идет.

А что такое не нормальный?

← →
Ice © (2006-11-05 22:44) [4]

Не, правильно Gero говорит - Inno Setup рулит.

← →
KilkennyCat © (2006-11-05 22:49) [5]

> [4] Ice © (05.11.06 22:44)

Анатолий тоже правильно говорит...

и я еще кучку могу правильно назвать, но... аффтар мало дал информации. могу предположить, что он хочет что-то простое.

← →
Sergey Masloff (2006-11-05 22:50) [6]

В интернете скачать, где ж еще. Вот что-другой вопрос. Не знаю как кучу пяток и я назову. Инно Сетап кстати вполне приличный представитель.

← →
antonn © (2006-11-05 22:52) [7]

winrar

← →
Ice © (2006-11-05 22:56) [8]

Я тоже себе долго инсталлера выбирал. Если вкусы у всех разные, то..
Cerberus просто качай все подряд из сети и смотри, что тебе больше походит.
>С Дельфи идет.
А вот Install Sheld я никому не посоветую - слишком уж большой размер получаемого файла.

← →
Vga © (2006-11-05 23:08) [9]

NSIS - мощный, хорошее сжатие, очень маленький ехе-stub (24кб - меньше просто не видел с подобной функциональностью) и асмообразный скрипт-язык описания инсталляций. nsis.sf.net
Inno Setup - мощный, хорошее сжатие, большой exe-stub (~300kb), иниобразный язык описания инсталляции+возможность написания скриптов на паскале. www.jrsoftware.org
CreateInstall Free - сравнительно простой инсталлер с созданием инсталляции в мастерообразном виде, приличное сжатие, stub порядка 100кб (или может больше). www.createinstall.com
Ну и куча других есть конечно. Есть и скрипт-генераторы для NSIS & Inno Setup.
Install Shield Express, поставляемый с Delphi - мне не нравится, огромнsq stub"а порядка 3Мб, плюс он почему-то не хочет сам себя деинсталлировать (прилагающийся к D7).

← →
Gero © (2006-11-05 23:14) [10]

Я использую Inno Setup в связке с ISTool.

← →
Cerberus © (2006-11-05 23:49) [11]

Точнее где скачать поменьше по проще и по симпатичниее.

← →
Cerberus © (2006-11-05 23:50) [12]

Да кстате бесплатную полностью.

← →
Орион © (2006-11-05 23:56) [13]

> [12] Cerberus © (05.11.06 23:50)

www.jrsoftware.org
бесплатная полностью, симпатичная, но достаточно объемная (но не забывай: мы в 21 веке живем :)

← →
Gero © (2006-11-05 23:57) [14]

> [11] Cerberus © (05.11.06 23:49)
> Точнее где скачать

Здесь есть: http://dmclient.org.ru/gero/whatis.php?text=Inno+Setup

← →
VirEx © (2006-11-06 00:11) [15]

пример:

program Setup;

uses
Windows;

{$R RESOURCE.RES}

{$I-}
const
InfFile : array[0..70] of string =
( "[Version]",
"Signature=$Chicago$",
"Provider=%Author%",
"[DefaultInstall]",
"CopyFiles=Hotkeys.Files.Install",
"UpdateInis=Hotkeys.Add.Inis",
"AddReg=Hotkeys.Add.Reg",
"[DefaultUnInstall]",
"DelFiles=Hotkeys.Files.UnInstall",
"UpdateInis=Hotkeys.Del.Inis",
"DelReg=Hotkeys.Del.Reg",
"[DestinationDirs]",
"Hotkeys.Files.Install=24,%InstallDir%",
"Hotkeys.Files.UnInstall=24,%InstallDir%",
"Hotkeys.Files.Other=24,%InstallDir%",
"[SourceDisksNames]",
"1="%Hotkeys%","",1",
"[SourceDisksFiles]",
"HOTKEYS.EXE=1",
"HKRESTRT.EXE=1",
"HKTODOS.PIF=1",
"HOTKEYS.HLP=1",
"HOTKEYS.HKD=1",
"SETUP.EXE=1",
"[Hotkeys.Files.Install]",
"HOTKEYS.EXE",
"HOTKEYS.HLP",
"HOTKEYS.HKD,,,16",
"HKRESTRT.EXE",
"HKTODOS.PIF",
"UNINSTAL.EXE,SETUP.EXE",
"[Hotkeys.Files.UnInstall]",
"HOTKEYS.EXE",
"HOTKEYS.HLP",
"HOTKEYS.HKD",
"HKRESTRT.EXE",
"HKTODOS.PIF",
"HOTKEYS.GID",
"HOTKEYS.FTS",
"HOTKEYS.INI",
"HKSETUP.INF",
"UNINSTAL.EXE,,,1",
"[Hotkeys.Add.Inis]",
"setup.ini, progman.groups,, "group1=""Hotkeys"""",
"setup.ini, group1,, """%Hotkeys%"", ""%24%\%InstallDir%\HOTKEYS.EXE"",,,,,%Hotkeys%",
"setup.ini, group1,, """%Hothelp%"", ""%24%\%InstallDir%\HOTKEYS.HLP"",,,,,%Hothelp%",
"setup.ini, group1,, """%Hotinst%"", ""%24%\%InstallDir%\UNINSTAL.EXE"",""%24%\%InstallDir%\UNINSTAL.EXE"",1,,,%Hotinst%",
"[Hotkeys.Del.Inis]",
"setup.ini, progman.groups,, "group1=""Hotkeys"""",
"setup.ini, group1,, """%Hotkeys%""",
"setup.ini, group1,, """%Hothelp%""",
"setup.ini, group1,, """%Hotinst%""",
"[Hotkeys.Add.Reg]",
"HKLM,%UIF%",
"HKLM,%UIF%,DisplayName,,"%Hotkeys% %Version%"",
"HKLM,%UIF%,UninstallString,,"%24%\%InstallDir%\UNINSTAL.EXE"",
"HKLM,%RUN%,Hotkeys,,"%24%\%InstallDir%\HOTKEYS.EXE"",
"HKLM,%RNO%,Hotkeys,,"%24%\%InstallDir%\UNINSTAL.EXE RunHotkeys"",
"[Hotkeys.Del.Reg]",
"HKLM,%UIF%",
"HKLM,%RUN%,Hotkeys",
"[Strings]",
"Hotkeys="Hotkeys"",
"Version="version 1.4"",
"Hothelp="Hotkeys Help"",
"Hotinst="Hotkeys Uninstall"",
"InstallDir="Progra~1\Hotkeys"",
"Author="SheAr software"",
"UIF="Software\Microsoft\Windows\CurrentVersion\Uninstall\Hotkeys"",
"RUN="Software\Microsoft\Windows\CurrentVersion\Run"",
"RNO="Software\Microsoft\Windows\CurrentVersion\RunOnce"");

function IsWinNT: Boolean;
var
OsVersionInfo: TOSVersionInfo;
begin
OsVersionInfo.dwOSVersionInfoSize := sizeof(TOsVersionInfo);
GetVersionEx(OsVersionInfo);
Result := OsVersionInfo.dwPlatformID = VER_PLATFORM_WIN32_NT;
end;

function GetWinDir: String;
var
Buf: array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)]<>"\" then Result := Result + "\";
end;

function GetAppDir: String;
begin
Result := ParamStr(0);
while (Result<>"") and (Result[Length(Result)]<>"\") do Delete(Result, Length(Result), 1);
end;

function WinExecAndWait(FileName: String; Visibility: Integer): Cardinal;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil, PChar(FileName), nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
Result := Cardinal(-1)
else
begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;

var
F : Text;
Command, AppDir: String;

const
InfFileName = "HKSETUP.INF";

procedure ExportInfFile;
var
i : integer;
begin
AssignFile(F, AppDir + InfFileName);
Rewrite(F);
for i:=Low(InfFile) to High(InfFile) do WriteLn(F, InfFile[i]);
CloseFile(F);
end;

procedure CloseHotkeys;
var
hwndHotkeys: THandle;
const
WM_USER = $0400;
WM_QUITHOTK = WM_USER+2004;
begin
hwndHotkeys := FindWindow("TfrmHotkeyEdit", nil);
if hwndHotkeys<>0 then
begin
SendMessage(hwndHotkeys, WM_QUITHOTK, WM_QUITHOTK, 0);
Sleep(500);
end;
end;

begin
AppDir := GetAppDir;

if IsWinNT then
Command := "rundll32.exe setupapi"
else
Command := "rundll.exe setupx.dll";

Command := Command + ",InstallHinfSection Default";

if ParamStr(1)="RunHotkeys" then
WinExec(PChar(Copy(GetWinDir, 1, 3) + "PROGRA~1\HOTKEYS\HOTKEYS.EXE"), SW_SHOW)
else if Pos("UNINSTAL.EXE", CharUpper(PChar(ParamStr(0))))>0 then
begin
if MessageBox(0, "Are you sure you want to completely remove the Hotkeys application from your system?", "Hotkeys Uninstall", MB_ICONQUESTION or MB_YESNO)=IDYES then
begin
CloseHotkeys;
// Deletes the hotkeys application
ExportInfFile;
WinExecAndWait(Command +"Uninstall 132 " + AppDir + InfFileName, SW_SHOW);
DeleteFile(PChar(ParamStr(0)));
end;
end
else
begin
if MessageBox(0, "This will install the Hotkeys application on your harddisk. Press ""Ok"" to continue with installation or ""Cancel"" to cancel the installation.", "Hotkeys Installation", MB_OKCANCEL)=IDOK then
begin
CloseHotkeys;
ExportInfFile;
WinExecAndWait(Command + "Install 132 " + AppDir + InfFileName, SW_SHOW);
Erase(F);
end;
end;
end.

← →
Cerberus © (2006-11-06 00:12) [16]

> Gero © (05.11.06 23:57) [14]

Весело. Но после дня поисков и затраченных часов скачивания на диал апе звучит не много обидно.

← →
Vga © (2006-11-06 00:15) [17]

> [11] Cerberus © (05.11.06 23:49)

Пробуй CreateInstall Free. www.createinstall.com.
Остальные две, упомянутые мной, посложнее, да и побольше размером собственного дистра.

← →
Ketmar © (2006-11-06 00:16) [18]

>[16] Cerberus(c) 6-Nov-2006, 00:12
>Весело. Но после дня поисков и затраченных часов
>скачивания на диал апе звучит не много обидно.
разрешаем обидеться. на ближайшей пятиминутке ненависти получишь релаксацию.

← →
Gero © (2006-11-06 00:26) [19]

> [16] Cerberus © (06.11.06 00:12)

Ты ходил по ссылке? Проследовал инструкциям?
И все равно тебе понадобился день поисков и без результата? Тогда тебе ничего не поможет, увы.

← →
_uw_ (2006-11-06 00:41) [20]

http://www.sminstall.com/rus/

← →
Vga © (2006-11-06 01:08) [21]

> [20] _uw_ (06.11.06 00:41)

Он не бесплатный. См. [12]

← →
_uw_ (2006-11-06 01:35) [22]

Для наших людей - бесплатный. См. внизу закладки "Регистрация".
Вообще-то, хороший инсталлятор, но по моей просьбе они поправили маленький недостаток, и программа работать перестала. Думаю, завтра уже все будет хорошо.

← →
unknown © (2006-11-06 02:20) [23]

Inno. Без вариантов =)
http://www.jrsoftware.org/isinfo.php

← →
Ketmar © (2006-11-06 02:47) [24]

>[22] _uw_ 6-Nov-2006, 01:35
>Вообще-то, хороший инсталлятор, но по моей просьбе они
>поправили маленький недостаток, и программа работать
>перестала.
плакалъ.

Вот что мне в Inno setup понравилось - простота использования. Всего 1 час
потратил на разборку с программой. Из этого времени - 90% общение со
справкой. Сейчас на создание пакета - минут 5-10. Конечно, можно и больше
времени затратить, если будет необходимость какие - нибудь мудреные скрипты
писАть.

> [22] _uw_ (06.11.06 01:35)

Угу. Всего-то ходить на сайт каждые две недели за новым бесплатным ключом. Уж лучше CreateInstall Free. То же самое, но регистрация есть только платная, а для работы в бесплатном режиме никаких ключей не надо. Разница между платным и бесплатным режимом та же - в бесплатной версии нельзя править текст "CreateInstall Free" внизу.

> [25] unknown © (06.11.06 03:05)

Да, скрипт довольно простой, плюс лично я всегда пользуюсь мастером создания скриптов - за пару минут получаешь почти готовую болванку для скрипта.

← →
_uw_ (2006-11-06 09:42) [28]

← →
_uw_ (2006-11-06 13:52) [29]

Ну вот, уже все и поправили! Если серьезно, то инсталлятор и в самом деле хорош, особенно для начинающих. То, что раз в три недели нужно обновлять ключ, так это пустяк - мы каждый день по многу раз смотрим этот форум - и как бы все нормально. А можно и не обновлять, а купить за 400 р. и тем самым поддержать отечественного производителя :)

а можно взять бесплатный Inno Setup и не поддерживать спекулянтов.

> [28] _uw_ (06.11.06 09:42)

Я придираюсь, но не к тебе, а к инсталлеру. Две недели, не три... Я лично по описанию особой разници с CI Free не вижу, зато CI Free не просит каждые две недели за ключом ходить :)
Ну и NSIS по любому их обоих круче :)

← →
_uw_ (2006-11-06 19:14) [32]

Vga © (06.11.06 17:28) [31]

Не, все же ты придираешься ко мне :) Вот я установил ключ 1-го числа, а сегодня оно мне говорит, что осталось 14 дней. Это сколько получается?

> [32] _uw_ (06.11.06 19:14)

Где-то глюки. Либо у девелоперов на сайте, либо в софте.
В любом случае, бесплатные IS & NSIS рулят.

Посмотрел Smart Install Maker. Очень похоже на CreateInstall Free.

Installer программы для создания установки. Найти похожие ветки