|
Revision 58, 1.4 kB
(checked in by sagrer, 1 year ago)
|
Поправил параметр корня репозитория чтоб нельзя было коммитить без коммента.
Добавил более разветвленное дерево наследования сервисного класса консольной софтины.
|
- Property svnmailer:content-charset set to
cp1251
|
| Line | |
|---|
| 1 |
/////////////////////////////////////////////////////////// |
|---|
| 2 |
// GGBuildTools // |
|---|
| 3 |
// Набор утилит для сборки проектов Gipat Group // |
|---|
| 4 |
// Copyright (C) 2007 Gipat Group // |
|---|
| 5 |
// Распространяется на условиях // |
|---|
| 6 |
// Gipat Group's opened EI-editor-utility license // |
|---|
| 7 |
// версии 1.0 // |
|---|
| 8 |
// // |
|---|
| 9 |
// www.gipatgroup.org // |
|---|
| 10 |
/////////////////////////////////////////////////////////// |
|---|
| 11 |
|
|---|
| 12 |
//К работе над данным файлом приложили руки, ноги.... короче аффтары: |
|---|
| 13 |
// 1) Sagrer (sagrer@yandex.ru) |
|---|
| 14 |
|
|---|
| 15 |
//////////////////////////////////////////////////////////////////////// |
|---|
| 16 |
|
|---|
| 17 |
program Installer; |
|---|
| 18 |
|
|---|
| 19 |
{$mode objfpc}{$H+} |
|---|
| 20 |
|
|---|
| 21 |
uses |
|---|
| 22 |
{$IFDEF UNIX}{$IFDEF UseCThreads} |
|---|
| 23 |
cthreads, |
|---|
| 24 |
{$ENDIF}{$ENDIF} |
|---|
| 25 |
Classes |
|---|
| 26 |
{ add your units here }, forms, InstallerServiceClass, ExtraFunctionsLcl, |
|---|
| 27 |
GGBuildToolsShared, ConsUtilServiceClass, GGConsUtilServiceClass; |
|---|
| 28 |
|
|---|
| 29 |
begin |
|---|
| 30 |
//Проверим опции командной строки... |
|---|
| 31 |
InstServClass.ProcessParameters; |
|---|
| 32 |
//И запустим все на выполнение... |
|---|
| 33 |
InstServClass.DoWork; |
|---|
| 34 |
|
|---|
| 35 |
//Подождем нажматия любого кнопка %). |
|---|
| 36 |
if InstServClass.DoPause then begin |
|---|
| 37 |
Writeln('Press Enter to close application...'); |
|---|
| 38 |
Readln(); |
|---|
| 39 |
end; |
|---|
| 40 |
end. |
|---|
| 41 |
|
|---|
