you can probably modify this to make it work. You'll need to take out the date and time functions:
' -----------------------------------------------------------------------------
' ccScreenShot
' -----------------------------------------------------------------------------
Function ccScreenShot()
' ccFlip() 'don't need to flip to see the current one first!
Local gfxGrab:TPixmap
gfxGrab = GrabPixmap(0,0,ScreenWidth, ScreenHeight)
Local DateTime:TDateTime = New TDateTime
DateTime.Set_DateTimeCurrent()
'Output filename with reverse date and time for sorting
Local filename$ = TDateTime.Get_String(DateTime,"YYYY-MM-DD HHNNSS screenshot.png")
SavePixmapPNG(gfxGrab, ccAddSlash(CurrentDir())+filename, 9)
End Function
|