Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Внизско-ко размер файла Найти похожие ветки
← →
Polevi (2002-03-11 11:17) [2]var
fHandle:THANDLE;
FileSize,FileSizeHigh:Cardinal;
begin
fHandle:=CreateFile(PChar(FileName),GENERIC_READ or GENERIC_WRITE,
0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if fHandle<>INVALID_HANDLE_VALUE then
begin
FileSize:=GetFileSize(fHandle,@FileSizeHigh);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c