$mymetatags$
Наш опрос |
Информация о системе в Delphi 7. Для создания понадобятся следующие компоненты: Memo со вкладки Standard Button со вкладки Standard Заходим в обработчик событий onClick кнопки и пишем там: Между Procedure и Begin 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) +' Доступно байт виртуального адресного пространства текущего процесса') ; В итоге должно получиться так: 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; Источник www.delphiexpert.ru
|
Друзья сайта |