Bored, so here is one way to do it (requires testing):
HotKeySet("{ESC}", "_Exit")
HotKeySet("`", "_DateTime")
While 1
Sleep(100)
WEnd
Func _DateTime()
;~ Declare @HOUR
Local $iHour = @HOUR
;~ Determine am/pm
$sHour = ($iHour >= 0 And $iHour <= 11) ? "am" : "pm"
;~ Change Hour 0 to 12
$iHour = $iHour = 0 ? 12 : $iHour
;~ Change Hour to 12 Hour format
$iHour = $iHour > 12 ? $iHour - 12 : $iHour
;~ Format Date/Time
Local $sDateTime = StringFormat("%1i-%1i-%2i_%1i_%1i" & $sHour, @MON, @MDAY, StringRight(@YEAR, 2), $iHour, @MIN)
Send($sDateTime)
EndFunc
Func _Exit()
Exit
EndFunc