Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Передача управления 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;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.03 c
3-42363           Китаец Ла Ме          2001-12-12 21:40  2002.01.14  
Мультиверсионность


4-42614           SergeyDonetsk         2001-11-08 12:50  2002.01.14  
Кто поможет проверить где ошибка?


6-42524           Victoz                2001-10-19 11:05  2002.01.14  
Опять про WinPopup и Mailslot и немного про кодировки


4-42633           exchoper              2001-10-11 15:33  2002.01.14  
STAY ON TOP


1-42424           Fighter               2001-12-27 05:13  2002.01.14  
Как развернуть консольное приложение в полноэкранный режим?