万一 - 博客园

2008年2月13日

WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息

摘要： //声明 GetSystemPowerStatus( var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构} ): BOOL; //TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义: _SYSTEM_POWER_STATUS = packed record A... 阅读全文

posted @ 2008-02-13 13:37 万一阅读(5494) 评论(2) 推荐(1)

WinAPI: GetLocalTime、SetLocalTime、SetSystemTime - 获取与设置系统时间

摘要： //声明 GetLocalTime( var lpSystemTime: TSystemTime {TSystemTime 结构} ); {无返回值} //设置本地时间 SetLocalTime( const lpSystemTime: TSystemTime {TSystemTime 结构} ): BOOL; //SetSy... 阅读全文

posted @ 2008-02-13 11:31 万一阅读(8388) 评论(0) 推荐(0)

WinAPI: SwapMouseButton - 交换鼠标左右键的功能

摘要： //声明 SwapMouseButton( fSwap: BOOL {True: 交换; False: 恢复} ): BOOL; 阅读全文

posted @ 2008-02-13 08:49 万一阅读(2142) 评论(0) 推荐(0)

WinAPI: GetDoubleClickTime、SetDoubleClickTime - 获取与设置鼠标双击间隔时间

摘要： //声明 GetDoubleClickTime: UINT; {无参数; 返回鼠标双击间隔时间, 单位是毫秒} SetDoubleClickTime( Interval: UINT {依毫秒为单位的时间数} ): BOOL; //举例: var c: Cardinal; begin c := GetDoubleClickTime; ShowMessage(... 阅读全文

posted @ 2008-02-13 08:38 万一阅读(3674) 评论(0) 推荐(0)

2008年2月12日

WinAPI: SetWindowPos - 改变窗口的位置与状态

摘要： //声明: SetWindowPos( hWnd: HWND; {窗口句柄} hWndInsertAfter: HWND; {窗口的 Z 顺序} X, Y: Integer; {位置} cx, cy: Integer; {大小} uFlags: UINT {选项} ): BOOL; //hWndInser... 阅读全文

posted @ 2008-02-12 16:56 万一阅读(32033) 评论(11) 推荐(2)

WinAPI: MoveWindow - 改变窗口的位置与大小

摘要： //声明: MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘} ): BOOL; //举例: procedure TForm1.Button1Clic... 阅读全文

posted @ 2008-02-12 15:47 万一阅读(15655) 评论(5) 推荐(0)

WinAPI: IsIconic、IsZoomed - 分别判断窗口是否已最小化、最大化

摘要： //声明: IsIconic( hWnd: HWND {窗口句柄} ): BOOL; IsZoomed( hWnd: HWND {窗口句柄} ): BOOL; 阅读全文

posted @ 2008-02-12 13:46 万一阅读(7378) 评论(1) 推荐(0)

WinAPI: GetParent - 判断两个窗口是不是父子关系

摘要： //声明: IsChild( hWndParent, hWnd: HWND {参数是两个窗口句柄, 父窗口在前} ): BOOL; 阅读全文

posted @ 2008-02-12 13:40 万一阅读(2694) 评论(0) 推荐(0)

WinAPI: GetParent - 获取指定窗口的父窗口句柄

摘要： //声明: GetParent( hWnd: HWND {窗口句柄} ): HWND; {返回父窗口句柄} //举例: procedure TForm1.Button1Click(Sender: TObject); var h1,h2: HWND; begin h1 := GetParent(Button1.Handle); h2 := Panel1.Handle; ... 阅读全文

posted @ 2008-02-12 13:31 万一阅读(15047) 评论(0) 推荐(0)

WinAPI: GetFocus - 获取当前拥有焦点的窗口的句柄

摘要： //声明: GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄} //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TFo... 阅读全文

posted @ 2008-02-12 13:17 万一阅读(12542) 评论(0) 推荐(0)