Egy újabb technológia, amivel a kedves felhasználó melegebb éghajlatra küld, 
pláne, ha lefagyott az applikációd egészképernyősként (a tálca sem látszódott)

procedure...//ide mármit írhatsz
var
   a:longint;
begin
   systemparametersinfo(97,word(true),@a,0);
end;

Megjegyzés:
Ahogy elnézem a dolgot, ez egy tipikus win9x megoldás, a w2000 már 
inteligensebb egy ilyen trükknél.