//▎============================================================▎//
//▎=====================⑥系统功能函数=========================▎//
//▎============================================================▎//
procedure MoveMouseIntoControl(AWinControl: TControl); {测试通过}
{* 移动鼠标到控件}
function DynamicResolution(x, y: WORD): Boolean; {测试通过}
{* 动态设置分辨率}
procedure StayOnTop(Handle: HWND; OnTop: Boolean); {测试通过}
{* 窗口最上方显示}
procedure SetHidden(Hide: Boolean); {测试通过}
{* 设置程序是否出现在任务栏}
procedure SetTaskBarVisible(Visible: Boolean); {测试通过}
{* 设置任务栏是否可见}
procedure SetDesktopVisible(Visible: Boolean); {测试通过}
{* 设置桌面是否可见}
procedure BeginWait; {测试通过}
{* 显示等待光标}
procedure EndWait; {测试通过}
{* 结束等待光标}
function CheckWindows9598NT: string; {测试通过}
{* 检测是否Win95/98/NT平台}
function GetOSInfo : String; {测试通过}
{* 取得当前操作平台是 Windows 95/98 还是NT}
function GetCurrentUserName : string;
{*获取当前Windows登录名的用户}
function GetRegistryOrg_User(UserKeyType:string):string;
{*获取当前注册的单位及用户名称}
function GetSysVersion:string;
{*//获取操作系统版本号}
function WinBootMode:string;
{//Windows启动模式}
type
PShutType = (UPowerOff, UShutdown, UReboot, ULogOff, USuspend, UHibernate);
procedure WinShutDown(ShutWinType:PShutType; PForce:Boolean);
{//Windows ShutDown等}