laburj
|
 Posted: Sat Aug 14, 2010 11:10 Post subject: Альтернатива TC UP New |
 |
|
написал небольшую утилиту, альтернативу TC UP New
из преимуществ могу отметить:
- вставка в имя файла часто используемых шаблонов и т.д. (список шаблонов запускается по win+v)
- использование файлов-шаблонов, например word и jpg
(храняться по умолчанию в %COMMANDER_PATH%\templates)
- всё легко можно настроить под себя
код кнопок:
в случае, если используется ahk-скрипт с установленной программой AutoHotkey
| Code: | TOTALCMD#BAR#DATA
"C:\Program Files\AutoHotkey\AutoHotkey.exe" "%COMMANDER_PATH%\ahk_scripts\shift+f4.ahk"
"%O"
C:\Program Files\AutoHotkey\AutoHotkey.exe
-1 |
в случае, если используется exe-шник
| Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\ahk_scripts\shift+f4.exe
"%O"
%COMMANDER_PATH%\ahk_scripts\shift+f4.exe
-1 |
скачать архив с программой и шаблонами можно здесь
| Code: | ;txteditor=%COMMANDER_PATH%\utilits\AkelPad\AkelPad.exe ; по желанию меняем на любой текстовой редактор
templates=%COMMANDER_PATH%\templates ; путь к папке шаблонов
Gui, Add, Edit, vName w500, %1%
Gui, Add, Combobox, vExtChoice ym w50 Choose1, txt|doc|jpg|ini|bat ; список расширений можно добавить. 1ый из списка показывается по умолчанию
Gui, Add, Button, Default w245 xs, OK
Gui, Add, Button, w245 xp+255, Cancel
Gui, Show,, Введите имя файла..
return
#v::
FormatTime, TimeString,, yyyy-MM-dd
menu,menu,add,%TimeString%, item
FormatTime, TimeString,, yyyy-MM-dd_HH-mm
menu,menu,add,%TimeString%, item
FormatTime, TimeString,, HH-mm
menu,menu,add,%TimeString%, item
FormatTime, TimeString,, dd-MMM-yyyy
menu,menu,add,%TimeString%, item
FormatTime, TimeString,, dd (dddd) MMMM yyyy
menu,menu,add,%TimeString%, item
menu,menu,show
menu, menu,deleteall
return
item:
ClipSaved := ClipboardAll
clipputtext(a_thismenuitem, localeid=0x419)
Send ^{vk56}
Clipboard := ClipSaved
return
ButtonOK:
Gui, Submit ; Save the input from the user to each control's associated variable.
;MsgBox You entered "%Name%".
if ( ExtChoice ="doc" )
{
Run, %comspec% /c copy /y "%templates%\template.doc" "%Name%".doc && "%Name%".doc,,min
}
if ( ExtChoice ="jpg" )
{
Run, %comspec% /c copy /y "%templates%\template.jpg" "%Name%".jpg && "%Name%".jpg,,min
}
else
{
Run, %comspec% /c CD.>>"%Name%".%ExtChoice% & %txteditor% "%Name%.%ExtChoice%",,min
}
ExitApp
GuiClose:
ButtonCancel:
GuiEscape:
ExitApp
; (c)YMP http://forum.script-coding.info/viewtopic.php?id=1073
ClipPutText(Text, LocaleID=0x419)
{
CF_TEXT:=1, CF_LOCALE:=16, GMEM_MOVEABLE:=2
TextLen :=StrLen(Text)
HmemText :=DllCall("GlobalAlloc", "UInt", GMEM_MOVEABLE, "UInt", TextLen+1) ; Запрос перемещаемой
HmemLocale:=DllCall("GlobalAlloc", "UInt", GMEM_MOVEABLE, "UInt", 4) ; памяти, возвращаются хэндлы.
If(!HmemText || !HmemLocale)
Return
PtrText :=DllCall("GlobalLock", "UInt", HmemText) ; Фиксация памяти, хэндлы конвертируются
PtrLocale :=DllCall("GlobalLock", "UInt", HmemLocale) ; в указатели (адреса).
DllCall("msvcrt\memcpy", "UInt", PtrText, "Str", Text, "UInt", TextLen+1, "Cdecl") ; Копирование текста.
NumPut(LocaleID, PtrLocale+0) ; Запись идентификатора локали.
DllCall("GlobalUnlock", "UInt", HmemText) ; Расфиксация памяти.
DllCall("GlobalUnlock", "UInt", HmemLocale)
If not DllCall("OpenClipboard", "UInt", 0) ; Открытие буфера обмена.
{
DllCall("GlobalFree", "UInt", HmemText) ; Освобождение памяти,
DllCall("GlobalFree", "UInt", HmemLocale) ; если открыть не удалось.
Return
}
DllCall("EmptyClipboard") ; Очистка.
DllCall("SetClipboardData", "UInt", CF_TEXT, "UInt", HmemText) ; Помещение данных.
DllCall("SetClipboardData", "UInt", CF_LOCALE, "UInt", HmemLocale)
DllCall("CloseClipboard") ; Закрытие.
}
|
пожелания и предложения приветствуются
скачать справку и саму программу AutoHotkey можно http://www.autohotkey.com/download/ |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
