delphi 函数 GetScrollPos 的使用

procedure TForm1.btn1Click(Sender: TObject);
  var
    h: HWND;
    i: Integer;
begin
  h := FindWindow('Notepad', nil);
  ShowMessage(IntToStr(h));
  h := FindWindowEx(h, 0, 'Edit', nil);
  ShowMessage(IntToStr(h));
  i := GetScrollPos(h, SB_VERT);
  ShowMessage(IntToStr(i));
end;

参考：GetScrollPos_百度百科

另外附上 无符号的32位数拆开两个16位的数，即函数MAKELONG(X, Y)，对应的函数有 HiWord 和 LoWord，python win32api.HiWord jx55s1ng9 应该也适用。不过，还可以这样写：SomeVar : DWord;LoSomeVar,HiSomeVar: Word;LoSomeVar:= SomeVar and $FFFF;HiSomeVar:= SomeVar shr 16;

来自：如何将一个32位的无符号整型数按高16位和低16位拆成两个16位的整型数？_百度知道