procedure tform1.ShutDown procedure AdjustToken() //获取关机控制权 var hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal tmpLuid: Int64 //tkpPrivilegeCount: Int64 tkp, tkpNewButIgnored: TOKEN_PRIVILEGES Privilege: array[0..0] of _

跨平台int 64位 整数封装类,测试环境vc6 gcc win2003 -Cross-platform package int 64-bit integer type, test environment vc6 gcc win2003