Здраствуйте вот решил поделитьтся опытом немного о програмке Очень удобно.
И в этом письме я хочу рассказать Вам как быстро
и без использования дополнительных компонентов
узнать инфу о системе.
Для начала в нашей любимой среде разработки 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(dwTotalPageFile) +' Всего виртуальной памяти (в байтах)')) ;
Memo1.Lines.Add(IntToStr(dwAvailPageFile) +' Доступно виртуальной памяти (в байтах) ')) ;
Memo1.Lines.Add(IntToStr(dwTotalVirtual) +' Адресное виртуальное простанство текущего процесса')) ;
Memo1.Lines.Add(IntToStr(dwMemoryLoad) + '% использованно памяти') ;
Memo1.Lines.Add(IntToStr(dwTotalPhys) +' Всего физической памяти (в байтах)')) ;
Memo1.Lines.Add(IntToStr(dwAvailPhys) +' Доступно физической памяти (в байтах)')) ;
Memo1.Lines.Add(IntToStr(dwAvailVirtual) +' Доступно байт виртуального адресного пространства текущего процесса')) ;
end;
end;
Здесь используется API-функция GlobalMemoryStatus.
P.S. С помощью вот такого простого кода, мы избавляемся
от дополнительных модулей и оптимизируем наши программы.
Вообщем может кому и пригодиться!!!!!!!!!!!!
на 15,4569%!!11!1! Думайте, перед тем как задать вопрос, кто вам скажет на сколько процентов оптимизируется ваша программа, кроме как вы сами?
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Регистрация: 06.02.2011
Сообщений: 69
Популярность: 49
Сказал(а) спасибо: 102
Тема определения системы
Золото Zhyk.Ru: 1 
