Показать сообщение отдельно
  #4  
Старый 07.11.2010, 19:04
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Как ты это сделал - случайно те так?
Код:
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
CloseHandle(MainHandle);
end;

если нет - то расскажи как ты это реализовал....
__________________
Нет ничего не возможного. Вопрос только во времени...
Ответить с цитированием