<!--CodeS-->
procedure GetPicturePixel();
var
tempDC : HDC;
Color_Total : integer;
Color_Rvalue : integer;
Color_Gvalue : integer;
Color_Bvalue : integer;
begin
tempDC := GetDC(0);
Color_Total := GetPixel(tempDC,1,1);
Color_Rvalue := GetRvalue(Color_Total);
Color_Gvalue := GetGvalue(Color_Total);
Color_Bvalue := GetBvalue(Color_Total);
end;
<!--CodeE-->
입니다. 이것을 어셈으로 바꾸면 어떻게 나오나요?
부탁드려요.