Скриншот части экрана

[Praud]

Имеется фигура Shape1 Rectangle. Нужно чтобы при нажатии горячей клавиши делался скриншот области на которую наведен квадрат и сохранялся в какую-то переменную ( для дальнейшего сравнения по пикселям). Написал горячие клавиши (стрелки ) для перемещения этого квадрата. В графике разбираюсь плохо, с WinAPI если он нужен тоже беда. Да и canvas использую впервые Так что прошу помощи

[Praud]

if Msg.HotKey = id1 then
begin
Application.ProcessMessages;
form2.Hide;
end;

if Msg.HotKey = id2 then
begin
Application.ProcessMessages;
Shape1.Top:=Shape1.Top-5;
end;

if Msg.HotKey = id3 then
begin
Shape1.Left:=Shape1.Left-5;
end;

if Msg.HotKey = id4 then
begin
Shape1.Top:=Shape1.Top+5;
end;

if Msg.HotKey = id5 then
begin
Shape1.Left:=Shape1.Left+5;
end;

if Msg.HotKey = id6 then
begin
//..................??? (скриншот экрана)
end;

[Пепел Феникса]

собственно в кодах на снятие скрина в функции BitBlt идут координаты нужные вам, в чем проблема заменить?

[Praud]

Сообщение от Пепел Феникса

собственно в кодах на снятие скрина в функции BitBlt идут координаты нужные вам, в чем проблема заменить?

Можете этот код предоставить?

[Stilet]

http://www.programmersforum.ru/showthread.php?t=1758
Подходит?

[Praud]

Какой из? Говорю же я с WinAPI очень туго разбираюсь, я очень примерно понимаю что творится в этих кодах

[Человек_Борща]

Говорю же я с WinAPI очень туго разбираюсь, я очень примерно понимаю что творится в этих кодах

Так это ваша проблема. Я(Мы) разбираемся в WinAPI, но мне(нам) не интересна ваша задача.

Вся суть WinAPI сводится к чтению описания функций/методов/структур из оф. источника( он же MSDN) и применения упомянутых.

Можно и совсем по умному и хитрому:
Берем форму, и делаем её видимой на 1 из 255 возможных.
На форме таймер, который вокруг окна рисует полностью видимый квадрат.

Вот и все. В итоге юзер имеет очень подвижную рамку для выделения нужного участка окна. А вам остается взять Rectangle этого окна и применить к битболту .

[Stilet]

Да ты любой проверь.

[Praud]

Вот нашел код

var 
Sdc:HDc; 
Can:Tcanvas; 
begin 
sdc:=GetDc(0); 
Can:=Tcanvas.Create(); 
Can.Handle:=sdc; 
width:=screen.Width; 
Height:=Screen.Height; 
image1.Canvas.CopyRect(rect(0, 0, image1.width, Image1.Height), canvas, Rect(0, 0, Screen.Width, Screen.Height)); 
ReleaseDc(0, sdc); 
can.Free; 
image1.Picture.Bitmap.SaveToFile('zlo.bmp'); 
end;

Вот только мне в Image1 оно засовывает просто черный квадрат Малевича.