Entry tags:

code

Граблі strike back
Why would this code

StartDelay := GetTickCount();

repeat
   Application.ProcessMessages;
until (abs((GetTickCount() - StartDelay))) >= PauseLength;

suddenly stop working? Because GetTickCount returns an unsigned int, and StartDelay was declared as LongInt (signed) and the PC that used to reboot several times a day now ran for months.... Fix - redeclare StartDelay as Longword.