ConEmu-Maximus5 is a Windows console emulator with tabs, which presents multiple consoles and simple GUI applications as one customizable GUI window with various features.
FreeCommander is an easy-to-use alternative to the standard windows file manager. The program helps you with daily work in Windows. Here you can find all the necessary functions to manage your data.
typedef struct point {
int x;
int y;
} Point;
Point points[] = {
{ 1, 10 },
{ 20, 3 },
{ 640, 480 },
{ 0, 0 }
};
COLORREF colors[4];
HDC h = GetDC(NULL); // handle of desktop
for( int i = 0; i < 4; i++ ) {
colors[i] = GetPixel(h, points[i].x, points[i].y);
}
ReleaseDC(h);
(import "user32" "GetDC") ; HDC GetDC(HWND hWnd);
(import "user32" "ReleaseDC") ; int ReleaseDC(HWND hWnd, HDC hDC);
(import "gdi32" "GetPixel") ; COLORREF GetPixel(HDC hdc, int nXPos, int nYPos);
(define (get-pixel point)
(letn ((h (GetDC 0))
(color (GetPixel h (first point) (last point))))
(ReleaseDC h)
color))
(print (map get-pixel '((1 10)
(20 3)
(640 480)
(0 0))))
;;-> (0 4144700 14548991 0)
Return to newLISP and the O.S.
Users browsing this forum: No registered users and 2 guests