摘要：
//声明: GetWindowTextLength( hWnd: HWND {窗口句柄} ): Integer; {返回窗口标题长度} //举例: var i: Integer; begin i := GetWindowTextLength(Self.Handle); ShowMessage(IntToStr(i)); end; 阅读全文
posted @ 2008-02-07 16:30
万一
阅读(4066)
评论(0)
推荐(0)
摘要：
//声明: SetCursorPos( X: Integer; Y: Integer ): BOOL; {如果不在 ClipCursor 函数设置矩形区域内，系统会区域内自动调整} //举例: begin SetCursorPos(0, 0); {鼠标移动到左上角} end; 阅读全文
posted @ 2008-02-07 15:51
万一
阅读(6709)
评论(0)
推荐(0)
摘要：
//声明: GetCursorPos( var lpPoint: TPoint {POINT 结构指针, 接收鼠标指针的屏幕坐标} ): BOOL; //举例: var pt: TPoint; begin GetCursorPos(pt); ShowMessage(Format('ScreenX: %d; ScreenY: %d', [pt.X, pt.Y])); end; ... 阅读全文
posted @ 2008-02-07 15:40
万一
阅读(4416)
评论(0)
推荐(0)
摘要：
//声明: SetComputerName( lpComputerName: PChar {新名称串指针} ): BOOL; //举例: var s: string; begin s := 'NewName'; if SetComputerName(PChar(s)) then ShowMessage(s) else ShowMessage('改名... 阅读全文
posted @ 2008-02-07 13:41
万一
阅读(3523)
评论(0)
推荐(1)
摘要：
//声明: GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断} ): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零... 阅读全文
posted @ 2008-02-07 11:36
万一
阅读(18115)
评论(22)
推荐(1)
摘要：
//声明: SetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar {新标题串指针} ): BOOL; //举例: var s: string; begin s := '新标题'; SetWindowText(Handle, PAnsiChar(s)); end; 阅读全文
posted @ 2008-02-07 10:48
万一
阅读(11798)
评论(4)
推荐(0)
摘要：
//声明: GetDesktopWindow: HWND; {无参数; 返回桌面窗口的句柄} //举例: var h: HWND; begin h := GetDesktopWindow; ShowMessage(IntToStr(h)); end; 阅读全文
posted @ 2008-02-07 10:26
万一
阅读(6865)
评论(1)
推荐(0)
浙公网安备 33010602011771号