Czy ktoś rozgrysł GetFileTime .Tylko nie przeczytał helpa ,a ma gotowe zastosowanie
zaspany
0
0
zaspany napisał:
Czy ktoś rozgrysł GetFileTime .Tylko nie przeczytał helpa ,a ma gotowe zastosowanie
>
Z GetFileTime jest problem, bo plik trzeba otwierać w trybie GENERIC_READ. Jeżeli chcesz odczytać datę i czas powstawnia pliku, modyfikacji i ostatniego dostępu to użyj tego.
procedure TForm1.Button1Click(Sender: TObject);
function GetLocalTime(a:tfiletime):string;
var
mtm :TSystemTime;
at :TFileTime;
ds,ts:ShortString;
begin
filetimetolocalfiletime(a,at);
filetimetosystemtime(at,mtm);
SetLength(ds, GetDateFormat(LOCALE_USER_DEFAULT, 0, @MTM, NIL, @ds[1], 255) - 1);
SetLength(ts, GetTimeFormat(LOCALE_USER_DEFAULT, time_noseconds, @MTM, NIL,
@tS[1], 255) - 1);
Result:=ds+' '+ts;
end;
var
info:TWin32FindData;
uchwyt:THandle;
begin
uchwyt:=FindFirstFile('c:\q.txt',info);
ShowMessage(GetLocalTime(info.ftCreationTime));//możesz wybrać inne niż ftCreationTime
Windows.FindClose(uchwyt);
end;--Jest jeszcze jeden błąd ... :)