Снижение аппетита программы - Общие вопросы Delphi - Страница 2

JTG · 11.08.2009, 16:40

Цитата:

Сообщение от Дима я

Вот нашел код освобождает ненужную ПАМЯТЬ получилось что прога жрет всего не больше метра из 20 которые она жрала

Так давай его сюда, нам всем очень любопытно, куда она засовывает те 19 метров

s.Creator · 11.08.2009, 16:42

Цитата:

Сообщение от Дима я

Вот нашел код освобождает ненужную ПАМЯТЬ получилось что прога жрет всего не больше метра из 20 которые она жрала

Может и другим покажешь этот код?

Дима я · 11.08.2009, 19:00

вот если я ничего не путаю

Код:

uses Windows, SysUtils;

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;

я вставил код в таймер и поставил интервал 1

JTG · 12.08.2009, 01:16

Ну правильно, этим ты выкидываешь данные в своп (файл подкачки). Заметно снижает быстродействие, особенно если так издеваться каждую секунду

Дима я · 12.08.2009, 09:46

Спасибо хоть обьяснил а там было написано что мол это хорошо для вирусов,и прочей фигни

11.08.2009, 19:00	#13
Дима я Форумчанин Регистрация: 06.06.2009 Сообщений: 259	вот если я ничего не путаю Код: `uses Windows, SysUtils; 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;` я вставил код в таймер и поставил интервал 1 Если я тебе помог Ты бы + влепить мне мог. Последний раз редактировалось Stilet; 12.08.2009 в 08:10.

12.08.2009, 01:16	#14
JTG я получил эту роль Старожил Регистрация: 25.05.2007 Сообщений: 3,694	Ну правильно, этим ты выкидываешь данные в своп (файл подкачки). Заметно снижает быстродействие, особенно если так издеваться каждую секунду пыщь

12.08.2009, 09:46	#15
Дима я Форумчанин Регистрация: 06.06.2009 Сообщений: 259	Спасибо хоть обьяснил а там было написано что мол это хорошо для вирусов,и прочей фигни Если я тебе помог Ты бы + влепить мне мог.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
2 программы.	Maxs	Помощь студентам	1	30.04.2009 10:01
Запуск программы на выполнение из другой программы.	ViNcHeStEr	Паскаль, Turbo Pascal, PascalABC.NET	6	18.06.2008 14:33
программы	koyot	Фриланс	1	14.03.2008 13:10
Программы	Simply-Art	Свободное общение	4	18.09.2007 22:41