Screenshot игрового экрана с сохранением в фс

Данный код позволяет реализовать скриншот в вашем приложении и сохранить его в "файловую систему". При желании, можно сохранить в отдельную папку.
  1. Program MyProgram;
  2. Uses Jsr75I,Bmp;
  3. Var
  4.     S: String;
  5.     N, X, Y: Integer;
  6.     Im,Null:Image;
  7.  
  8. Procedure ScreenShot;
  9. Begin
  10. Im:=ImageFromCanvas(0,0,GetWidth,GetHeight);
  11. N:=N+1;
  12. SaveBmp(Im,'C://Screenshot'+N+'.bmp');
  13. Im:=Null;
  14.  
  15. // Вспышка
  16. SetColor(255,255,255);
  17. FillRect(0,0,GetWidth,GetHeight);
  18. Repaint;
  19. Delay(1);
  20. End;
  21.  
  22. Begin
  23.     S := 'Annimon.com';
  24.     X := (GetWidth - GetStringWidth(s)) / 2;
  25.     Y := (GetHeight - GetStringHeight(s)) / 2;
  26.     SetColor(255,0,0);
  27. Repeat
  28. SetColor(75,175,255);
  29. FillRect(0,0, GetWidth , GetHeight);  
  30. SetColor(255,0,0);
  31. DrawText(S, X, Y);
  32. Repaint;
  33. Delay(5);
  34. iF GetKeyPressed=Ke_Key5 Then ScreenShot;  
  35.  
  36.  Until False;
  37. End.
Просто вставляете процедуру screenshot в свой проект и вызываете его в нужный момент
ImageFromCanvas - вырезает область экрана
N - счетчик скринов
SaveBmp - Сохраняет картинку в фс
Im:=Null - Чистим контейнер

Важно!
Обезательно подключите либы : Lib_bmp и Lib_jsr75i

Реклама

Мы в соцсетях

vk tw tg yt