Форум: "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.023 c
1-42480           Ser_Kham1             2001-12-25 12:08  2002.01.14  
ListBox


1-42410           AVS                   2001-12-25 19:09  2002.01.14  
access public method


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


1-42426           Alex44                2001-12-24 10:38  2002.01.14  
Fonts v TTreeView


14-42547          vasco                 2001-11-19 02:39  2002.01.14  
Выравнивание по ширине в hlp-файле...