NEW TIPS Database (135)Files (612)Forms (606)Graphic (536)IDE (456)Indy (433)Internet / LAN (590)IntraWeb (443)Kylix (447)Math (561)Misc (591)Multimedia (496)Objects/ActiveX (503)OpenTools API (438)Printing (459)Strings (583)System (721)VCL (586) Search Tip Top15 Add new Tip Forum
Forum
procedure TForm1.Button1Click(Sender: TObject); var MainThread: THandle; begin MainThread := GetCurrentThread; SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST); end;
Rate this tip: