Página 1 de 1

Clase TSysVer

Publicado: Lun Jun 20, 2022 12:11 pm
por Alfonso
Hola a todos:

He encontrado la clase TSysVer que me devuelve datos del sistema operativo, incluso la RAM del PC.

Necesitaba saber mas datos del equipo, como por ejemplo la memoria RAM usada o la que esta libre, la capacidad del disco duro o la capacidad libre en ese momento, el microprocesador y su velocidad...

¿Existe alguna clase con ese tipo de informacion del PC?

Si no existe, ¿sabeis alguna manera de averiguarlo usando Xailer?

Agradeceria cualquier ejemplo al respecto

Gracias de antemano por la ayuda.

Re: Clase TSysVer

Publicado: Lun Jun 20, 2022 5:33 pm
por Pedro Gil
Alfonso,

Para saber la memoria física total y disponible, así como la memoria virtual total y disponible, puede usar la siguiente función (modifíquela a sus necesidades):

XA_FUNC( MEMORYSTATUS )
{
MEMORYSTATUSEX memory;

memory.dwLength = sizeof( memory );

GlobalMemoryStatusEx( &memory );

// Memoria física total en KB: memory.ullTotalPhys / 1024
// Memoria física disponible en KB: memory.ullAvailPhys / 1024
// Memoria virtual total en KB: memory.ullTotalVirtual / 1024
// Memoria virtual disponible en KB: memory.ullAvailVirtual / 1024
}

Para saber el espacio total y disponible del disco duro, puede usar la función de harbour HB_DiskSpace. Por ejemplo:

Espacio total del disco actual: HB_DiskSpace( , HB_DISK_TOTAL )
Espacio disponible del disco actual: HB_DiskSpace( , HB_DISK_FREE )

Para saber el tipo de microprocesador y su velocidad, utilice la DATA cSysProcessor de la clase TSysVer modificada y vea si el valor es correcto (tenga en cuenta que es solo una prueba).

Saludos.

Re: Clase TSysVer

Publicado: Mar Jun 21, 2022 1:35 pm
por Alfonso
Gracias, lo pruebo