[Mishko]

Уважаемые профи, при сохранении файла из электронного письма необходимо сохранить его на диске под датой, в которую он был создан. Если файл заархивирован, то все хорошо: после разархивирования дата файла = дате создания, а если нет, то дата файла = дате сохранения.

[NumLock]

Код:

BOOL SetFileTime(
    HANDLE hFile,	// identifies the file 
    CONST FILETIME *lpCreationTime,	// time the file was created 
    CONST FILETIME *lpLastAccessTime,	// time the file was last accessed 
    CONST FILETIME *lpLastWriteTime 	// time the file was last written 
   );

[Mishko]

А как узнать дату создания файла, прикрепленного к письму? Я пытаюсь узнать так, но результат CreationTime = nil

Код:

          
HFile := FileOpen(oMail.AttachmentList.Item[j].Name,fmOpenRead);
Windows.GetFileTime(HFile, CreationTime, AccessTime, WtiteTime);

[NumLock]

Код:

var
  h: Integer;
  ft: TFileTime;
  st: TSystemTime;
begin
  h:=FileOpen('Project1.dpr', fmOpenRead);
  if h=-1 then RaiseLastOSError;
  try
    if not GetFileTime(h, @ft, nil, nil) then RaiseLastOSError;
    FileTimeToSystemTime(ft, st);
    Edit1.Text:=DateTimeToStr(SystemTimeToDateTime(st));
  finally
    FileClose(h);
  end;
end;