Пятница, 29.03.2024, 12:10
Главная Регистрация RSS
Приветствую Вас, Гость
Меню сайта
Категории раздела
Delphi [12]
С++ [0]
С# [1]
PHP [7]
Мини-чат
Наш опрос
Оцените мой сайт
Всего ответов: 23
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » 2011 » Октябрь » 8 » Получаем информацию о системе
20:31
Получаем информацию о системе

Сейчас я хочу показать вам как на Delphi быстро и без использования компонентов узнать информацию о системе. Для начала создадим новую форму и бросим на неё: компонент Button (кнопка) и компонент Memo (многострочный редактор) оба с закладки Standart. После чего в обработчик кнопки вставляем следующий код:

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('');

Memo1.Lines.Add(IntToStr(dwTotalPhys) +' Всего физической памяти (в байтах)') ;

Memo1.Lines.Add('');

Memo1.Lines.Add(IntToStr(dwAvailPhys) +' Доступно физической памяти (в байтах)') ;

Memo1.Lines.Add('');

Memo1.Lines.Add(IntToStr(dwTotalPageFile) +' Всего виртуальной памяти (в байтах)') ;

Memo1.Lines.Add('');

Memo1.Lines.Add(IntToStr(dwAvailPageFile) +' Доступно виртуальной памяти (в байтах) ') ;

Memo1.Lines.Add('');

Memo1.Lines.Add(IntToStr(dwTotalVirtual) +' Адресное виртуальное пространство текущего процесса') ;

Memo1.Lines.Add('');

Memo1.Lines.Add(IntToStr(dwAvailVirtual) +' Доступно байт виртуального адресного пространства текущего процесса') ;

end;

end;

P S. В данном примере используется API функция GlobalMemoryStatus.
Категория: Delphi | Просмотров: 455 | Добавил: vavilov8 | Теги: информация, система, Delphi | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: