Zmiana priorytetu i czekanie

Odpowiedz Nowy wątek
2007-12-20 17:57
BOBAS
0

Mam 2 pytania.

  1. Jak zrobić przycisk zmieniający priorytet aplikacji na wysoki?
  2. Jak zrobić aby program czekał tyle sekund ile jest napisane w Edit1??

Pozostało 580 znaków

2007-12-20 18:56
0

1)

procedure TForm1.Button1Click(Sender: TObject); 
var 
  MainThread: THandle; 
begin 
  MainThread := GetCurrentThread; 
  SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST); 
end;

Źródło: http://www.delphitricks.com/s[...]applications_main_thread.html
2)

Sleep(StrToInt(Edit1.Text) * 1000));

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0