вывести дату обновления файла в Label

← →
ceval © (2004-05-10 19:01) [0]

Добрый вечер !
вывожу в Label дату обновления файла из dbf-файла (FoxPro)
с использыванием функции:
function GetFileDate(FileName: string): string;
var
FHandle: Integer;
begin
FHandle := FileOpen(FileName, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
Мне выдает ошибку "Invalid argument to data encode"
Подскажите в чем может быть дело??
А может кто знает другой способ вывести дату обновления файла в Label??
Зарание спасибо!!

← →
OlegGashev © (2004-05-10 19:45) [1]

function GetFileDate(FileName: string): string; var FHandle: HFILE; ofstr:OFSTRUCT; creationtime,lastaccesstime,lastwritetime:FILETIME; creationsystime,lastaccesssystime,lastwritesystime:SYSTEMTIME; begin FHandle := OpenFile(PChar(FileName),ofstr,GENERIC_READ); try GetFileTime(FHandle,@creationtime,@lastaccesstime,@lastwritetime); FileTimeToSystemTime(lastwritetime,lastwritesystime); Result := DateTimeToStr(SystemTimeToDateTime(lastwritesystime)); finally CloseHandle(FHandle); end; end;

← →
OlegGashev © (2004-05-10 19:56) [2]

Забыл дописать
begin Result:=""; ...........

← →
ceval © (2004-05-11 17:15) [3]

Простите за детский вопрос
Но мне не разу не приходилось использывать функцию
Подскажите пожалуста как ее вывести в Label
Зарание спасибо!!

← →
WebErr © (2004-05-11 17:24) [4]

Гы! :)
Label666.Caption := GetFileDate("some.dbf"); // or like this

← →
ceval © (2004-05-11 17:31) [5]

Большущие Спасибо WedErr !!!
Я недавно пытаюсь программировать на Delphi

[4] WebErr © (11.05.04 17:24)

Мне вот интересно, ты хоть иногда думаеш над ответами? Может лучше совсем не отвечать чем отвечать неправильно?

вывести дату обновления файла в Label Найти похожие ветки