Форум: "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.038 c
6-42540           Станислав             2001-10-16 11:47  2002.01.14  
Время сервера


1-42491           Alex_Sudakov          2001-12-25 15:46  2002.01.14  
Напомните


3-42352           МаксБ                 2001-12-11 15:05  2002.01.14  
Форматирование даты


3-42374           Kirill                2001-12-10 13:42  2002.01.14  
Zeos Help+Doc


4-42634           Tekman                2001-11-10 00:32  2002.01.14  
Окно без рамки