|
|
 | |  |
| Главная » 2011 » Апрель » 9 » Учимся освобождать занимаемую программой память на Delphi
15:12 Учимся освобождать занимаемую программой память на Delphi |
Пример, который я сейчас хочу вам показать, применим только для программ работающих в фоновом режиме (для других в этом просто нет смысла). Т.е программ, которые постоянно сидят в памяти и не мозоля глаза пользователю занимаются своими делами. Данный delphi исходник подойдет при создания троянов, вирусов, планировщика задач и.т.д. Для таких приложений крайне важным является объем потребляемой памяти, и разработчик должен свести его к минимуму.
Переходим к коду:
Создаем простенькую процедуру после вызова которой наша Delphi программа освободит всю ненужную ей память.
uses Windows, SysUtils;
procedure TrimWorkingSet;
var
MainHandle: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
CloseHandle(MainHandle);
end;
end;
Пользуйтесь на здоровье !
|
|
Категория: Delphi |
Просмотров: 634 |
Добавил: SeM
| Рейтинг: 4.0/1 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
