Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Помогите пожалуйста как мне сделать с помощью кода например при нажатии кнопки чтобы мне выводил куда нибудь размер файла, когда был создан и когда был изменён! Заранее большое спасибо!

Вопрос задал: Kraken (статус: Посетитель) Вопрос отправлен: 5 декабря 2009, 20:50 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Жикльор

Здравствуйте, Kraken!

Для того, чтобы узнать дату создания файла, то воспользуйтесь вот такой функцией:

function GetFileDateTime(FileName: string): string;
var
FileDate: TDateTime;
begin
FileDate:=FileAge(FileName);
if FileDate = -1 then
Result:='Error!'
else
Result:=DateTimeToStr(FileDateToDateTime(FileAge(FileName)));
end;

function GetFileDate(FileName: string): string;
var
FHandle: Integer;
FileDate: TDateTime;
begin
FHandle:=FileOpen(FileName, 0);
FileDate:=FileGetDate(FHandle);
if FileDate = -1 then
Result:='Error!'
else
Result:=DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
FileClose(FHandle);
end;

function GetFileSize(FileName: String): string;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(FileName, fmOpenRead);
  except
    Result := 'Error!';
  end;
  if Result <> 'Error!' then Result := IntToStr(FS.Size);
  FS.Free;
end;

Ответ отправил: Жикльор (статус: 5-ый класс) Время отправки: 5 декабря 2009, 22:37 Оценка за ответ: 5 Комментарий к оценке: большое спасибо

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.