Detectar capacidad total de varios módulos de memoria

[Jose_Pérez]

Empezado por Neftali

Si estás con WMI en todo caso la que tendrás que importar será la librería: “Microsoft WMI Scripting V1.2 Library” (o similar).

Hmmm... pareces sorprendido por mi pregunta.

Como bien dices, la librería es “Microsoft WMI Scripting V1.2 Library". Yo únicamente seguí el artículo de tu web al pie de la letra

http://neftali.clubdelphi.com/?p=185

...que enlaza por error desde...

Para acceder desde Delphi a WMI lo primero que necesitamos en Importar la librería desde el menú de Project/Import Type Library (pasos aquí): en http://neftali.clubdelphi.com/?p=523

... de ahí el lío.

[Neftali [Germán.Estévez]]

Bueno, no enlaza por error, lo que sí es verdad es que a lo mejor la explicación no es clara:

En este artículo se explica cómo importar una librería. Sirve para cualquier librería, sólo que cambiando la librería a importar. Lo realmente importante son los pasos a realizar.

Lo que intentaba decir en este segundo artículo era, que se importara la librería “Microsoft WMI Scripting v1.X Library (Version 1.X)“, siguiendo las pasos que se describían en el artículo. Pero cambiando el nombre de la librería (tal vez eso es lo que no aclaré bien)...

[Jose_Pérez]

En cualquier caso, siempre es un placer encontrar en internet a gente como tú que dedica su tiempo en transmitir sus conocimientos a los demás. Gracias!!!

[[escafandra]]

¿Has tratado de probar de esta forma?

Código Delphi [-]
PERFORMANCE_INFORMATION = record
  cb: DWORD;
  CommitTotal: DWORD;
  CommitLimit: DWORD;
  CommitPeak: DWORD;
  PhysicalTotal: DWORD;
  PhysicalAvailable: DWORD;
  SystemCache: DWORD;
  KernelTotal: DWORD;
  KernelPaged: DWORD;
  KernelNonpaged: DWORD;
  PageSize: DWORD;
  HandleCount: DWORD;
  ProcessCount: DWORD;
  ThreadCount: DWORD;
end;
PPERFORMANCE_INFORMATION = ^PERFORMANCE_INFORMATION;

function GetPerformanceInfo(pPI: PPERFORMANCE_INFORMATION; cb: DWORD): boolean; stdcall; external 'psapi.dll';

//............................

var
 PI: PERFORMANCE_INFORMATION;
begin
 GetPerformanceInfo(@PI, sizeof(PI));
 ShowMessage('Memoria total: ' + IntToStr(PI.PhysicalTotal * PI.PageSize) + ' Bytes');
end;

(Probado en WinXP Sp3, Delphi7 y PC con dos módulos de memoria RAM).


Saludos.

[Jose_Pérez]

Empezado por escafandra

Código Delphi [-]
function GetPerformanceInfo(pPI: PPERFORMANCE_INFORMATION; cb: DWORD): boolean; stdcall; external 'psapi.dll';

La idea es crear una aplicación que realice un inventario de todos los equipos en red. Veo que esta función "tira" de una DLL. Mi duda es, ¿una vez compilado el ejecutable, es necesario que exista esta DLL en los equipos de la red para que funcione?

[[escafandra]]

Empezado por Jose_Pérez

La idea es crear una aplicación que realice un inventario de todos los equipos en red. Veo que esta función "tira" de una DLL. Mi duda es, ¿una vez compilado el ejecutable, es necesario que exista esta DLL en los equipos de la red para que funcione?

Esa DLL (psapi.dll) forma parte del S.O. (Windows) por lo tanto todos los equipos la tienen. En delphi 7 debes importarla (como muestro) para que compile, en versiones posteriores probablemente no.

Claro que con el ejemplo cada equipo local sabrá su memoria pero tendrás que establecer un sistema para que se informe al servidor, puesto que dices que la idea es un sistema en red...

Como al inicio del tema comentabas un ejemplo para equipo local, que no te funcionaba en todos los PCs probados, escribí mi ejemplo para solucionar tu problema. A mi me funciona, pero pruébalo con tus condiciones y dime si el resultado es satisfactorio.


Saludos.

[Jose_Pérez]

Empezado por escafandra

Claro que con el ejemplo cada equipo local sabrá su memoria pero tendrás que establecer un sistema para que se informe al servidor, puesto que dices que la idea es un sistema en red...

La idea es hacerlo mediante Sockets. Nunca lo he hecho. Llevo 25 años programando (no siempre en Delphi, claro ) y la verdad es que siempre hay algo nuevo por hacer y por aprender. Llegado el momento, si tengo alguna duda, ya abriré un nuevo hilo en el foro.

Pero primero quiero terminar con el desarrollo de la captura de configuración del equipo.

Cuando pruebe tu código en un equipo con dos módulos de memoria te digo algo.