Ir al contenido


Foto

[TRUCO DELPHI] Obtener informacion del Sistema.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:46

[TRUCO DELPHI] Obtener informacion del Sistema.


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var MemoryStatus: TMemoryStatus;
  3. begin
  4. Memo1.Lines.Clear;
  5. MemoryStatus.dwLength := SizeOf(MemoryStatus);
  6. GlobalMemoryStatus(MemoryStatus);
  7. with MemoryStatus do begin
  8. Memo1.Lines.Add(IntToStr(dwLength) +
  9. ' Size of ''MemoryStatus'' record');
  10. Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
  11. '% memory in use');
  12. Memo1.Lines.Add(IntToStr(dwTotalPhys) +
  13. ' Total Physical Memory in bytes');
  14. Memo1.Lines.Add(IntToStr(dwAvailPhys) +
  15. ' Available Physical Memory in bytes');
  16. Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
  17. ' Total Bytes of Paging File');
  18. Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
  19. ' Available bytes in paging file');
  20. Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
  21. ' User Bytes of Address space');
  22. Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
  23. ' Available User bytes of address space');
  24. end;
  25. end;

Solicitud: Necesito alguien que programe en un lenguaje de Programacion en Español, quien se sienta interesado que me envie un mensaje privado.

 

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.