Delphi学习之函数 ⑥系统功能函数

//▎============================================================▎//
//▎=====================⑥系统功能函数=========================▎//
//▎============================================================▎//

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等}