Форум: "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.72 MB
Время: 0.021 c
1-42484           GARIK_PR              2001-12-25 10:43  2002.01.14  
Помогите чем сможете в области ActiveX программирования.


1-42415           d()c666               2001-12-27 02:08  2002.01.14  
символ эквивалентный переходу на другую строку...


6-42525           ateam                 2001-10-18 20:20  2002.01.14  
Help !!! Подскажите плиз как программным путём узнать маску подсети


1-42425           Kevin                 2001-12-26 15:38  2002.01.14  
Очень срочно надо


14-42560          VEG                   2001-11-18 22:34  2002.01.14  
Крупный шрифт