|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как написать .EXE который будет после 5 перезагрузок удалять содержимое вр. файлов
Delphi 7
Как написать .EXE который будет после 5 перезагрузок удалять содержимое временных файлов из папок TEMP, Prefetch? |
#2
|
||||
|
||||
Вот разберись, думаю поможет
Вот разберись с этим, думаю поможет:
Код:
program trial; uses forms, unit1 in 'unit1.pas' {form1}, registry, dialogs; // Для tregistry и showmessage {$r *.res} var reg: tregistry; n: integer; begin reg := tregistry.create; with reg do begin openkey('software', true); openkey('trialprog', true); if valueexists('maxrun') then // Первый запуск? begin // - Нет n := readinteger('maxrun')-1; if n>=0 then writeinteger('maxrun', n) end else begin // -Да, первый запуск n := 5; writeinteger('maxrun', n) end; free end; if n>0 then begin application.createform(tform1, form1); application.run; end else showmessage('Исчерпано максимальное количество запусков'+ ' пробной версии программы') end. |