/////////////////////////////////////////////////////////// // GGBuildTools // // Набор утилит для сборки проектов Gipat Group // // Copyright (C) 2007 Gipat Group // // Распространяется на условиях // // Gipat Group's opened EI-editor-utility license // // версии 1.0 // // // // www.gipatgroup.org // /////////////////////////////////////////////////////////// //К работе над данным файлом приложили руки, ноги.... короче аффтары: // 1) Sagrer (sagrer@yandex.ru) //////////////////////////////////////////////////////////////////////// program UnInstaller; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { add your units here }, UnInstallerServiceClass, GGBuildToolsShared, ExtraFunctionsLcl, GGConsUtilServiceClass, ConsUtilServiceClass; begin //Проверим опции командной строки... UnInstServClass.ProcessParameters; //И запустим все на выполнение... UnInstServClass.DoWork; //Подождем нажматия любого кнопка %). if UnInstServClass.DoPause then begin Writeln('Press Enter to close application...'); Readln(); end; end.