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