GetWindowRect的说明如下:
BOOL WINAPI GetWindowRect(
_In_ HWND hWnd,
_Out_ LPRECT lpRect // 注意,没*号指针
);
BOOL WINAPI GetWindowPlacement( _In_ HWND hWnd, _Inout_ WINDOWPLACEMENT *lpwndpl // 注意,有*号指针,这里可能已经是双重指针 );
但是实际调用直接传递Rect结构体,而不是指针:
procedure TWinControl.UpdateBounds; var ParentHandle: HWnd; // 4字节 Rect: TRect; // 16字节 WindowPlacement: TWindowPlacement; // 44字节 begin // 非最小化状态下,取得Win控件显示区域 if IsIconic(FHandle) then // API begin WindowPlacement.Length := SizeOf(WindowPlacement); GetWindowPlacement(FHandle, @WindowPlacement); // API,传递的是指针 Rect := WindowPlacement.rcNormalPosition; end else GetWindowRect(FHandle, Rect); // API,取得客户区,注意第二个参数是结构体本身,而不是结构体指针,在Delphi里直接使用 end;