в ХР работает без проблем, а вот в 98 вызывает ошибку, использую FileStream, но ни так и ни эдак

А с блоком

Код

try finally end;

пробовал?

Не те флаги в конструкторе TFileStream используешь.

FindFirst

TSearchRec переменная будет иметь поле типа TWin32FindData - этот тип содержит нужную инфо. Так как файл вообще не открывается, то можно посмотреть размер даже Swap'а

спасибо Vit
Song все перебрал ошибка... и нуль
acp ну какой от него толк если я не узнаю всеравно его размер

А какая ошибка-то?

Цитата(Song @ 14.5.2003, 16:39)

А какая ошибка-то?

что мол "нелзя открыть файл, т.к. он занят др. процессом" это понятно, но в ХР работает без ошибок.

А.. ясно. В w9x не получится. Он не умеет просматривать файлы, открытые монопольно. Кстати NT тоже не умеет, но там применена хитрость: он читает не сам файл, а его отображение в памяти, поэтому тут без глюков происходит.

Короче, не парься - я же сказал как работает, если пример надо, то в нашем FAQ есть моя статья "Всё о файлах" - там есть все примеры работы. Кстати, где-то в FAQ есть и моя заметка, как прочитать размер файла, если он больше 4 Gb.

Ежели кому интересно, я нашёл такую хитрость: Вынь 2000 или ХР открывает файл для чтения, если он уже кем-то открыт, только через TFileStream, а старым паскалевским методом (assignfile, reset, closefile) - выдаёт ошибку. А вот Вынь 98 наоборот! В данном случае, тебе уже дали ответ, а на будущее, если возникнет такая проблемка, или определяй версию Вынь, после чего выполняй соответствующие процедуры, либо ставь что-то вроде
try
{Через FileStream}
...
except
{Паскалевским методом}

Shuricksoft к сожелению и это не работает, я не буду париться, и сделаю через TSearchRec

Цитата(Shuricksoft @ 15.5.2003, 01:50)

а старым паскалевским методом (assignfile, reset, closefile) - выдаёт ошибку.

Там тоже можно установить уровень доступа и будет работать, а по умолчанию используется доступ для записи и конечно система блокирует этот вызов.

если честно, то я не знаю (и не знал) как установить уровень доступа. покажите как это сделать.
а версию винды я определяю тремя строками ассемблера

Цитата(Monty @ 15.5.2003, 06:47)

если честно, то я не знаю (и не знал) как установить уровень доступа.

См. системную переменную "FileMode"

Спасибо всем. FileMode := 0 и все без ошибок, в ХР тоже.

Лучше пользуйтесь функцией API (ко всему прочему, поддреживает файлы размеров более 2 и даже 4 ГБ):
The GetFileSize function retrieves the size, in bytes, of the specified file.

DWORD GetFileSize(

HANDLE hFile, // handle of file to get size of
LPDWORD lpFileSizeHigh // address of high-order word for file size
);


Parameters

hFile

Specifies an open handle of the file whose size is being returned. The handle must have been created with either GENERIC_READ or GENERIC_WRITE access to the file.

lpFileSizeHigh

Points to the variable where the high-order word of the file size is returned. This parameter can be NULL if the application does not require the high-order word.



Return Values

If the function succeeds, the return value is the low-order doubleword of the file size, and, if lpFileSizeHigh is non-NULL, the function puts the high-order doubleword of the file size into the variable pointed to by that parameter.
If the function fails and lpFileSizeHigh is NULL, the return value is 0xFFFFFFFF. To get extended error information, call GetLastError.
If the function fails and lpFileSizeHigh is non-NULL, the return value is 0xFFFFFFFF and GetLastError will return a value other than NO_ERROR.

Remarks

You cannot use the GetFileSize function with a handle of a nonseeking device such as a pipe or a communications device. To determine the file type for hFile, use the GetFileType function.
The GetFileSize function obtains the uncompressed size of a file. Use the GetCompressedFileSize function to obtain the compressed size of a file.
Note that if the return value is 0xFFFFFFFF and lpFileSizeHigh is non-NULL, an application must call GetLastError to determine whether the function has succeeded or failed. The following sample code illustrates this point:

//
// Case One: calling the function with
// lpFileSizeHigh == NULL

// Try to obtain hFile's size
dwSize = GetFileSize (hFile, NULL) ;

// If we failed ...
if (dwSize == 0xFFFFFFFF) {

// Obtain the error code.
dwError = GetLastError() ;

// Deal with that failure.
.
.
.

} // End of error handler


//
// Case Two: calling the function with
// lpFileSizeHigh != NULL

// Try to obtain hFile's huge size.

dwSizeLow = GetFileSize (hFile, & dwSizeHigh) ;

// If we failed ...
if (dwSizeLow == 0xFFFFFFFF
&&
(dwError = GetLastError()) != NO_ERROR ){

// Deal with that failure.
.
.
.

} // End of error handler.

Цитата(Guest_Andrey @ 16.5.2003, 03:05)

Лучше пользуйтесь функцией API (ко всему прочему, поддреживает файлы размеров более 2 и даже 4 ГБ):

Ну например размер swap файла так определить не получится, не удасться его открыть для получения handle - ни "только начтение", ни каким-либо другим образом... Способ с FindFirst лучше, так как не открывает файл, а берёт его размер непосредственно из FAT/NTFS, все остальные способы основаны на том что файл открывают, а это с одной стороны дольше, а с другой не все файлы можно открыть...