Определение размера открытого файла

[Max3001]

Привет, Всем!
Такая вот нужда Определить размер открытого файла, например: определение размера работающего скомпилированного файла проекта.
При использовании функции гетфайлсайз или просто файлсайз вылетают ошибки и ответа нет.
Прошу помощи!

П. С. Ведь Windows не кричит на подобное действие, если смотрим свойства открытого файла, или просто не знаю где в таком случае собака зарыта (т. е. все заранее было записанно им).

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var FS:TFileStream;
begin
 FS:=TFileStream.Create(Application.ExeName,fmOpenRead or fmShareDenyWrite);
 ShowMessage(IntToStr(FS.Size)+' байт');
 FS.Free;
end;

[Serge_Bliznykov]

файл совсем не обязательно открывать, чтобы получить его размер!
посмотрите варианты тут

[Max3001]

SERG1980, спасибо огромное, работает на отлично!;-)

Serge_Bliznykov, дело в том, что интересовало определение размера именно открытого файла (а для определения размера не открытых в инете как раз полно примеров).

[Serge_Bliznykov]

дело в том, что интересовало определение размера именно открытого файла

А что, варианты, которые я привёл - не определяют размер ОТКРЫТОГО файла?!

Дело в том, что вариант SERG1980 открывает файл повторно в режиме РАЗДЕЛЕНИЯ. следовательно этот код ДАЛЕКО не все файлы сможет открыть.
Хотите, я приведу строку кода, вы запустите программку (она откроет файл в монопольном режиме). А потом, не закрывая её,
в другой программе попытаетесь определить размер файла Вашим способом (через открытие)? Думаю, что получите ошибку...

Впрочем, дело Ваше. Пути решения Вам подсказали, какой выбрать - это Ваше решение..

[SERG1980]

Сообщение от Serge_Bliznykov

Хотите, я приведу строку кода, вы запустите программку (она откроет файл в монопольном режиме).

Тёзка дружище, а приведи мне такую строку... просто очень интересно

[Serge_Bliznykov]

Тёзка дружище, а приведи мне такую строку... просто очень интересно

Хм, я был уверен, что Вы догадаетесь на что именно я намекаю.
вот.
на событие создания формы (Form1 - OnCreate)

procedure TForm1.FormCreate(Sender: TObject);
var FS:TFileStream;
begin
  FS := TFileStream.Create('C:\test1.txt',fmOpenRead or fmShareExclusive);
end;

запустить программу.
потом в другой программе попытайтесь узнать размер 'C:\test1.txt'

[SERG1980]

Хм, я был уверен, что Вы догадаетесь на что именно я намекаю.

про это я знаю, думал другой есть способ

[Serge_Bliznykov]

про это я знаю, думал другой есть способ

ну, фактически это обёртка над Win API

но это не существенно... самое главное, что я хотел донести,
это то, что незачем открывать файл, если информацию о его размере можно получить из файловой системы...
Кроме того, существует возможность (и, как показывает пример с эксклюзивным открытием это отнюдь не гипотетическая возможность!) получить ошибку при определении размера.
Поэтому я не вижу смысла делать менее эффективно и с возможностью получения исключения, когда можно сделать эффективнее, быстрее и более надёжно...

p.s. а это мы ещё не копнули в сторону разрешении(запретов) на право доступа к файлу. Файл может быть не открыт и виден. Но прав на его чтение у текущего процесса может просто напросто не быть...


впрочем. дискуссия затянулась.. я уже всё сказал, что хотел сказать....

[Max3001]

Сообщение от Serge_Bliznykov

А что, варианты, которые я привёл - не определяют размер ОТКРЫТОГО файла?!

Каюсь, в порыве радости от успеха предоставленного SERG1980 кода, не стал проверять, не найдя там и слова о определении размера открытого файла. :-)