Часть модуля:

//------------------ PART ------------------

procedure OnlyOneCopy(OnCreate: Boolean);
// Не допускаем запуска более одной копии приложения
// Следует вызвать при создании формы (true) и обязательно в OnClose формы (false)
// Если приложение завершено некорректно, то она запустится только после перезагрузки
Procedure ClearIECache;
// Очистка кэша (cookie) IE. При повторном нажатии у меня висло приложение. Переделать
function GetINetFile(const INetFileName, LocalFileName: string): Boolean;
// Получение файла из сети
function IsValidEmail(const Value: string): Boolean;
// Проверка правильности E-mail адреса
Function CheckUrl(url: string): Boolean; // Как проверить существование URL
function GIEF: TStrings; // Получаем Избранное IE

procedure CloseApp(Caption: string; force: Boolean);
// Обычное и принудительное завершение приложения
procedure KillApp(Caption: string); // Убиваем приложение по заголовку окна
function KillTask(ExeFileName: string): integer;
// Убиваем приложение по имени исполняемого модуля
procedure SHUTDOWN(force: Boolean); // Выключение компа обычное и принудительное
procedure ShutdownForce(LOGOFF: Boolean);
// Принудительное выключение или перезапуск
procedure REBOOT(EmulateDos: Boolean);
// Перезапуск системы не принудительный (с/без эмуляции DOS)

function FullRemoveDir(Dir: string; RemoveRoot: Boolean): Boolean;
// Удаление всех подкаталогов и файлов в выбранной папке (и самой папки при необходимости)
procedure DelAfterReboot(FileOrFolder: string);
// Удаление файла или папки после перезагрузки
procedure MoveAfterReboot(InFileOrFolder, OutFileOrFolder: string);
// Перемещение файла или папки после перезагрузки
procedure MoveFileOrFolder(InF, OutF: string);
// Перемещение файла или папки с перезаписью
function CopyFilePro(pb: TProgressBar; infile, outfile: string): Boolean;
// Потоковое копирование с прогрессом
// Перемещение, копирование, переим. и удаление файлов из TListBox
// (Action: FO_DELETE, FO_RENAME, FO_MOVE, FO_COPY) Используйте полные пути, иначе FOF_ALLOWUNDO не функ.
function FileOperation(FL: TListBox; ToPath: string; Action: integer;
  ToRB: Boolean): Boolean;
procedure CopyFiles(const FromFolder, ToFolder: string);
// Копирование папки с файлами и подпапками
function GetFS(const FileName: string): longint; // Определяем размер файла
procedure RegisterDLL(FN: string; Reg: Boolean = true);
// Если reg = true, то функция регистрирует DLL, иначе - дерегистрирует
procedure ClearRB; // Чистим корзинку