Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 920 • TDictionary Custom Sort 6 028 • Fast Watermark Sources 5 817 • 3D Designer 8 635 • Sik Screen Capture 6 150 • Patch Maker 6 589 • Айболит (remote control) 6 578 • ListBox Drag & Drop 5 440 • Доска для игры Реверси 95 359 • Графические эффекты 6 793 • Рисование по маске 5 963 • Перетаскивание изображений 4 967 • Canvas Drawing 5 341 • Рисование Луны 5 066 • Поворот изображения 4 606 • Рисование стержней 3 264 • Paint on Shape 2 506 • Генератор кроссвордов 3 396 • Головоломка Paletto 2 698 • Теорема Монжа об окружностях 3 493 • Пазл Numbrix 2 293 • Заборы и коммивояжеры 2 982 • Игра HIP 1 944 • Игра Go (Го) 1 858 • Симулятор лифта 2 207 • Программа укладки плитки 1 928 • Генератор лабиринта 2 368 • Проверка числового ввода 2 053 • HEX View 2 376 • Физический маятник 2 009

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

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

function GetFileDate(FileName: string): string;
var
  FHandle: Integer;
begin
  FHandle := FileOpen(FileName, 0);
  try
    Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
    FileClose(FHandle);
  end;
end;

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

Похожие по теме исходники