抓狂小白的程式筆記

// 找出指定視窗的 Handle

hWindow := FindWindow('notepad',nil);

// 找出焦點視窗的 Handle

hWindow := GetForegroundWindow;

//指定視窗是否己顯示

IsWindowVisible(Handle) : Boolean

//本視窗的正常、最小及最大顯示

WindowState := wsNormal

WindowState := wsMinimized

WindowState := wsMaximized

//指定視窗的正常、最小及最大顯示

ShowWindow(Handle, SW_SHOWNORMAL)

ShowWindow(Handle, SW_SHOWMINIMIZED)

ShowWindow(Handle, SW_SHOWMAXIMIZED)

ShowWindow(Handle, SW_MAXIMIZE)

// 指定視窗不會受其它視窗遮掩 Always on Top

SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);

//以上這行不會改變視窗大小位置 需使用以下這行改變視窗大小位置

SetWindowPos(Handle ,HWND_TOPMOST,100,200,300,400, SWP_SHOWWINDOW);

//或使用

MoveWindow(Handle, 100, 200, 300, 400, True); 

// 把焦點放在指定視窗

SetForegroundWindow(Handle);

////本視窗的隱藏及顯示

form.Hide

form.Show

//找到視窗的坐標: P.Left, P.Top, P.Right, P.Bottom: integer

P: TRect

GetWindowRect(Handle, P);