ВУЗ:
Составители:
15
i := Date;
DateTimeToSystemTime(i, S);
SystemTimeToFileTime(S, F);
LocalFileTimeToFileTime(F, F);
SetFileTime(Handle, @f, @f, @f);
CloseHandle(Handle);
end;
Использование процедуры SetFTime
var f: file;
begin
Assign(f, DirInfo.Name);
Reset(f);
SetFTime(f, Time);
Close(f);
end;
2. Выполнение работы
2.1. Задание на подготовку к работе
1. На своем профиле создать новую папку для хранения разрабатываемого
приложения.
2. Запустить Delphi. Среда программирования создаст «пустой» проект.
3. Записать «пустой» проект в папку на своем профиле (пункт основного меню File-
>Save Project as)
2.2. Лабораторное задание
Задача лабораторной работы – организовать защиту, основанную на ограничении
количества запусков приложения, причем значение счетчика запусков хранить в
файле, внешние характеристики которого (дата и время создания) остаются
постоянными.
3. Рекомендации при разработке приложения.
3.1 Разработайте тестовую программу, в которой в режиме диалога можно
изменить дату создания выбранного файла
3.2 Для выбора файла используйте стандартные диалоговые компоненты
TEdit, TButton, TOpenDialog.
3.3 Рекомендуемый интерфейс тестовой программы:
15 i := Date; DateTimeToSystemTime(i, S); SystemTimeToFileTime(S, F); LocalFileTimeToFileTime(F, F); SetFileTime(Handle, @f, @f, @f); CloseHandle(Handle); end; Использование процедуры SetFTime var f: file; begin Assign(f, DirInfo.Name); Reset(f); SetFTime(f, Time); Close(f); end; 2. Выполнение работы 2.1. Задание на подготовку к работе 1. На своем профиле создать новую папку для хранения разрабатываемого приложения. 2. Запустить Delphi. Среда программирования создаст «пустой» проект. 3. Записать «пустой» проект в папку на своем профиле (пункт основного меню File- >Save Project as) 2.2. Лабораторное задание Задача лабораторной работы – организовать защиту, основанную на ограничении количества запусков приложения, причем значение счетчика запусков хранить в файле, внешние характеристики которого (дата и время создания) остаются постоянными. 3. Рекомендации при разработке приложения. 3.1 Разработайте тестовую программу, в которой в режиме диалога можно изменить дату создания выбранного файла 3.2 Для выбора файла используйте стандартные диалоговые компоненты TEdit, TButton, TOpenDialog. 3.3 Рекомендуемый интерфейс тестовой программы: