Re: Connaitre mémoire disponible sur le poste | Sujet: Re: Connaitre mémoire disponible sur le poste par xofxon sur 18/8/2005 8:34:56
Bonjour, pour compléter la réponse d'IMAME :
PROCEDURE Fa_Ressource_w98()
LOCAL
vl_e_Free_Systeme est un entier
vl_e_Free_GDI est un entier
vl_e_Free_User est un entier
vl_e_hInst est un entier
//
SELON SysVersionWindows()
// cas "95","NT 4","ME"
CAS "95","ME"
RENVOYER Faux
CAS "NT 5","NT 4","XP","2003S"
RENVOYER Vrai
CAS "98"
vl_e_hInst = ChargeDLL("RSRC32.dll")
SI vl_e_hInst = 0 ALORS
Erreur("Erreur lors du chargement de la dll!!!")
RENVOYER Faux
SINON
vl_e_Free_Systeme = AppelDLL32("RSRC32.dll","_MyGetFreeSystemResources32@4",0)
vl_e_Free_GDI = AppelDLL32("RSRC32.dll","_MyGetFreeSystemResources32@4",1)
vl_e_Free_User = AppelDLL32("RSRC32.dll","_MyGetFreeSystemResources32@4",2)
DéchargeDLL(vl_e_hInst)
SI vl_e_Free_Systeme < 20 OU vl_e_Free_GDI < 20 OU vl_e_Free_User < 20 ALORS
Avertissement("Les ressources disponibles sont trop basses.",...
"Vous allez bientôt planter !",...
"Ressources système disponibles : "+vl_e_Free_Systeme+" %",...
"Ressources GDI disponibles : "+vl_e_Free_GDI+" %",...
"Ressources USER disponibles : "+vl_e_Free_User+" %")
RENVOYER Faux
SINON
RENVOYER Vrai
FIN
FIN
FIN
Mais je pensais que la mémoire libre dispo, avec les OS windows moderne n'était limitée qu'à la capacité disque ?? !!
-- Cordialement Christophe Charron
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|