ВУЗ:
Составители:
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 Рекомендуемый интерфейс тестовой программы:
