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]