Install
Подскажите как можно для программы сделать установочную систему без специальных для этого программ
Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
И где здесь программа переименовывается?
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
И где здесь программа переименовывается?
Цитата:
Originally posted by bnm
Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
И где здесь программа переименовывается?
Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
И где здесь программа переименовывается?
Сам сделай! Это же дельфи!! Тут всё возможно!
Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
Большая просьба, если можешь напиши как здесь
вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL, тогда может я и вдуплюсь.
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
Большая просьба, если можешь напиши как здесь
вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL, тогда может я и вдуплюсь.
Цитата:
Originally posted by bnm
Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
Большая просьба, если можешь напиши как здесь
вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL, тогда может я и вдуплюсь.
Application.Initialize;
if UpperCase(ExtractFileName(Application.ExeName))='SETUP.EXE' then
// форма инсталлятора
Application.CreateForm(TSetupForm, SetupForm)
else
// форма основной программы
Application.CreateForm(TMainForm, MainForm);
Application.Run;
Большая просьба, если можешь напиши как здесь
вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL, тогда может я и вдуплюсь.
Чот я не понял с какими ключами??? Зачем делать вообще так??? Экномия места чтоли???
Скачал бы себе маленький инсталятор и не парься!!!
Их щас мноого развелось! А если размер не имеет значения, то пользуйся Instalisheid Expresss Borland Free Edition ;)
А так можно использовать зип архив из дельфи...
А для анинстала сделать отдельную прогу без VCL
чтоб места не занимала! Пусть читает иник и деделе файл так сказать...
Цитата:
Originally posted by bnm
Большая просьба, если можешь напиши как здесь
вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL, тогда может я и вдуплюсь.
Большая просьба, если можешь напиши как здесь
вместо переименования можно запускать программу с различными ключами, например /INSTALL и /UNINSTALL, тогда может я и вдуплюсь.
Именно, как запускать програму с ключами или обработать эти самые ключи в теле программы???
Если "обработать' - то функция Paramstr(i):string;
Paramstr(0) - даст тебе имя текущего запущенного файла с полным путем к нему.
Paramstr(1) - первый параметр... и т.д.
Цитата:
Originally posted by bnm
Подскажите как можно для программы сделать установочную систему без специальных для этого программ
Подскажите как можно для программы сделать установочную систему без специальных для этого программ
Вот пример :