[游戏开发]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 应该也适用。不过，还可以这样写：SomeVar : DWord;LoSomeVar,HiSomeVar: Word;LoSomeVar:= SomeVar and $FFFF;HiSomeVar:= SomeVar shr 16;

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