Power Management - Spindown Disk

How to suspend (spindown) disk from Delphi ?
is any fast solution to do it ?

Thanks