Форум: "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.032 c
3-42378           well                  2001-12-10 15:02  2002.01.14  
SQL & paradox


3-42354           irq                   2001-12-11 14:44  2002.01.14  
DBGrid


4-42613           Karan                 2001-11-14 14:19  2002.01.14  
DLL<->Variant


1-42416           SergeyVP              2001-12-27 06:21  2002.01.14  
Thread


4-42638           Jazzy$                2001-11-10 23:17  2002.01.14  
Фокус ввода.