Скриншот в блитзе

[DRAG]

У меня вопрос , как реализовать снятие скриншота с экрана в Блитзе ?

[impersonalis]

GrabImage image,x,y,[frame]
SaveImage (image,bmpfile$[,frame] )

[SBJoker]

Зачем так жестоко можно проще:
SaveBuffer(FrontBuffer(), "screenshot.bmp")

[DRAG]

Огромный СПАСИБ !!!!!!!

[tormoz]

Function skreenshot()

aa=1
fold$=CurrentDir$()+"\screens"
dir=ReadDir(fold$)
Repeat
p$="screen"+aa+".bmp"
File$=NextFile$(dir)
If File$="" Then Exit
If FileType(fold$+"\"+File$)=1
If p$=File$ aa=aa+1
EndIf
Forever
CloseDir dir
pp$="screens\"+"screen"+aa+".bmp"

SaveBuffer (BackBuffer(),pp$)
End Function

В папке проги создать папку screens
при каждом вызове функции будет создаваться новый скриншот не затирая другие

Например:
If KeyHit(8 skreenshot()

[SBJoker]

так нечесно, я этот код знаю уже года 4-ре, просто было лень...
Еще на старом форуме в разделе "Исходники" висел.

[tormoz]

Это мой код. еще в 2003 писал...

tormoz
видимо код выдает переменная aa

[tormoz]

Ты прав
Специально не исправляю. Еще название функции глянь ))