Ich hab das mal in "Perl" programmiert,
sah dann so aus.
use strict;
use
win32;
Win32::InitiateSystemShutdown("XP1", "Der Computer wird heruntergefahren.", 0, 1, 0);
Wobei "xp1" der Rechner name ist.
das geht aber nur wenn man Admin ist und kein anderer Admin angemeldet ist.
unter delphi könnte es so aussehen
InitiateSystemShutdown(Pchar('pcName'),pchar('Message text'),0,1,0);