IniRead, folder, % a_lineFile, folders, folder_% a_index% Menu, folder_menu, disable, % save_folder Menu, folder_menu, add, % save_folder, set_folder StringMid, parent_folder, save_folder, % pos + 1 RegRead, capture_cursor, HKU, % lightshot_subkey, CaptureCursor RegRead, keep_selection, HKU, % lightshot_subkey, KeepSelection GoSub, rename_with_date rename any other 'screenshot_1.png' files WinWaitClose, Save As ahk_exe Lightshot.exe If winExist( "Save As ahk_exe Lightshot.exe ")įormatTime, formatted_time, % a_now, % time_formatĬontrolSetText, edit1, % prefix. WinGet, process_name, ProcessName, % "ahk_id " ls_id := lParam Save_folder := a_myDocuments "\Lightshot " RegRead, save_folder, HKU, % lightshot_subkey, LastSavedDir RegRead, dword, HKU, % lightshot_subkey, Formatįile_format := (dword = "1 ") ? "png " : (dword = "2 " ? "jpg " : "bmp ") file_extįormatTime, formatted_time, % a_loopFileTimeModified, % time_formatįileMove, % a_loopFileFullPath, % save_folder "\ " prefix. Loop, files, % save_folder() "\Screenshot_* ". #if winActive("ahk_exe Lightshot.exe",, "Save As") OnMessage( dllCall( "RegisterWindowMessage ", Str, "SHELLHOOK "), "shellMessage ") If (fullscreen) make hotkeys pass through to lightshotĭllCall( "RegisterShellHookWindow ", UInt, winExist()) code from SKAN IniRead, upload, % a_lineFile, settings, upload_hotkey IniRead, fullscreen, % a_lineFile, settings, fullscreen_hotkey
IniRead, custom_menu, % a_lineFile, settings, custom_menu IniRead, time_format, % a_lineFile, settings, time_format IniRead, prefix, % a_lineFile, settings, prefix StringReplace, user_sid, a_loopRegSubKey, SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\ If ( a_loopRegName = "ProfileImagePath ") Loop, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList, 1, 1 get user SID
Description = improvements for lightshot ()
0 kommentar(er)
