delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Каталог файлов

Категории раздела

по Delphi 7 [26]
видеоуроки по Delphi 7
по Visual Basic [1]
видеоуроки по Visual Basic

Наш опрос

Как вы попали на сайт ???
Всего ответов: 484

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Файлы » Видеоуроки » по Delphi 7

Информация о системе
27.03.2011, 22:38

В этом уроке вы научитесь узнавать информацию о системе.
Категория: по Delphi 7 | Добавил: Toha
Просмотров: 1226 | Загрузок: 0 | Комментарии: 3 | Рейтинг: 0.0/0
Всего комментариев: 3
3  
а исходник где скачать?

2  
STALDAL , спасибо! biggrin

1  
procedure TForm1.Button1Click(Sender: TObject);
var MemoryStatus: TMemoryStatus;
begin
Memo1.Lines.Clear;
MemoryStatus.dwLength:=SizeOf(MemoryStatus);
GlobalMemoryStatus(MemoryStatus);
with MemoryStatus
do
begin
Memo1.Lines.Add(IntToStr(dwMemoryLoad)+' %Èñïîëüçîâàíî ïàìÿòè');
Memo1.Lines.Add(IntToStr(dwTotalPhys) +' Âñåãî ôèçè÷åñêîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwAvailPhys) +' Äîñòóïíî ôèçè÷åñêîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwTotalpagefile)+' Âñåãî âèðòóàëüíîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwAvailPageFile) +' Äîñòóïíî âèðòóàëüíîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwTotalVirtual) +' Àäðåñíîå âèðòóàëüíîå ïðîñòðàíñòâî òåêóùåãî ïðîöåññà');
Memo1.Lines.Add(IntToStr(dwAvailVirtual) +' Äîñòóïíî áàéò âèðòóàëüíîãî àäðåñíîãî ïðîöåññà');
end;
end;

end.

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432