无人值守全自动静默安装Delphi7到Windows11的AutoHotkey脚本2022年1月9日

无人值守全自动静默安装Delphi7到Windows11的AutoHotkey脚本2022年1月9日

 

第1步:下载Delphi7安装包

文件名称: D:\Personal\Desktop\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
文件大小: 74.2 MB (77,900,595 字节)
文件版本: 7.3.4.3
修改时间: 2011年08月01日,08:36:20
MD5: 251DD0193CCA8906E2335087BE2FE1D0
SHA1: 7222D058F38FB086227C0D1056221165F69F3174
SHA256: E413ECD2615E24FB3A3A60555A6AFDACCB812C70C3B693E709859928ECC878DA
SHA512: 17DA0668570D9E62A88F60ABBCF79CC2531036C94EACE99A3F2EF0BA156182EA175233CB05B23EC747322E2D3F6B7385AB3FBC46AD5486FB7AABACDA3C7EE12E
CRC32: 67402278

 

第2步:制作并测试“全自动静默安装Delphi7的AutoHotkey脚本”

; 无人值守全自动静默安装Delphi7到Windows11的AutoHotkey脚本2022年1月9日
; FileName := A_Setup_Delphi7.ahk

#SingleInstance,Ignore
loop,5
{
	DetectHiddenWindows,On
	Sleep,5
	IfWinExist,E-Mail-595076941@QQ.COM
		ExitApp
}
Gui, Show, Hide,E-Mail-595076941@QQ.COM
#Persistent
; #NoTrayIcon
DetectHiddenWindows,On
SetTitleMatchMode,2

; 启动7z安装程序
SetTimer,SetupTimer,500
return
SetupTimer()
{
	; 1、如果程序没有运行则运行程序
	Process,Exist,Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
	if (%ErrorLevel%=0)
	{
		IfExist,%A_ScriptDir%\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
		{
			Run,%A_ScriptDir%\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
		}
		else
		{
			MsgBox,找不到文件 %A_ScriptDir%\Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.exe
			return
		}
	}
	IfWinNotExist,安装向导 - Delphi 7 Lite Full Edition,正在你的计算机中安装 Delphi 7 Lite Full Edition,请稍等...
	{
		ControlSend, TNewButton1,{Space}, 选择安装语言 ahk_class TSelectLanguageForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 取消
		ControlSend, Button1,{Space}, 安装向导 ahk_class #32770 ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 本程序为Window
		ControlSend, TNewButton1,!n, 安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 取消
		ControlSend, TNewButton1,!i, 安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp, 取消
	}
	IfWinExist,安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm,安装向导已完成 Delphi 7 Lite Full Edition 的安装
	{
		SetTimer,SetupTimer,Delete
		ControlClick, TNewButton5, 安装向导 - Delphi 7 Lite Full Edition ahk_class TWizardForm ahk_exe Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801.tmp,安装向导已完成 Delphi 7 Lite Full Edition 的安装
		MsgBox,,,已成功安装Delphi7Lite编程软件,2
		ExitApp
	}
}

 

第3步:上传、发布、共享、备份、

复制、拷贝静默安装Delphi7的AutoHotkey脚本和

Delphi7安装包等相关文件到各种存储池介质中

本地磁盘、
局域网共享文件夹、
群晖 RAID 1 镜像存储池中的共享文件夹
蓝奏云存储网盘共享链接
https://www.lanzou.com/
123云盘云存储共享链接
https://www.123pan.com/
阿里云盘云存储网盘
https://www.aliyundrive.com/
天翼网盘云存储
https://cloud.189.cn/
百度网盘云存储
https://pan.baidu.com/
国内外的其他各种品牌网盘云存储空间
银灿IS903-USB-CD-ROM-WinPE可启动量产U盘

 

第4步:在搜索引擎网站中搜索关键字 “Delphi编程”

必应  https://cn.bing.com/?ensearch=1

https://fsou.cc/

https://yandex.com/

https://www.so.com/

https://www.baidu.com/

 

第5步:请在“西瓜视频”、“抖音短视频”、

“优酷视频”、“爱奇艺视频”和“腾讯视频”

等各种视频应用程序手机软件中搜索关键字 “Delphi编程”

播放、观看、学习、研究、测试、讨论、下载、分享、交流和

收藏有关Delphi编程相关的视频教程

 

感言:

delphi和vb在现在看来都是相对不太流行的编程语言环境了

虽然我一直比较喜欢使用“Embarcadero.Delphi.11.0.v28.0.42600.6491.Lite.v17.0.zip”来编程,

但是我还是强烈建议各位选择TIOBE排行靠前、GitHub中项目比较多和Gitee中项目比较多的编程语言

例如:

Python、

C++或者

JAVA 等等。

无人值守全自动静默安装Delphi7到Windows11的AutoHotkey脚本2022年1月9日

Microsoft Visual C++ 2015

https://visualstudio.microsoft.com/zh-hans/

JAVA

https://www.oracle.com/java/

Python

https://www.python.org/getit/

 

无人值守全自动静默安装Delphi7到Windows11的AutoHotkey脚本2022年1月9日

上一篇:【Bug修复】数据库异常SQLiteFullException: database or disk is full 问题解决修复(低版本手机)


下一篇:mysql 5.7 ONLY_FULL_GROUP_BY问题