Сделать снимок рабочего стола



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

По нажатию на клавишу, делается снимок рабочего стола.
Если код поместить в таймер то снимки будут делаться регулярно с новым именем.

на форму кидаем кнопку (тут она намазываться BitBtn1Click),  Image1, Label3.

uses jpeg;

procedure TForm1.BitBtn1Click (Sender: TObject);
var
Canvas:TCanvas;
ScreenV:HDC;
i: String;

begin
i:='1'; // расширение

ScreenV := GetDC (0);
Canvas:=TCanvas.Create ();
Canvas.Handle:=ScreenV;
Image1.Canvas.Copyrect (Rect (0,0,Image1.Width,Image1.Height),
Canvas, Rect (0,0,Screen.Width,Screen.Height));
ReleaseDC (0,ScreenV);
Canvas.Free;

Label3.Caption:=IntToStr (StrToInt (Label3.Caption)+StrToINt (i)); //счетчик
Image1.Picture.SaveToFile (IntTOStr (StrToInt ('имя файла')+StrToInt (Label3.Caption))+i);
end;

Популярность: 0 [?]



style="display:inline-block;width:468px;height:60px"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="7620109552">

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: