2000 ve XP'de bilgisayarı kapatmak için gerekli yetkiye sahip olmanız lazım. Aşağıda kodla bilgisayarı kapatabilirsiniz. var tkHandle : THandle; BufferLun, ret : DWORD; tk, tkPrevious : TTokenPrivileges; LID : TLargeInteger; LUID : TLuIDAndAttributes; versione : TOSVersionInfo; begin BufferLun := 1024; ret := 0; versione. dwOSVersionInfoSize := sizeof ; GetVersionEx ; if versione. dwPlatformId = VER_PLATFORM_WIN32_NT then begin tkHandle := GetCurrentProcess; OpenProcessToken ; LookupPrivilegeValue(PChar , PChar , LID); LUID. Luid := LID; LUID. Attributes := SE_PRIVILEGE_ENABLED; tk. PrivilegeCount := 1; tk. Privileges := LUID; AdjustTokenPrivileges ; end; ExitWindowsEx(EWX_SHUTDOWN or EWX_PowerOff,0); end;