Что добавлено в новой версии

1.32

function EnableDebugPrivilege-дает программе привелегию SeDebugPrivilege       

1.31

function Beep Подача звукового сигнала        

1.30

function SelectFolder  Диалог выбора папки

1.24

Procedure AddPusk Создает линк в меню Пуск

1.22

Доделка SearchInDir

1.21

Function AdmPresent Показывает есть ли права Администратора
Функция QuestPrezent как выяснилось показывает не то что вы справами гостя а то что вы не справами администратора , но изменять ее работу я не стал(у меня у самого много наработок с этой функцией)
 

1.20

Изменения в CopyFil : после копирования присваивает выходному файлу время создания входного

1.19

Function WhatFileName(path:string):string; Входные данные - путь к файлу , если файла нет то выход=вход ,если файл есть то сгенерируется имя файла которого нет

Procedure MyRenFile(PathIn,PathOut:string); "Специальный" перенос файла pathin в pathout
 

1.18

Изменение в процедуре SearchInDir

1.17

Procedure DelProgramRun:Удаляет программу из автозагрузки

1.16

Function SoundPrezent {Есть ли звук в системе}
QuickCopyFile:Сначала создается путь для Fout
Function QuickLaunchDir {Путь к папке Quick Launch}
 Function AddProgramQuickLaunch:Создает линк в Quick Launch
Function WriteTest:Проверка есть ли права на запись в заданную папку
Function PathProgarmAllUser:Путь к Меню(пуск) для всех пользователей
Function PathProgarmUser:Путь к Меню(пуск) для текущего пользователя

1.14

1.function ShortToLongFileName ;   function ShortToLongPath  ;     function LongToShortFileName  ;       function LongToShortPath  {Длинные и короткие имена файлов и пути}
2.Function FullDirectoryCopy (Копирует директорию )
3 function ProgramFilesDir  {папка Program Files}
4.function MyDocDir: string;{папка Мои документы}
 

1.11-1.13

1.Procedure AddProgramRun (автозагрузка)
2.procedure SearchInDir (поиск файлов в директориях)
3.Function MyCreateDir(Dir:String) (создание директории)