Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2003
proyectocorba proyectocorba is offline
Registrado
 
Registrado: may 2003
Posts: 7
Poder: 0
proyectocorba Va por buen camino
Usos de la cpu

Hola a todos!!!

Estoy haciendo un programilla y necesito saber los usos de la cpu, la memoria que estoy utilizando..etc (to lo q pone windows en rendimiento). La verdad es que creo q se hace con la api de windows pero no lo se exactamente. He estado mirando las funciones pero no encuentro ninguna relacionada. Si alguien me puede echar una mano.

Asias.
Responder Con Cita
  #2  
Antiguo 22-09-2003
Avatar de Investment
Investment Investment is offline
Miembro
 
Registrado: may 2003
Posts: 378
Poder: 21
Investment Va por buen camino
Truco 154 de TRUCOMANIA:

INFORMACION DE RECURSOS DEL SISTEMA

-Pon un TMemo (Memo1) y un TButton (Button1) en tu form
-Pon éste código en el OnCLick de Button1:



procedure TForm1.Button1Click(Sender: TObject);
var
MemoryStatus: TMemoryStatus;

begin

Memo1.Lines.Clear;

MemoryStatus.dwLength := SizeOf(MemoryStatus);

GlobalMemoryStatus(MemoryStatus);

with MemoryStatus do
begin
{ Size of MemoryStatus record }
Memo1.Lines.Add(IntToStr(dwLength) +
' Size of ''MemoryStatus'' record');
{ Per-Cent of Memory in use by your system }
Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
'% memory in use');
{The amount of Total Physical memory allocated to your system.}
Memo1.Lines.Add(IntToStr(dwTotalPhys) +
' Total Physical Memory in bytes');
{ The amount available of physical memory in your system. }
Memo1.Lines.Add(IntToStr(dwAvailPhys) +
' Available Physical Memory in bytes');
{ The amount of Total Bytes allocated to your page file }
Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
' Total Bytes of Paging File');
{ The amount of available bytes in your page file }
Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
' Available bytes in paging file');
{ The amount of Total bytes allocated to this program
(generally 2 gigabytes of virtual space) }
Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
' User Bytes of Address space');
{ The amount of avalable bytes that is left to your program to use }
Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
' Available User bytes of address space');
end;
end;
__________________
Saludos,
Peter Investment
Responder Con Cita
  #3  
Antiguo 22-09-2003
proyectocorba proyectocorba is offline
Registrado
 
Registrado: may 2003
Posts: 7
Poder: 0
proyectocorba Va por buen camino
Gracias Investment por contestarme tan rapido. Voy a probarlo ahora mismo a ver si funciona. Lo quiero hacer en C, pero me imagino que las funciones seran las mismas.

Asias.
Responder Con Cita
  #4  
Antiguo 22-09-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
La función GlobalMemoryStatus es una WinApi que va a tener la misma funcionalidad sobre cualquier lenguaje windows en que se la utilice.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 22-09-2003
proyectocorba proyectocorba is offline
Registrado
 
Registrado: may 2003
Posts: 7
Poder: 0
proyectocorba Va por buen camino
Gracias a los dos!!!

Ya he terminado la funcion y aunque he tenido que hacer los arreglillos para pasarlo a C, la idea es la misma.

Asias.
Responder Con Cita
  #6  
Antiguo 22-09-2003
proyectocorba proyectocorba is offline
Registrado
 
Registrado: may 2003
Posts: 7
Poder: 0
proyectocorba Va por buen camino
He estado viendo la funcion y me he dado cuenta que esta todo relacionado con la memoria pero no puedo poner cosas como uso de la cpu o recursos libres, etc. No hay otra funcion que indique esta serie de cosas?

Asias,
Responder Con Cita
  #7  
Antiguo 23-09-2003
Lmas Lmas is offline
Miembro
 
Registrado: jul 2003
Ubicación: España
Posts: 27
Poder: 0
Lmas Va por buen camino
Hola.

En http://www.torry.net/samples_hard.htm puedes encontrar en un ejemplo del uso de la CPU en AdCPUUsage, o por lo menos eso parece indicar el nombre del archivo .

SalU2
__________________
Una cosa es una cosa, y otra cosa es otra cosa...
Responder Con Cita
  #8  
Antiguo 16-06-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
Perdon por rehabilitar este hilo, pero estoy haciendo lo que quería hacer nuestro amigo Andrés, la colección de los hilos, y pensé que estaría mejor que estubiese el código identado.

Código Delphi [-]
//-Pon un TMemo (Memo1) y un TButton (Button1) en tu form
//-Pon éste código en el OnCLick de Button1:
 
procedure TForm1.Button1Click(Sender: TObject);
 var 
   MemoryStatus: TMemoryStatus;
 
 begin 
 
   Memo1.Lines.Clear;
 
   MemoryStatus.dwLength := SizeOf(MemoryStatus);
 
   GlobalMemoryStatus(MemoryStatus);
 
   with MemoryStatus do 
   begin 
     { Size of MemoryStatus record }
     Memo1.Lines.Add(IntToStr(dwLength) +
       ' Size of ''MemoryStatus'' record');
     { Per-Cent of Memory in use by your system }
     Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
       '% memory in use');
     {The amount of Total Physical memory allocated to your system.}
     Memo1.Lines.Add(IntToStr(dwTotalPhys) +
       ' Total Physical Memory in bytes');
     { The amount available of physical memory in your system. }
     Memo1.Lines.Add(IntToStr(dwAvailPhys) +
       ' Available Physical Memory in bytes');
     { The amount of Total Bytes allocated to your page file }
     Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
       ' Total Bytes of Paging File');
     { The amount of available bytes in your page file }
     Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
       ' Available bytes in paging file');
     { The amount of Total bytes allocated to this program
        (generally 2 gigabytes of virtual space) }
     Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
       ' User Bytes of Address space');
     { The amount of avalable bytes that is left to your program to use }
     Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
       ' Available User bytes of address space');
   end; 
 end;
__________________
:)
Responder Con Cita
  #9  
Antiguo 03-11-2006
jeansalas19 jeansalas19 is offline
Registrado
 
Registrado: oct 2006
Posts: 1
Poder: 0
jeansalas19 Va por buen camino
y no hay ninguno de estos q se pueda hacer en Java, esq necesito hacer un programa q me este informando de la memoria q usa mi programa en la RAM me preguntaba si alguien sabia... grxx ojala me respondan!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:47:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi