KOL SetFileTime? [Delphi, Windows]
DDA © (2003-11-21 20:42:00)
Как установить файлу определеную дату создания и изменения и
открытия
Т.е я вроде бы нашёл как это сделать
(SetFileTime)
Я определил текущую дату и время (var d:TDateTime
begin
d:=now;
end;
результат на выходе Double.
а в SetFileTime параметры все должны быть PFileTime
Вот я и немогу это преодолеть.Может кто - нибудь подскажет
Или Скажет как правельней или как лучше сделать.
Мне надо установить дату создания-текущую , дату изменения
определеную,
дату открытия -текущую
Gandalf (2003-11-21 21:16:00) [1]
А KOL тут причем? Функция из Windows.pas
// Retrieve the file times for the file.
if ( not GetFileTime(hFile, @ftCreate,
@ftAccess, @ftWrite)) then
exit;
// Convert the last-write time to local time.
FileTimeToSystemTime(ftWrite, stUTC);
SystemTimeToTzSpecificLocalTime(nil, stUTC,
stLocal);
Result:=stLocal.wDay+'.'+stLocal.wMonth+'.'+stLocal.wYear+'
'+
stLocal.wHour+':'+stLocal.wMinute+':'+stLocal.wSecond+'.'+stLocal.wMilliseconds;
ЗЫ: А API учи - пригодится!
Наверх 
ЧАТ |
Орешник |
|
