Как установить атрибуты файла?

[mtnmtn]

По команде FindFirst(SourceName, faAnyFile, SourceSR) получаю атрибуты:
SourceSR.Time,
SourceSR.Size,
SourceSR.Attr,
SourceSR.Name,
SourceSR.ExcludeAttr,
SourceSR.FindHandle,
SourceSR.FindData.
Как мне полученные атрибуты установит для другого файла определенному по FindFirst(DestinationName, faAnyFile, DestinationSR). Вариант DestinationSR.Time:=SourceSR.Time не проходит.

[Квэнди]

SetFileAttributes ('файл',атрибут);

Возможные атрибуты:
faReadOnly
faHidden
faSysFile
faVolumeID
faDirectory
faArchive
faAnyFile

[mtnmtn]

>SetFileAttributes ('файл',атрибут);
>Возможные атрибуты:
>faReadOnly
>faHidden
>faSysFile
>faVolumeID
>faDirectory
>faArchive
>faAnyFile

Да, это я знаю, но меня интересует не только установление этого атрибута, но и время и дата создания, модификации и доступа к файлу. Команда FileSetDate устанавливает только атрибут даты и времени модификации, а как время и дата создания и доступа?

[Квэнди]

Это системный параметр, выставляется системой автоматически. Никак.

[mtnmtn]

Сообщение от Квэнди

Это системный параметр, выставляется системой автоматически. Никак.

??? Вы уверены? В том же Far'е я без проблем меняю и время и дату создания, модификации, доступа... Так что, думаю, что есть средство смены. Эй, может кто-нибудь подскажет?

[Квэнди]

Ок, согласен, погорячился, ну вот так тогда :

procedure TForm1.SetTimeFile(FileName: string);
var
  FileHandle: THandle;
  st: TSystemTime;
  ft, ft1: TFileTime;
begin
  FileHandle := CreateFile(PChar(FileName),
    GENERIC_WRITE, FILE_SHARE_READ,
    nil,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  if FileHandle <> INVALID_HANDLE_VALUE then
  begin
    DateTimeToSystemTime(Now, st);
    SystemTimeToFileTime(st, ft); // converts to file time format
    LocalFileTimeToFileTime(ft, ft1);
    SetFileTime(FileHandle, nil, @ft1, nil);
    Windows.CloseHandle(FileHandle);
  end
  else 
    showmessage('Error!');
end;

[mtnmtn]

Сообщение от Квэнди

Ок, согласен, погорячился, ну вот так тогда :

procedure TForm1.SetTimeFile(FileName: string);
...

Спасибо, буду пробовать.

[_SacreD_]

А не подскажете мне, у меня что то типо TotalCommander, короче фаловый менеджер... Мне надо отбразить файлы с разными атрибутами, вот кусочек в котором я пытаюсь узнать какой атрибут у файла

if ((attr and faSymLink)<>0) and (S=0) then
             begin
                ImageIndex:=4;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
             end;
          if ((attr and faReadOnly)<>0) and (S=0) then
             begin
                ImageIndex:=1;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
            end;
           if ((attr and faVolumeID)<>0) and (S=0) then
             begin
                ImageIndex:=4;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
            end;
           if ((attr and faHidden)<>0)and (S=0) then
             begin
                ImageIndex:=3;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
             end;
           if ((attr and faSysFile)<>0) and (S=0) then
             begin
                ImageIndex:=1;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
            end;
            if ((attr and faArchive)<>0) and (S=0) then
             begin
                ImageIndex:=5;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
             end;

Короче говоря, у меня определяет только 3 вида атрибутов, архив, системный и скрытый, причем архивный атрибут у всех практически файлов... Очень прошу помогите мне сделать нахождение атрибута корректным, для того что бы отобразить картинку для него...

И ещё, хотелось бы узнать, например хочу отображать файлы с расширением avi, или каким либо другим, как это можно сделать? заранее спасибо!!!