I. Obtenir les ressources User, System et GDI▲
Exemple sur une fiche (Form1) poser un Bouton (Button1) et 3 Labels (Label1, Label2, Label3) :
Sélectionnez
void __fastcall TForm1::Button1Click(TObject *Sender)
{
typedef LONG (* GETRES)(int);
HINSTANCE hInst = LoadLibrary("RSRC32.dll");
if (hInst != NULL)
{
GETRES pGetRes = (GETRES) GetProcAddress(hInst,
"_MyGetFreeSystemResources32@4");
if (pGetRes)
{
long lSysRes = pGetRes(0);
long lGdiRes = pGetRes(1);
long lUsrRes = pGetRes(2);
Label1->Caption = "System : " + String(lSysRes) + "%";
Label3->Caption = "GDI : " + String(lGdiRes) + "%";
Label2->Caption = "User : " + String(lUsrRes) + "%";
}
else ShowMessage("Erreur appel fonction");
}
else ShowMessage("Erreur chargement dll");
if (hInst) FreeLibrary(hInst);
}Ne fonctionne pas sous Windows XP.


