چطور با دلفی کامپیوتر رو میشه خاموش کرد؟

[hex161]

با سلام
میخواستم بدونم چطور با دلفی کامپیوتر رو میشه خاموش کرد؟
ممنون.

[mehranFX]

با سلام
میخواستم بدونم چطور با دلفی کامپیوتر رو میشه خاموش کرد؟
ممنون. این جوری :


function WindowsExit(RebootParam: Longword): Boolean;
var
TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tpResult := OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
TTokenHd) ;
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil,
SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid) ;
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg) ;
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd,
False,
TTokenPvg,
cbtpPrevious,
rTTokenPvg,
pcbtpPreviousRequired) ;
end;
end;
Result := ExitWindowsEx(RebootParam, 0) ;
end;
Usage:
//Shutdown
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;

//Reboot Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;

[hex161]

این خط از کد رو ازش ایراد میگیره و من نمیتونم بفهممش .میشه کمکم کنید؟
ممنون. Result := ExitWindowsEx(RebootParam, 0) ;

[mehranFX]

این خط از کد رو ازش ایراد میگیره و من نمیتونم بفهممش .میشه کمکم کنید؟
ممنون. Result := ExitWindowsEx(RebootParam, 0) ;
یونیت دلفی که استفاده کردی رو بذار اینجا تا ببینم .