Page 2 of 2

Re: APIs and External Function not working correcting...

Posted: Fri Aug 07, 2009 12:53 pm
by ConvertFromOldNGs
by Jared >> Tue, 7 Feb 2006 9:12:53 GMT

Hi Van, i tried what you said, but still no luck. Anymore ideas?




constants
SRCCOPY : Integer = 13369376;
vars
hWndDesk : Integer;
hDCDesk : Integer;
leftDesk : Integer;
topDesk : Integer;
widthDesk : Integer;
heightDesk : Integer;
result : Boolean;
begin
leftDesk := 0;
topDesk := 0;
widthDesk := 1024;
heightDesk := 768;

write picture1.picture.length;

hWndDesk := call jGetDesktopWindow();
hDCDesk := call jGetWindowDC(picture1.hwnd());

result := call jBitBlt(hDCDesk, 0, 0, widthDesk, heightDesk, hDCDesk, leftDesk, topDesk, SRCCOPY);

call jReleaseDC(picture1.hwnd(), hDCDesk);

write "result: " & result.String;
write picture1.picture.length;

end;