Hibernar o no hibernar, he ahí el dilema

[Wellnic]

Hola, ¿cómo se puede averiguar si en Windows está activada la hibernación? Hasta ahora lo averiguo comprobando si existe el fichero "hiberfil.sys", por ejemplo:

Código Delphi [-]
...
SetString(wh, WinDir, GetWindowsDirectory(WinDir, MAX_PATH));
wh:= ExtractFileDrive(wh)+'\hiberfil.sys';
...

If FileExist(wh) Then...

Pero no me parece la manera más adecuada. Digo yo que debería haber alguna función específica para ello...