Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

Передача управления windows   Найти похожие ветки 

← →
VitaS   (2001-11-14 21:51) [0]

Мне нужно, чтобы программа выполняля функцию, не забивая все ресурсы процессора, и чтобы параллельно можно было нажимать на другие кнопки формы(например, отмена процедуры). Подскажите плеазееее!!!

---

← →
Mbo ©   (2001-11-15 06:47) [1]

1)Application.ProcessMessages
2)запустить в отдельной Thread

---

← →
Fellomena   (2001-11-15 12:22) [2]

ну приоритет поменьше поставить можно:

procedure TForm1.Button1Click(Sender: TObject);
var
ProcessID : DWORD;
ProcessHandle : THandle;
ThreadHandle : THandle;
begin
ProcessID := GetCurrentProcessID;
ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,
false,
ProcessID);
SetPriorityClass(ProcessHandle, LOW_PRIORITY_CLASS);
ThreadHandle := GetCurrentThread;
SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_LOW); // для thread-a может и не LOW, а как-то иначе, точно не помню
end;


---

Страницы: 1 вся ветка

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.03 c