HSG |
|
uses ..., mmsystem; ... procedure TForm1.FormCreate(Sender: TObject); begin timeBeginPeriod(1); ... end; ... procedure TForm1.FormDestroy(Sender: TObject); begin ... timeEndPeriod(1); end;
rechte Maustaste auf 'Arbeitsplatz' - Eigenschaften - Erweitert - Systemleistungsoptionen - Hintergrunddienste wählen