Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 494

•  TDictionary Custom Sort  6 520

•  Fast Watermark Sources  6 309

•  3D Designer  9 252

•  Sik Screen Capture  6 642

•  Patch Maker  7 019

•  Айболит (remote control)  7 024

•  ListBox Drag & Drop  5 897

•  Доска для игры Реверси  97 222

•  Графические эффекты  7 230

•  Рисование по маске  6 527

•  Перетаскивание изображений  5 396

•  Canvas Drawing  5 768

•  Рисование Луны  5 475

•  Поворот изображения  5 003

•  Рисование стержней  3 558

•  Paint on Shape  2 818

•  Генератор кроссвордов  3 695

•  Головоломка Paletto  2 976

•  Теорема Монжа об окружностях  3 782

•  Пазл Numbrix  2 492

•  Заборы и коммивояжеры  3 175

•  Игра HIP  2 142

•  Игра Go (Го)  2 078

•  Симулятор лифта  2 453

•  Программа укладки плитки  2 119

•  Генератор лабиринта  2 595

•  Проверка числового ввода  2 272

•  HEX View  2 602

•  Физический маятник  2 212

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как выяснить дату последнего доступа к файлу



Некий программист-коболист в поте лица трудился над пресловутой проблемой 2000 года. Он чинил программы во многих фирмах и зашибал приличные бабки. Но по мере приближения роковой даты его все больше охватывал ужас: что будет со всеми этими программами и с ним самим? Наконец он решил заморозиться и проспать в анабиозе до февраля 2000 года, а там, глядишь, вся свистопляска и уляжется...
...Он проснулся в странном незнакомом помещении, вокруг ликовали люди:
- Очнулся, очнулся!
- Сейчас с вами будет говорить президент Земного Шара.
На огромном стереоскопическом экране возник человек, весьма похожий на Билла Гейтса.
- Видите ли, программа вашей камеры при переходе к 2000 году сработала неправильно, и вы проспали почти 8000 лет. Но вы не волнуйтесь. Наша жизнь прекрасна. Мы достигли огромных успехов в науке и технологии. Мы покорили время и пространство. Мы...
- Но почему вы меня разморозили?
- Понимаете, приближается 10000 год, а в вашем досье указано, что вы знаете КОБОЛ.

Данная процедура, позволяет узнать дату последнего доступа к файлу, код не проверял, но говорят работает. Для тех кто не знает что с этим делать намекну, можно использовать для создания триального реиода или просто отслеживания доступа к компьютеру.


procedure TForm1.Button1Click(Sender: TObject);
var
  FileHandle: THandle;
  LocalFileTime: TFileTime;
  DosFileTime: DWORD;
  LastAccessedTime: TDateTime;
  FindData: TWin32FindData;
begin
  FileHandle := FindFirstFile('AnyFile.FIL', FindData);
  if FileHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
      FileTimeToDosDateTime(LocalFileTime,
        LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
      LastAccessedTime := FileDateToDateTime(DosFileTime);
      Label1.Caption := DateTimeToStr(LastAccessedTime);
    end;
  end;
end;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте