Апплет для копирования текущей даты+времени как гггг-ММ-ДД чч: мм в буфер обмена?

Мне иногда нужно ввести текущую дату + время в формате MySQL, т. е. ГГГГ-ММ-ДД ЧЧ:ММ

прежде чем я напишу сам, кто-нибудь знает о апплете Windows, который это делает, поэтому я мог бы просто дважды щелкнуть по нему и вставить буфер обмена в другое место?

спасибо.

Edit: оказывается, это было довольно легко сделать в Freebasic, хотя это апплет консоли вместо графического апплета:

#include "vbcompat.bi"
#include "windows.bi"

Sub ClearClipboard(hwnd As HWND = NULL)
    OpenClipboard(hWnd)
    EmptyClipboard()
    CloseClipboard()
End Sub

Sub WriteClipboard(Text As String, CPFormat As Integer = CF_TEXT, hWnd As HWND = NULL)        
    Var hGlobalClip = GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)        
    OpenClipboard(hWnd)
    EmptyClipboard()
    Var lpMem = GlobalLock(hGlobalClip)
    CopyMemory(lpMem, StrPtr(Text), Len(text))
    GlobalUnlock(lpMem)
    SetClipboardData(CPFormat, hGlobalClip)
    CloseClipboard()
End Sub        

Dim a As Double = Now()
Dim CurrentDateTime as String

ClearClipboard()
CurrentDateTime = Format(a, "yyyy-mm-dd hh:mm")
WriteClipboard(CurrentDateTime)