|
|
 | |  |
|
Узнать размер файла в байтах
function GetFileSize(FileName: string): Int64;
var F: TMemoryStream;
begin
try
F:=TMemoryStream.Create;
F.LoadFromFile(FileName);
Result:=F.Size;
finally
F.Free;
end;
end;
Функция возвратит размер файла FileName в байтах. Чтобы получить размер в килобайтах, результат нужно поделить на 1024.
Пример использования:
procedure TForm1.Button1Click(Sender: TObject);
var SizeOfApp: Int64;
begin
SizeOfApp := GetFileSize(ParamStr(0));
ShowMessage('Размер приложения: '+IntToStr(SizeOfApp)+
' байт('+IntToStr(SizeOfApp div 1024)+' кб)');
end;
|
| Категория: DELPHI | Добавил: SeM (02.05.2011)
|
| Просмотров: 1137
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
