Delphi как узнать что файл...

[Ali]

Здравствуйте программеры

у меня такой вопрос: программа по таймеру сканирует каталог

на наличие новых файлов которые туда закидывает FTP сервер и если файл

найден обработать его, как узнать что файл в каталог записан полностью ?

как вариант пытался сделать так

var

sr:TSearchRec;

begin

if FindFirst(Edit1.Text+'\'+Edit2.Text,not faReadOnly,sr)=0

then

begin

ListBox1.Items.Add(sr.Name);

while FindNext(sr)=0 do

ListBox1.Items.Add(sr.Name);

end;

FindClose(sr);

но faReadOnly не работает в win2000 , а также в listBox первой строкой записывается

.

.. второй строкой ?

вопрос как можно узнать что файл уже записан или загружен полностью,

какие атрибуты должны у него быть ?

[Сергей Плоткин]

function NormalFile(const Origin: string): boolean;var F: TFileStream;begin try   F := TFileStream.Create(Origin, fmOpenReadWrite or fmShareExclusive);   try     Result := true;   finally     F.Free;   end; except   Result := false; end;end;

[Ali]

Ok