[Delphi] 視窗顯示方法

admin

// 找出指定視窗的 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);   

// 把焦點放在指定視窗
SetForegroundWindow(Handle);  

////本視窗的隱藏及顯示
form.Hide
form.Show

//找到視窗的坐標: P.Left, P.Top, P.Right, P.Bottom: integer
P: TRect
GetWindowRect(Handle, P);