Mam 2 pytania.
- Jak zrobić przycisk zmieniający priorytet aplikacji na wysoki?
- Jak zrobić aby program czekał tyle sekund ile jest napisane w Edit1??
Mam 2 pytania.
procedure TForm1.Button1Click(Sender: TObject);
var
MainThread: THandle;
begin
MainThread := GetCurrentThread;
SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST);
end;
Źródło: http://www.delphitricks.com/source-code/windows/change_the_priority_of_applications_main_thread.html
2)
Sleep(StrToInt(Edit1.Text) * 1000));