huang714的专栏

GetActiveWindow - 获取当前活动窗口的句柄//声明: GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄}//举例:var h: HWND;begin h := GetActiveWindow; FlashWindow(h, True);end;FlashWindow - 闪烁窗口//声明:FlashWindow( hWnd: HWND; {窗口句柄} bInvert: BOOL {设为 True 才会闪..

//声明:GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄}//举例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMem.

//声明:IsChild( hWndParent, hWnd: HWND {参数是两个窗口句柄, 父窗口在前}): BOOL;

//声明:WindowFromPoint(Point: TPoint): HWND;//举例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Timer1: TT.

提示: SetParent 应该 Windows.SetParent, 因为 TForm 的父类有同名方法.//声明:{获取父窗口句柄}GetParent(hWnd: HWND): HWND;{指定父窗口}SetParent( hWndChild: HWND; {子句柄} hWndNewParent: HWND {父句柄}): HWND; {成功返回原父窗口句柄; 失败返回 0}{移动窗口}MoveWindow( hWnd: HWND; .

//声明:SetWindowPos( hWnd: HWND; {窗口句柄} hWndInsertAfter: HWND; {窗口的 Z 顺序} X, Y: Integer; {位置} cx, cy: Integer; {大小} uFlags: UINT {选项}): BOOL;//hWndInsertAfter 参数可选值:HWND_TOP = 0; {在前面}HWND_BOTT.

//声明:IsIconic( hWnd: HWND {窗口句柄}): BOOL;IsZoomed( hWnd: HWND {窗口句柄}): BOOL;

//声明:MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘}): BOOL;//举例:procedure TForm1.Button1Click(Sender: TObject);begin MoveWindow(Button1.Handle, 0.

提示:1、其实用 Delphi 内部同类函数很方便的, 但系统函数是全局的;2、使用 GetClientRect 时, 一般要 Windows.GetClientRect, 因为 TForm 的父类有同名函数.//声明:{获取窗口外部矩形(相对于屏幕)}GetWindowRect( hWnd: HWND; {窗口句柄} var lpRect: TRect {用于返回的矩形指针}): BOOL;{获取窗口内部矩形}GetClientRect( hWnd: HWND.

遍历进程并获取进程路径代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObj.

API设计规范参考