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



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 [?]

Рубрика: Delphi · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!