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

pascal
  1. procedure GetScreen(FileName: String);
  2. var
  3.   DC: HDC;
  4.  
  5. begin
  6.   DC := GetDC(0);
  7.  
  8.   with TBitmap.Create do
  9.   begin
  10.     try
  11.       LoadFromDevice(DC);
  12.       SaveToFile(FileName);
  13.     finally
  14.       ReleaseDC(0, DC);
  15.       Free;
  16.     end;
  17.   end;
  18. end;
  19.  
  20. begin
  21.   GetScreen('001.bmp');
  22. end.
Назад

Реклама

Мы в соцсетях

tw tg yt gt