正确设置腾讯微云网盘同步助手实时双向同步任务和GoodSync2Go Ver 12.1.2.2 实时单向同步文件到群晖NAS网络附属存储服务器的单向同步任务 2022-12-14
REM 一键制作单文件软件.bat
REM 此批处理脚本文件最后编辑日期 2022年12月10日
if exist "C:\Program Files (x86)\WinRAR\WinRAR.exe" (
"C:\Program Files (x86)\WinRAR\WinRAR.exe" a -ag_YYYY.MM.DD_HH-MM-SS -iiconicon17.ico -m5 -r -sfx -zSFXCommander.txt Portable-WPS-.exe %~dp0..\*.*
)else (
"C:\Program Files\WinRAR\WinRAR.exe" a -ag_YYYY.MM.DD_HH-MM-SS -iiconicon17.ico -m5 -r -sfx -zSFXCommander.txt Portable-WPS-.exe %~dp0..\*.*
)
;下面的注释包含自解压脚本命令
;Path=解压缩路径
;Presetup=解压缩前运行
;Setup=解压缩后运行
;Silent=静默方式:1-隐藏全部 2-隐藏启动对话框 空着不设置-显示全部
;Overwrite=覆盖方式:1-覆盖全部文件 2-跳过已存在的文件 空着不设置-覆盖前询问
;请选择正确的图标并保存正确的配置文件
Path=D:\Prog
Setup=D:\Prog\OneKeySFXPortable\SetupConfig.bat
Silent=2
Overwrite=2
@Echo Off
start D:\Prog\AutoHotkey\_Silent_Setup.bat
start D:\Prog\WeiyunSync\Bin\weiyunsync.exe
start D:\Prog\GoodSync2Go\_RunGoodSync2Go.bat
D：
CD D:\Prog\MayeLite
start D:\Prog\MayeLite\MayeLite.exe
start D:\Prog\MayeLite\DelphiAutoRun\Win32\Debug\Project1.exe
REM /*
REM =======================================================
REM Silent_Setup.bat - 自动静默安装AutoHotkey和SciTE4AutoHotkey的批处理脚本
REM
REM 文件 : D:\Prog\AutoHotkey\_Silent_Setup.bat
REM
REM 脚本作者 : ds920
REM 最新版本 : 1.0.1
REM 更新时间 : 2022年1月26日
REM
REM 项目主页 : https://gitee.com/ds920
REM
REM 用法: (需要Windows系统的电脑)
REM 1. 鼠标双击用WinRAR x86 32位 压缩软件 打包成的SFX自解压exe可自行自动静默安装包文件
REM
REM =======================================================
REM */
START "" "%~dp0"AutoHotkey_1.1.36.02_setup.exe /S /A32 /U32 /U64 /D=D:\Prog\AutoHotkey\ /WAIT
REM 等待3秒钟，以便让AHK文件关联生效，使ahk脚本能够顺利运行
REM ping -n 3 127.0.0.1>nul 2>nul
REM 设置AHK文件关联、汉化AHK文件右键菜单(运行脚本、编译脚本、编译脚本(GUI)、编辑脚本)
REM 脚本说明： 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。
REM 作者： 甲壳虫<jdchenjian@gmail.com>
REM 修改作者： 兔子
REM 修改作者： ds920
START "" "%~dp0"Compiler.exe
START "" "%~dp0"SciTE\_Linked.exe
exit
loop,5
{
Sleep,5000
/*
作者： 甲壳虫<jdchenjian@gmail.com>
博客： http://hi.baidu.com/jdchenjian
脚本说明： 此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。
脚本版本： 2009-01-21
修改作者： 兔子
更新说明：
2010.01.09 之前某个时间，修改AHK路径、编辑器路径、编译器路径，默认全部在当前目录下寻找
2010.01.09 去掉默认在新建菜单的勾
2010.06.21 如果SCITE为默认编辑器，则复制个人配置文件“SciTEUser.properties”到%USERPROFILE%
2010.06.25 修正因#NoEnv使%USERPROFILE%变量直接引用无效
2016.04.18 删除“2010.06.21”的改动
2021.10.17 新增“编译脚本 (GUI)”的汉化
2021.11.02 自动根据 AutoHotkey.exe 的位置定位基准目录。
2021.11.05 重构代码，精简界面，修复新建模板时的编码问题，修复编辑模板时的权限问题。
修改作者 ： ds920
; ===== ds920 修改 2022年1月11日 ===== 第31行 =====
; ===== ds920 修改 2022年1月11日 ===== 第124行 =====
; ===== ds920 修改 2022年1月11日 ===== 第189到191行 =====
; ===== ds920 修改 2022年1月11日 ===== 第242行 =====
更新说明：
2022.01.11 注释掉部分AutoHotkey语句，让其他脚本能够静默调用此AHK脚本，
实现AHK文件关联和汉化鼠标右键中文菜单
2022.01.11 #SingleInstance, force 改成 #SingleInstance, Ignore 防止出现等待的提示窗口
*/
#NoEnv
; ===== ds920 修改 2022年1月11日 ===== 第31行 =====
#SingleInstance, Ignore
SendMode Input
SetWorkingDir %A_ScriptDir%
; 版本(仅用于显示）
Script_Version=ver. 1.1
; AutoHotkey 原版的相关信息写在注册表HKCR主键中，
; 尝试当前用户否有权操作该键，如果无权操作HKCR键（受限用户），
; 可通过操作注册表HKCU键来实现仅当前用户关联AHK脚本。
RegWrite, REG_SZ, HKCR, .test
if ErrorLevel
IsLimitedUser:=1
RegDelete, HKCR, .test
if ErrorLevel
IsLimitedUser:=1
if IsLimitedUser
{
RootKey=HKCU ; 受限用户操作HKCU键
Subkey=Software\Classes\ ; 为简化后面的脚本，此子键须以“\”结尾
}
else
{
RootKey=HKCR ; 非受限用户操作HKCR键
Subkey=
}
; 检查是否存在AHK注册表项
RegRead, FileType, %RootKey%, %Subkey%.ahk
if (FileType!="")
{
RegRead, value, %RootKey%, %Subkey%%FileType%\Shell\Open\Command ; AHK路径
AHK_Path:=PathGetPath(value)
RegRead, value, %RootKey%, %Subkey%%FileType%\Shell\Compile\Command ; 编译器路径
Compiler_Path:=PathGetPath(value)
RegRead, value, %RootKey%, %Subkey%%FileType%\Shell\Edit\Command ; 编辑器路径
Editor_Path:=PathGetPath(value)
RegRead, Template_Name, %RootKey%, %Subkey%.ahk\ShellNew, FileName ; 模板文件名
}
else
FileType=AutoHotkeyScript
; 通过 AutoHotkey.exe 的位置来定位基准目录
SplitPath, A_AhkPath, , AhkDir
if AHK_Path=
{
IfExist, %AhkDir%\AutoHotkey.exe
AHK_path=%AhkDir%\AutoHotkey.exe
}
if Compiler_Path=
{
IfExist, %AhkDir%\Compiler\Ahk2Exe.exe
Compiler_Path=%AhkDir%\Compiler\Ahk2Exe.exe
}
if Editor_Path=
{
IfExist, %AhkDir%\SciTE\SciTE.exe
Editor_Path=%AhkDir%\SciTE\SciTE.exe
}
if Template_Name=
Template_Name=Template.ahk
Gui, Font, bold s15
Gui, Add, Text, x10 y10 w480 h290, %A_Space%设置并汉化 .ahk 文件的右键菜单
Gui, Font
Gui, Add, GroupBox, x20 y50 w460 h50 , “运行脚本”
Gui, Add, Edit, x35 y70 w340 h20 vAHK_Path, %AHK_path%
Gui, Add, Button, x385 y70 w40 h20 gFind_AHK, 浏览
Gui, Add, GroupBox, x20 y110 w460 h50 , “编译脚本”
Gui, Add, Edit, x35 y130 w340 h20 vCompiler_Path, %Compiler_Path%
Gui, Add, Button, x385 y130 w40 h20 gChoose_Compiler, 浏览
Gui, Add, Button, x430 y130 w40 h20 gDefault_Compiler, 默认
Gui, Add, GroupBox, x20 y170 w460 h50 , “编辑脚本”
Gui, Add, Edit, x35 y190 w340 h20 vEditor_Path, %Editor_Path%
Gui, Add, Button, x385 y190 w40 h20 gChoose_Editor, 浏览
Gui, Add, Button, x430 y190 w40 h20 gDefault_Editor, 默认
Gui, Add, GroupBox, x20 y230 w460 h50 , “新建脚本”
Gui, Add, Button, x35 y250 w340 h20 gEdit_Template, 自定义新建脚本的模板
Gui, Font, bold s15
Gui, Add, Button, x20 y300 w200 h40 Default gInstall, 设置
Gui, Add, Button, x280 y300 w200 h40 gCancel, 取消
; ===== ds920 修改 2022年1月11日 ===== 第124行 =====
gosub, Install
if (A_Args.1="/set")
gosub, Install
else
Gui, Show, x250 y200 h350 w500 Center, AHK 脚本关联工具 %Script_Version%
return
GuiClose:
GuiEscape:
Cancel:
ExitApp
return
; 查找 AutoHotkey 主程序
Find_AHK:
Gui +OwnDialogs
FileSelectFile, AHK_Path, 3, , 查找 AutoHotkey.exe, AutoHotkey.exe
if (AHK_Path!="")
GuiControl,,AHK_Path, %AHK_Path%
gosub Default_Compiler
return
; 选择脚本编译器
Choose_Compiler:
Gui +OwnDialogs
FileSelectFile, Compiler_Path, 3, , 选择脚本编译器, 程序(*.exe)
if (Compiler_Path!="")
GuiControl,,Compiler_Path, %Compiler_Path%
return
; 默认脚本编译器
Default_Compiler:
GuiControlGet, AHK_Path
SplitPath, AHK_Path, ,AHK_Dir
IfExist, %AHK_Dir%\Compiler\Ahk2Exe.exe
{
Compiler_Path=%AHK_Dir%\Compiler\Ahk2Exe.exe
GuiControl,, Compiler_Path, %Compiler_Path%
}
return
; 选择脚本编辑器
Choose_Editor:
Gui +OwnDialogs
FileSelectFile, Editor_Path, 3, , 选择脚本编辑器, 程序(*.exe)
if (Editor_Path!="")
GuiControl,,Editor_Path, %Editor_Path%
return
; 默认脚本编辑器
Default_Editor:
IfExist, %AhkDir%\SciTE\SciTE.exe
Editor_Path=%AhkDir%\SciTE\SciTE.exe
else ifExist, %A_WinDir%\system32\notepad.exe
Editor_Path=%A_WinDir%\system32\notepad.exe
GuiControl,, Editor_Path, %Editor_Path%
return
; 设置
Install:
Gui, Submit
; ===== ds920 修改 2022年1月11日 ===== 第189到191行 =====
AHK_Path:="D:\Prog\AutoHotkey\AutoHotkey.exe"
Compiler_Path:="D:\Prog\AutoHotkey\Compiler\Ahk2Exe.exe"
Editor_Path:="D:\Prog\AutoHotkey\SciTE\SciTE.exe"
IfNotExist, %AHK_Path%
{
MsgBox, 16, , AutoHotkey 路径错误 ！
return
}
IfNotExist, %Compiler_Path%
{
MsgBox, 16, , 编译器路径错误 ！
return
}
IfNotExist, %Editor_Path%
{
MsgBox, 16, , 编辑器路径错误 ！
return
}
; 写入注册表
RegWrite, REG_SZ, %RootKey%, %Subkey%.ahk,, %FileType%
RegWrite, REG_SZ, %RootKey%, %Subkey%.ahk\ShellNew, FileName, %Template_Name%
IfNotExist, %A_WinDir%\ShellNew\%Template_Name%
gosub Create_Template
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%,, AutoHotkey 脚本
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\DefaultIcon,, %AHK_Path%`,1
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell,, Open
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Open,, 运行脚本
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Open\Command,, "%AHK_Path%" "`%1" `%*
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile,, 编译脚本
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile-Gui,, 编译脚本 (GUI)
IfInString, Compiler_Path, Ahk2Exe.exe
{
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile\Command,, "%Compiler_Path%" /in "`%1"
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile-Gui\Command,, "%Compiler_Path%" /gui /in "`%1"
}
else
{
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile\Command,, "%Compiler_Path%" "`%1"
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile-Gui\Command,, "%Compiler_Path%" /gui "`%1"
}
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Edit,, 编辑脚本
RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Edit\Command,, "%Editor_Path%" "`%1"
; ===== ds920 修改 2022年1月11日 ===== 第242行 =====
; MsgBox, 64, , 设置完毕 ！
ExitApp
return
; 编辑脚本模板
Edit_Template:
GuiControlGet, Editor_Path
IfNotExist, %Editor_Path%
{
MsgBox, 64, , 脚本编辑器路径错误 ！
return
}
IfNotExist, %A_WinDir%\ShellNew\%Template_Name%
gosub Create_Template
ifExist, %A_WinDir%\system32\notepad.exe
Run, *RunAs notepad.exe %A_WinDir%\ShellNew\%Template_Name%
else
Run, *RunAs %Editor_Path% %A_WinDir%\ShellNew\%Template_Name%
return
; 新建脚本模板
Create_Template:
FileAppend,
(
#NoEnv
SendMode Input
SetWorkingDir `%A_ScriptDir`%
), %A_WinDir%\ShellNew\%Template_Name%, UTF-8
IfNotExist, %A_WinDir%\ShellNew\%Template_Name%
MsgBox, 64, , 无法创建脚本模板 ！`n`n请尝试使用管理员权限运行本工具。
return
; 从注册表值字符串中提取路径
PathGetPath(pSourceCmd)
{
local Path, ArgsStartPos = 0
if (SubStr(pSourceCmd, 1, 1) = """")
Path := SubStr(pSourceCmd, 2, InStr(pSourceCmd, """", False, 2) - 2)
else
{
ArgsStartPos := InStr(pSourceCmd, " ")
if ArgsStartPos
Path := SubStr(pSourceCmd, 1, ArgsStartPos - 1)
else
Path = %pSourceCmd%
}
return Path
}
}
// ; D:\Prog\MayeLitecfg.json
{
"HotKey": "Alt+Space",
"IsDebug": false,
"IsDoubleClickBlankHide": true,
"IsKillFocuHide": true,
"IsMouseWheelRun": true,
"IsNotifyIconHoverShow": true,
"IsRunAfterHide": true,
"IsTopMost": true,
"NotifyIconType": 0,
"TabHoverSwitchDelay": 0,
"cx": 600,
"cy": 719,
"x": 1189,
"y": 190
}
// ; D:\Prog\MayeLite\JDB.json
{"CI":1002,"DI":1054,"data":{"1001":{"order":1670635909283,"name":"New-1","item":{"1019":{"o":0,"oc":0,"ar":false,"n":"Prog","u":"D:\\Prog","p":"","d":"","pc":0,"t":"","ico":""},"1020":{"o":4,"oc":0,"ar":false,"n":"SciTE","u":"D:\\Prog\\AutoHotkey\\SciTE\\SciTE.exe","p":"","d":"","pc":0,"t":"","ico":""},"1021":{"o":5,"oc":0,"ar":false,"n":"SumatraPDF","u":"D:\\Prog\\TotalCMD\\Plugins\\Wlx\\sLister\\SumatraPDF.exe","p":"","d":"","pc":0,"t":"","ico":""},"1022":{"o":6,"oc":0,"ar":false,"n":"Notepad2","u":"D:\\Prog\\TotalCMD\\Tools\\Notepad2.exe","p":"","d":"","pc":0,"t":"","ico":""},"1025":{"o":7,"oc":0,"ar":false,"n":"MyHash","u":"D:\\Prog\\TotalCMD\\Tools\\MyHash.exe","p":"","d":"","pc":0,"t":"","ico":""},"1026":{"o":8,"oc":0,"ar":false,"n":"Swoff","u":"D:\\Prog\\TotalCMD\\Tools\\Swoff.exe","p":"","d":"","pc":0,"t":"","ico":""},"1027":{"o":9,"oc":0,"ar":false,"n":"MasterSeeker-F3","u":"D:\\Prog\\MasterSeeker\\MasterSeeker-F3.exe","p":"","d":"","pc":"0","t":"","ico":"","key":"F3"},"1028":{"o":2,"oc":0,"ar":false,"n":"OpenWorkFolder","u":"D:\\Prog\\OpenWorkFolder\\Win32\\Debug\\OpenWorkFolder.exe","p":"","d":"","pc":"0","t":"","ico":"","key":"~"},"1031":{"o":11,"oc":0,"ar":false,"n":"FastStoneCapture","u":"D:\\Prog\\FastStoneCapture\\FastStoneCapture.exe","p":"","d":"","pc":0,"t":"","ico":""},"1032":{"o":10,"oc":0,"ar":false,"n":"Everything","u":"D:\\Prog\\Everything\\Everything.exe","p":"","d":"","pc":0,"t":"","ico":""},"1033":{"o":12,"oc":0,"ar":false,"n":"_RunGoodSync2Go","u":"D:\\Prog\\GoodSync2Go\\_RunGoodSync2Go.bat","p":"","d":"","pc":0,"t":"","ico":""},"1034":{"o":14,"oc":0,"ar":false,"n":"KeePass","u":"D:\\Prog\\KeePass\\KeePass.exe","p":"","d":"","pc":0,"t":"","ico":""},"1035":{"o":15,"oc":0,"ar":false,"n":"MasterSeeker","u":"D:\\Prog\\MasterSeeker\\MasterSeeker.exe","p":"","d":"","pc":0,"t":"","ico":""},"1036":{"o":16,"oc":0,"ar":false,"n":"OneKeyHibernation","u":"D:\\Prog\\OneKeyHibernation\\OneKeyHibernation.bat","p":"","d":"","pc":"0","t":"","ico":"","key":"Ctrl+F12"},"1037":{"o":17,"oc":0,"ar":false,"n":"OneKeySleep","u":"D:\\Prog\\OneKeySleep\\OneKeySleep.bat","p":"","d":"","pc":"0","t":"","ico":"","key":"Alt+F12"},"1038":{"o":20,"oc":0,"ar":false,"n":"Photoshop","u":"D:\\Prog\\Photoshop\\Adobe Photoshop CS6\\Photoshop.exe","p":"","d":"","pc":0,"t":"","ico":""},"1040":{"o":19,"oc":0,"ar":false,"n":"Photoshop绿化","u":"D:\\Prog\\Photoshop\\Photoshop绿化.bat","p":"","d":"","pc":0,"t":"","ico":""},"1041":{"o":22,"oc":0,"ar":false,"n":"Snapshot备份还原x64","u":"D:\\Prog\\Snapshot\\Snapshot备份还原x64.exe","p":"","d":"","pc":0,"t":"","ico":""},"1042":{"o":23,"oc":0,"ar":false,"n":"TOTALCMD64","u":"D:\\Prog\\TotalCMD\\TOTALCMD64.EXE","p":"","d":"","pc":0,"t":"","ico":""},"1043":{"o":25,"oc":0,"ar":false,"n":"DVDFabVirtualDrive1511","u":"D:\\Prog\\VirtualDrive\\DVDFabVirtualDrive1511.exe","p":"","d":"","pc":0,"t":"","ico":""},"1044":{"o":24,"oc":0,"ar":false,"n":"Embarcadero.Delphi.11.2.v28.0.46141.0937.Lite.v17.2","u":"D:\\Prog\\Delphi112v28\\Embarcadero.Delphi.11.2.v28.0.46141.0937.Lite.v17.2.exe","p":"","d":"","pc":0,"t":"","ico":""},"1046":{"o":21,"oc":0,"ar":false,"n":"procexp64","u":"D:\\Prog\\ProcessExplorer\\procexp64.exe","p":"","d":"","pc":0,"t":"","ico":""},"1047":{"o":18,"oc":0,"ar":false,"n":"pchunter64","u":"D:\\Prog\\PCHunter\\pchunter64.exe","p":"","d":"","pc":0,"t":"","ico":""},"1048":{"o":13,"oc":0,"ar":false,"n":"IObitUnlocker","u":"D:\\Prog\\IObitUnlocker\\IObitUnlocker.exe","p":"","d":"","pc":0,"t":"","ico":""},"1050":{"o":26,"oc":0,"ar":false,"n":"腾讯QQ","u":"C:\\Program Files (x86)\\Tencent\\QQ\\Bin\\QQScLauncher.exe","p":"","d":"C:\\Program Files (x86)\\Tencent\\QQ\\Bin","pc":0,"t":"","ico":"C:\\Program Files (x86)\\Tencent\\QQ\\Bin\\QQScLauncher.exe,0"},"1051":{"o":27,"oc":0,"ar":false,"n":"pdfconverter","u":"C:\\Program Files (x86)\\Icecream PDF Converter\\pdfconverter.exe","p":"","d":"","pc":0,"t":"","ico":""},"1052":{"o":3,"oc":0,"ar":false,"n":"010-单位","u":"D:\\微云同步助手\\595076941\\010-办公文件\\010-单位","p":"","d":"","pc":0,"t":"","ico":""},"1053":{"o":1,"oc":0,"ar":false,"n":"weiyunsync","u":"D:\\Prog\\WeiyunSync\\Bin\\weiyunsync.exe","p":"","d":"","pc":0,"t":"","ico":""}
rem 一键休眠
powercfg -h on
shutdown -h
// 工程名不支持简体中文，其实英文名称也很好，如果非要简体中文文件名只好手动重命名exe可执行文件了
// Embarcadero.Delphi.11.2.v28.0.46141.0937.Lite.v17.2
program OpenWorkFolder;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
// 不显示主窗体,不显示任务栏图标
Application.ShowMainForm := false;
Application.Run;
end.
// 打开的单位办公默认文件夹
// Embarcadero.Delphi.11.2.v28.0.46141.0937.Lite.v17.2
// 正确设置 腾讯微云网盘同步助手和GoodSync2Go Ver 12.1.2.2 实时单向同步文件到群晖NAS的SFTP 防止丢失文件
unit Unit1;
interface
// 程序单元的uses语句中要加入 ,ComObj,ActiveX,ShlObj,ShellAPI; 这四个单元。
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.StdCtrls, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ComObj, ActiveX, ShlObj,
ShellAPI;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure CreateDesktopLink();
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
pitem: PITEMIDLIST;
s: string;
lnkfile: string;
begin
// 创建单位办公默认文件夹，手机扫码登录的百度网盘同步空间默认本地文件夹
// forcedirectories和CreateDirectory都能创建文件夹
ForceDirectories
('D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位');
// 用25H制作的Maye设置快捷键~并调用Total Commander 10.52 打开的单位办公默认文件夹，手机扫码登录的百度网盘同步空间默认本地文件夹
// 我个人使用感觉百度网盘同步空间要比腾讯微云同步助手更可靠，特别是在处理特殊的同步冲突时表现得尤为突出。
// 程序单元的uses语句中要加入 ,ComObj,ActiveX,ShlObj,ShellAPI; 这四个单元。
// ShellExecute(handle, 'open', 'D:\Prog\TotalCMD\TotalCMD64.exe', 'D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位', nil, SW_SHOWMAXIMIZED);
WinExec('D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位',
1);
// ShellExecute(handle, 'open', 'https://docs.qq.com/', nil, nil, SW_SHOWMINIMIZED);
// ShellExecute(handle, 'open', 'notepad.exe', nil, nil, SW_SHOWMINIMIZED);
{
最后的那个参数，为窗口指定可视性方面的一个命令。
请用下述任何一个常数
SW_HIDE 隐藏窗口，活动状态给令一个窗口
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口，并将其激活
SW_SHOWMINIMIZED 最小化窗口，并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同
}
// 在桌面上放置打开办公文件夹的快捷方式，办公文件夹实时单向上传到“百度网盘同步空间”
CreateDesktopLink();
application.terminate;
end;
// 程序单元的uses语句中要加入 ,ComObj,ActiveX,ShlObj,ShellAPI; 这四个单元。
procedure CreateDesktopLink();
var
tmpObject: IUnknown;
tmpSLink: IShellLink;
tmpPFile: IPersistFile;
PIDL: PITEMIDLIST;
StartupDirectory: array [0 .. MAX_PATH] of Char;
StartupFilename: String;
LinkFilename: WideString;
begin
// 创建快捷方式到桌面
// StartupFilename :=Application.ExeName;
StartupFilename :=
'D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位';
tmpObject := CreateComObject(CLSID_ShellLink); // 创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink; // 取得接口
tmpPFile := tmpObject as IPersistFile; // 用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(StartupFilename)); // 设定所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));
// 设定工作目录
SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);
// 获得桌面的Itemidlist
tmpSLink.SetDescription('单位办公文件夹的备注');
tmpSLink.SetIconLocation(pChar(StartupFilename), 0);
SHGetPathFromIDList(PIDL, StartupDirectory); // 获得桌面路径
LinkFilename := StartupDirectory + '\单位办公文件夹.lnk';
tmpPFile.Save(pWChar(LinkFilename), FALSE); // 保存*.lnk文件
end;
end.
D:\Prog\_办公文件管理方案2022-12-9\
D:\Prog\7Zip\
D:\Prog\AutoHotkey\
D:\Prog\BaiduNetdisk\
D:\Prog\CGIplus\
D:\Prog\Delphi7\
D:\Prog\Delphi112v28\
D:\Prog\EmEditor\
D:\Prog\ESFileExplorer\
D:\Prog\Everything\
D:\Prog\FastStoneCapture\
D:\Prog\Ghost\
D:\Prog\GoodSync2Go\
D:\Prog\IObitUnlocker\
D:\Prog\KeePass\
D:\Prog\MasterSeeker\
D:\Prog\MayeLite\
D:\Prog\OneKeyGhost\
D:\Prog\OneKeyHibernation\
D:\Prog\OneKeySFXPortable\
D:\Prog\OneKeySleep\
D:\Prog\OpenWorkFolder\
D:\Prog\PCHunter\
D:\Prog\Photoshop\
D:\Prog\PrimoCache\
D:\Prog\ProcessExplorer\
D:\Prog\SGImini\
D:\Prog\Snapshot\
D:\Prog\SogouPinyin\
D:\Prog\TotalCMD\
D:\Prog\UltraISO\
D:\Prog\VirtualDrive\
D:\Prog\WeiyunSync\
D:\Prog\WinRAR\
D:\Prog\WPS\
D:\Prog\火绒安全\
D:\Prog\FullTextSearch.iso
D:\Prog\办公软件部署安装包.7z
D:\Prog\办公软件部署安装包.txt
D:\Prog\微云同步助手安装包WeiyunSyncInstall.exe
电子文件管理方案2022-12-12.docx
一、命名文件与备注的格式
事项简明描述-姓名和手机号-总金额（元）-批次比例（第__次）-地点位置（百度地图）-
对方单位名称-批注注释-【分类分组别名】-v版本号-日期
（搜狗拼音输入法rq3输入 减号分隔 的年月日数字FormatDateTime('YYYY-MM-DD', NOW);）
（不要怕麻烦，命名时仔细周到，今后查找时就快捷高效易用）
二、用户名和密码管理
Keepass + KeePassA + Keepass2Android + 坚果云WebDAV + TeraCLOUD WebDAV
三、联系人手机号电话本管理
保存联系人到小米12 S Pro安卓手机并且导出联系人到文件
D:\微云同步助手\595076941\010-办公文件\020-本人\010-联系人\00001.VCF 备份副本
小米 12 S Pro 安卓手机 黑色外壳 12GB运存 512GB硬盘 -》设置 -》我的设备 -》备份与恢复 -》
手机备份恢复 -》立即备份
四、网址管理
搜狗高速浏览器收藏夹导出备份HTML文件到
文件夹D:\微云同步助手\595076941\010-办公文件\020-本人\020-收藏夹\Bookmark.html 备份副本
五、办公文件管理
电脑本地硬盘文件夹D:\微云同步助手\595076941\010-办公文件\ 手机QQ扫码登录腾讯微云同步助手
010-单位 ， 020-本人 ， 030-他司 ， 040-他人 ， 050-实时同步测试
（用25H的Maye Lite设置打开当前办公文件夹的快捷键为~，~键位于Esc键下方，Tab键上方），
快捷键指向Embarcadero.Delphi.11.2.v28.Lite.v17.2编程开发的Windows程序 OpenWorkFolder.exe
WinExec('D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位',1);或者
ShellExecute(handle, 'open', 'D:\微云同步助手\595076941\010-办公文件\010-单位', nil,
SW_SHOWMAXIMIZED); 并且手动发送”单位办公文件夹”的快捷方式到电脑桌面）
设置GoodSync2Go Ver 12.1.2.2 实时单向同步文件到群晖NAS的SFTP
六、非办公文件管理
1、非办公文件保存到Synology群晖DS920+的硬盘2中的共享文件夹 “020-非办公文件”
2、用RaiDrive_2022.6.92_x64或者Mountain Duck异地远程映射网络驱动器
用WinSCP或者ES文件浏览器安卓版异地远程连接并访问Synology群晖DS920+的共享文件夹
010-电脑软件，020-手机软件，编程源码，图片照片，音频歌曲，视频电影，电子书，视频剪辑，备份测试
七、文件编辑软件
1、搜狗拼音输入法
2、EmEditor Professional
2、WPS Office 2019 Professional
3、Adobe Photoshop CS6
4、FastStone Capture版本9.6
八、文件搜索查找
1、MasterSeeker 1.5.1 by DxCK 用25H的Maye Lite设快捷键F3
2、Everything 版本 V1.4.1.1022 根据文件名快速搜索本地磁盘中的文件
3、Total Commander (x64) 10.52 简体中文汉化破解增强定制版
4、Archivarius 3000 4.79批量全文搜索正文内容
5、FileLocator Pro Version2022 Build3307 大眼仔旭
九、Windows电脑
1、防毒杀毒，火绒安全
2、手动原地日期掩码压缩备份文件，WinRAR v6.11简体中文破解版
3、硬盘加速PrimoCache v4.1.0 Patch 硬盘加速 Crack EXEMD5 7B94
4、Windows系统热备份硬盘快照克隆镜像USM v6 U盘魔术师PE
Drive Snapshot V1.50 Crack CN 简体中文汉化破解版和
一键还原备份SGIMINI4.0通用版本 www.sysceo.com www.usbrun.com
十、Synology群晖NAS网络附属存储服务器
1、设备型号选择，Synology群晖DS920+网络附属存储服务器，正确设置DDNS并映射冷门端口转发
2、存储空间管理
(1)硬盘1：固态硬盘1TB，Basic存储池，010-办公文件备份到此 ( 用腾讯微云同步助手 )
用群晖Cloud Sync套件在17点到23点实时上传所有办公文件到百度网盘( 仅上传本地更改 )
(2)硬盘2：机械硬盘8TB，Basic存储池，020-非办公文件，每天18点31版本备份办公文件到此处
(3)硬盘3：机械硬盘8TB，Basic存储池， ( 用群晖Hyper Backup套件 )
每天19点31版本备份办公文件到此处，每天22点单版本备份非办公文件到此处
(4)硬盘4：机械硬盘8TB，Basic存储池，
每天20点31版本备份办公文件到此处，每天23点单版本备份非办公文件到此处
3、所有用户名和密码的长度都是64个字符，用户名和密码都应当包含英文半角句点，减号和下划线
4、另外再创建两个备用的群晖管理员账号，防止遗忘和误改，这样就不用在忘记密码时捅RESET孔了
5、把Synology群晖DS920+网络附属存储服务器用4位密码纯铜挂锁锁在超厚304不锈钢保护箱子中，
防止服务器硬件设备和硬盘被小偷盗走，防止文件数据被闲杂人员破坏或窃取，防止丢失文件，防止泄密。
// 工程名不支持简体中文，其实英文名称也很好，如果非要简体中文文件名只好手动重命名exe可执行文件了
// Embarcadero.Delphi.11.2.v28.0.46141.0937.Lite.v17.2
program OpenWorkFolder;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
// 不显示主窗体,不显示任务栏图标
Application.ShowMainForm := false;
Application.Run;
end.
// 打开的单位办公默认文件夹
// Embarcadero.Delphi.11.2.v28.0.46141.0937.Lite.v17.2
// 正确设置 腾讯微云网盘同步助手和GoodSync2Go Ver 12.1.2.2 实时单向同步文件到群晖NAS的SFTP 防止丢失文件
unit Unit1;
interface
// 程序单元的uses语句中要加入 ,ComObj,ActiveX,ShlObj,ShellAPI; 这四个单元。
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.StdCtrls, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ComObj, ActiveX, ShlObj,
ShellAPI;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure CreateDesktopLink();
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
pitem: PITEMIDLIST;
s: string;
lnkfile: string;
begin
// 创建单位办公默认文件夹，手机扫码登录的百度网盘同步空间默认本地文件夹
// forcedirectories和CreateDirectory都能创建文件夹
ForceDirectories
('D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位');
// 用25H制作的Maye设置快捷键~并调用Total Commander 10.52 打开的单位办公默认文件夹，手机扫码登录的百度网盘同步空间默认本地文件夹
// 我个人使用感觉百度网盘同步空间要比腾讯微云同步助手更可靠，特别是在处理特殊的同步冲突时表现得尤为突出。
// 程序单元的uses语句中要加入 ,ComObj,ActiveX,ShlObj,ShellAPI; 这四个单元。
// ShellExecute(handle, 'open', 'D:\Prog\TotalCMD\TotalCMD64.exe', 'D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位', nil, SW_SHOWMAXIMIZED);
WinExec('D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位',
1);
// ShellExecute(handle, 'open', 'https://docs.qq.com/', nil, nil, SW_SHOWMINIMIZED);
// ShellExecute(handle, 'open', 'notepad.exe', nil, nil, SW_SHOWMINIMIZED);
{
最后的那个参数，为窗口指定可视性方面的一个命令。
请用下述任何一个常数
SW_HIDE 隐藏窗口，活动状态给令一个窗口
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口，并将其激活
SW_SHOWMINIMIZED 最小化窗口，并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同
}
// 在桌面上放置打开办公文件夹的快捷方式，办公文件夹实时单向上传到“百度网盘同步空间”
CreateDesktopLink();
application.terminate;
end;
// 程序单元的uses语句中要加入 ,ComObj,ActiveX,ShlObj,ShellAPI; 这四个单元。
procedure CreateDesktopLink();
var
tmpObject: IUnknown;
tmpSLink: IShellLink;
tmpPFile: IPersistFile;
PIDL: PITEMIDLIST;
StartupDirectory: array [0 .. MAX_PATH] of Char;
StartupFilename: String;
LinkFilename: WideString;
begin
// 创建快捷方式到桌面
// StartupFilename :=Application.ExeName;
StartupFilename :=
'D:\Prog\TotalCMD\TotalCMD64.exe D:\微云同步助手\595076941\010-办公文件\010-单位';
tmpObject := CreateComObject(CLSID_ShellLink); // 创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink; // 取得接口
tmpPFile := tmpObject as IPersistFile; // 用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(StartupFilename)); // 设定所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));
// 设定工作目录
SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);
// 获得桌面的Itemidlist
tmpSLink.SetDescription('单位办公文件夹的备注');
tmpSLink.SetIconLocation(pChar(StartupFilename), 0);
SHGetPathFromIDList(PIDL, StartupDirectory); // 获得桌面路径
LinkFilename := StartupDirectory + '\单位办公文件夹.lnk';
tmpPFile.Save(pWChar(LinkFilename), FALSE); // 保存*.lnk文件
end;
end.
说明：为了我能够在今后快速高效的找到此文章，查看阅读、搜索寻找、编辑修改、分享交流此文章，
为了防止遗失此文章，我已经把此文章的Word文档 和/或 MP4视频文件上传到以下网站：
1、AutoHotkey中文社区
https://www.autoahk.com/
2、博客园
https://www.cnblogs.com/
3、腾讯文档
https://docs.qq.com/
金山文档
https://www.kdocs.cn/
石墨文档
https://shimo.im/
有道云笔记
https://note.youdao.com/
今日头条
https://www.toutiao.com/
抖音
https://www.douyin.com/
西瓜视频
https://www.ixigua.com/
腾讯微视
https://weishi.qq.com/
优酷视频
https://www.youku.com/
搜狐视频
https://tv.sohu.com/
快手
https://www.kuaishou.com/
腾讯微云网盘
https://www.weiyun.com/
阿里云盘
https://www.aliyundrive.com/
百度网盘
http://pan.baidu.com/
天翼云盘
https://cloud.189.cn/web/login.html
中国移动云盘
https://yun.139.com/
群晖网络附属存储服务器
https://www.synology.cn/zh-cn/products/DS920+
等等，一些常见的文档、博客和视频网站。
把此文章上传到多个网站，从而有效的防止丢失此文章，防止今后找不到此文章。
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
我认为数量和规模优先，质量其次，集中统一管理所有编程脚本和编程源代码工程，集中统一保存，集中统一重命名，集中统一备注，集中统一共享，集中统一协作。收集大量源代码（ 几十GB的源代码和相关资源文件 ） 全文索引，全文搜索，Full-Text Search，实时同步，实时共享，在线Web网页版 集成开发环境 IDE 1、如何在5分钟之内从5万个源代码文件中搜索到当前所需的编程源代码块片段资源-2022年9月23日 https://www.autoahk.com/archives/43919 2、如何在FirPE中运行AutoHotkey脚本和Maye-Lite-2022年8月25日 https://www.autoahk.com/archives/43457 3、Delphi编程在线云文档 https://www.autoahk.com/archives/44069 4、长期收集AHK、AU3、Delphi资源(源代码，电子书，视频教程，音频教程) (提醒贴)(草稿版)（免费）,AutoHotkey资源未分类打包,（持续更新）,（神奇的分享帖子）,(2018年10月17日未分类未修改未测试未杀毒)，作者:徐晓亮， ( aahk )，QQ595076941 https://www.autoahk.com/archives/12166 5、如何高效的搜索AutoHotkey脚本源代码文件？ https://www.autoahk.com/archives/35251 源代码质量可以劣质一点，垃圾一点，杂乱一点 先收集大量源代码，然后放任不管，在需要使用时在本地和搜索引擎中全文搜索源代码。 先多再好 平时测试筛选出高质量优秀源代码后移动，重命名，分类，整理，收纳，积累测试后的源代码。 也许我的想法不正确，我现在收集的源代码已经超过50GB了，并且我已经把这些源代码及相关资源文件实时同步上传到多个文件存储服务商的存储空间之中了。有很多都是精挑细选之后一键启用，无需安装，无需设置的，拿来就用的，批量部署的，绿色无污染的脚本，程序，源代码，工具软件。