Здравствуйте! Помогите пожалуйста начинающему програмисту)
У меня есть функция Скриншота:
Function Screenshot()
aa=1
fold$=CurrentDir$()+"\screenshots"
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$="screenshots\"+"screen"+aa+".bmp"
SaveBuffer (BackBuffer(),pp$)
End Function
Активирую я это
If KeyHit(6
ScreenShot()
Проблеммы:
Скриншоты сохраняются максимум до 10.. Если в папке 10 скринов дальше не сохраняет.. Ещё я хотел бы чтобы при активации скриншота выводилась надпись и висела примерно 3 сек. Помогите пожалуйста. Заранее Спасибо большое за Ваш ответ.