.. .. .. ..   ..
BlitzBasic > Codearchiv > AllgemeinAktuallisiert 30.05.2009

..  Screenshotfunktion - von BigBug 


;Erstellt einen Screenshot im aktuellen Ordner mit laufender Nummerierung 
;Alte Screenshots werden nicht ueberschrieben 
;RETURN$ = Dateiname des Screenshots 
Function ScreenShot$() 
   Local PicCount%,File$ 

   Repeat    
      File$ = CalcFileName$("shot.bmp",PicCount%) 
      PicCount% = PicCount% + 1 
   Until Not FileType (File$) 
   SaveBuffer FrontBuffer(), File$ 
   Return File$ 

End Function