Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как пользоваться функциями GetFileTime и SetFileTi

Автор: ДЫМ 11.11.2004, 04:34

Код примерно такой:

Код


var  f_CreationTime, f_LastAccessTime, f_LastWriteTime: PFileTime;

...

 StreamFileIn:=TFileStream.Create(Form1.ComboBox1.Text,fmShareDenyNone);

 GetFileTime(StreamFileIn.Handle,@f_CreationTime, @f_LastAccessTime, @f_LastWriteTime);

 StreamFileOut:=TFileStream.Create(Form1.ComboBox2.Text,fmCreate);

 SetFileTime(StreamFileOut.Handle, @f_CreationTime, @f_LastAccessTime, @f_LastWriteTime);

Функции возвращают True, но значения времени новому файлу не нрисваиваются.
Почему, что не так?

Автор: <Spawn> 11.11.2004, 05:58

ДЫМ А зачем ты передаешь в фукнцию адрес указателя?

Нужно либо так:

Код


GetFileTime(StreamFileIn.Handle,f_CreationTime, f_LastAccessTime, f_LastWriteTime);

Либо так:

Код


var  f_CreationTime, f_LastAccessTime, f_LastWriteTime: TFileTime;

GetFileTime(StreamFileIn.Handle,@f_CreationTime, @f_LastAccessTime, @f_LastWriteTime);

Автор: ДЫМ 12.11.2004, 03:03

Прошу прощения, я и сам потом понял. Все равно спасибо.