procedure tform1.ShutDown procedure AdjustToken ()// obtain the shutdown control varhdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal tmpLuid: Int64// tkpPrivilegeCount: Int64 tkp, tkpNewButIgnored: TOKEN_PRIVILEGES Privilege: array [0 .. 0] of _LUID_AND_ATTRIBUTES beginhdlProcessHandle: = GetCurrentProcess OpenProcessToken (hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY), hdlTokenHandle)// Get the LUID for shutdown privilege.LookupPrivilegeValue (, SeShutdownPrivilege, tmpLuid) Privilege [0]. Luid: = tmpLuid Privilege [0]. Attributes: = SE_PRIVILEGE_ENABLED tkp.PrivilegeCount: = 1// One privilege to settkp.Privileges [0]: = Privilege [0]// Enable the shutdown privilege in the access token of this process.AdjustTokenPrivileges (hdlTokenHandle,

net_lim
.......\Project1.cfg
.......\Project1.dof
.......\Project1.dpr
.......\Project1.exe
.......\Project1.i64
.......\Project1.res
.......\Project1.stat
.......\Unit1.dcu
.......\Unit1.ddp
.......\Unit1.dfm
.......\Unit1.pas
.......\Unit1.~ddp
.......\Unit1.~dfm
.......\Unit1.~pas

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．