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

Question

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

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

Спасибо.

---

Изменить: Оказалось, что это было довольно легко сделать во 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)

Answer 1

Я быстро создал утилиту HTA для этого с именем GetMySQLDateTime, используя VBScript. Не стесняйтесь использовать / модифицировать / распространять его для любых целей. Поскольку это HTA, вы можете напрямую изменить код, используя любой текстовый редактор.

Использование: Просто запустите его, и строка будет в вашем буфере обмена. Нажмите кнопку "Обновить", чтобы обновить его.