Învățând să eliberați memoria unui program de către delphi

numai materiale utile

Acționarul principal al Alibaba a devenit cel mai bogat om din China
Articole

Microsoft a început testarea închisă a Office 16
Articole

Experții au găsit găuri de securitate în Windows 8.1
Articole

În metroul din Moscova va fi o rețea mobilă unificată
Articole

eBay va accepta Bitcoin
Articole

Vivitek a prezentat proiectorul "școală" D755WTIR
Articole

Butonul "Cumpărați" a apărut pe Twitter
Articole

"Yandex.News" poate fi acum vizualizat pe iPhone
Articole

Exemplul pe care acum vreau să vă arăt, este aplicabil numai pentru programele care rulează în fundal (pentru alții acest lucru nu are sens). De exemplu, programele care stau constant în memorie și nu ochii de porumb către utilizator sunt angajate în afacerile lor. Această sursă delphi este potrivită pentru crearea de troieni, viruși, programatori de sarcini etc. Pentru astfel de aplicații, cantitatea de memorie consumată este extrem de importantă, iar dezvoltatorul trebuie să-l mențină la un nivel minim.
Trecem la cod:

Creați o procedură simplă după ce sunați, programul nostru Delphi va elibera toată memoria inutilă.

folosește Windows, SysUtils;

procedura TrimWorkingSet;
var
MainHandle: Thandle;
începe
dacă Win32Platform = VER_PLATFORM_WIN32_NT atunci
începe
MainHandle: = OpenProcess (PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize (MainHandle, DWORD (-1), DWORD (-1));
CloseHandle (MainHandle);
se încheie;
se încheie;

Foloseste-ti sanatatea!

Codul este curtoazie de către Roy Nelson ([email protected]), Inprise European Support Professional
De la revista Delphi Magazine "Slăbirea grăsimii de pe aplicațiile tale" de Hallvard Vassbotn, [email protected]

Materiale conexe

Articole similare