进程_取进程启动时间 望官方收录

zhouli5464

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

调试输出 (进程_取进程启动时间 (GetCurrentProcessId ()))
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
进程_取进程启动时间	文本型
参数名	类 型	参考	可空	数组	备 注
进程PID	整数型

变量名	类 型	静态	数组	备 注
局_句柄	整数型
创建时间	文件时间_
中止时间	文件时间_
系统经过时间	文件时间_
用户经过时间	文件时间_
精易_时间	精易_时间
局_时间	文本型

局_句柄 ＝ OpenProcess (2035711, 0, 进程PID)
GetProcessTimes (局_句柄, 创建时间, 中止时间, 系统经过时间, 用户经过时间)
FileTimeToSystemTime (创建时间, 精易_时间)
调试输出 (精易_时间.日)  ' 取出月份是8月 显示8 而不是08
调试输出 (精易_时间.时)  ' 取出的时间+8
局_时间 ＝ 到文本 (精易_时间.年) ＋ 到文本 (精易_时间.月) ＋ 到文本 (精易_时间.日) ＋ 到文本 (精易_时间.时 ＋ 8) ＋ 到文本 (精易_时间.分) ＋ 到文本 (精易_时间.秒)
返回 (局_时间)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> 调试输出 (进程_取进程启动时间 (GetCurrentProcessId ()))<br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 进程_取进程启动时间, 文本型<br /> .参数 进程PID, 整数型<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 创建时间, 文件时间_<br /> .局部变量 中止时间, 文件时间_<br /> .局部变量 系统经过时间, 文件时间_<br /> .局部变量 用户经过时间, 文件时间_<br /> .局部变量 精易_时间, 精易_时间<br /> .局部变量 局_时间, 文本型<br /> <br /> 局_句柄 ＝ OpenProcess (2035711, 0, 进程PID)<br /> GetProcessTimes (局_句柄, 创建时间, 中止时间, 系统经过时间, 用户经过时间)<br /> FileTimeToSystemTime (创建时间, 精易_时间)<br /> 调试输出 (精易_时间.日)  ' 取出月份是8月 显示8 而不是08<br /> 调试输出 (精易_时间.时)  ' 取出的时间+8<br /> 局_时间 ＝ 到文本 (精易_时间.年) ＋ 到文本 (精易_时间.月) ＋ 到文本 (精易_时间.日) ＋ 到文本 (精易_时间.时 ＋ 8) ＋ 到文本 (精易_时间.分) ＋ 到文本 (精易_时间.秒)<br /> 返回 (局_时间)

进程_取进程启动时间.e (4.64 KB, 下载次数: 69)

2020-8-12 22:05 上传

点击文件名下载附件

自己用的够用了,但是如果收录的话,需要稍微改一下
1: 取出日期和时间是整数不是时间类型, 比如8月显示8, 而不是08, 3分钟显示3而不是03
2: 取出的小时需要+8才对得上24小时制

项目部004

安排！

易乐游

xuexiyixiakankan

qj5biv

.版本 2

.子程序 进程_取进程启动时间, 文本型, 公开, 返回进程启动时间，如：20200813145000
.参数 进程ID, 整数型, 可空, PID
.局部变量 hProoess, 整数型
.局部变量 createTime, 文件时间, , , 进程的创建时间
.局部变量 exitTime, 文件时间, , , 进程的退出时间
.局部变量 kerneTime, 文件时间, , , 进程在内核模式下的所有时间
.局部变量 userTime, 文件时间, , , 进程在用户模式下的所有时间
.局部变量 userSystemTime, 精易_时间

.如果 (是否为空 (进程ID))
    hProoess ＝ GetCurrentProcess ()
.否则
    hProoess ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)
.如果结束
GetProcessTimes (hProoess, createTime, exitTime, kerneTime, userSystemTime)
CloseHandle (hProoess)
FileTimeToSystemTime (createTime, userSystemTime)
返回 (到文本 (userSystemTime.年) ＋ 文本_自动补零 (到文本 (userSystemTime.月), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.日), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.时), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.分), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.秒), 2))

龙大创翼

666666666666666666666

vcyeus2016

支持开源~！感谢分享

hao轩

ningmeng696

项目部004 发表于 2020-8-13 15:30
安排！

支持开源~！感谢分享

eagle1996

有BUG 24小时数超过 24 了 没有+1天

冰棍好烫啊

支持开源~！感谢分享

一尘不染

  

子程序名	返回值类型	公开	备 注
进程_取进程启动时间	文本型		返回进程启动时间，如：20200813145000
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型				PID

变量名	类 型	静态	数组	备 注
hProoess	整数型
createTime	文件时间			进程的创建时间
exitTime	文件时间			进程的退出时间
kerneTime	文件时间			进程在内核模式下的所有时间
userTime	文件时间			进程在用户模式下的所有时间
userSystemTime	精易_时间

如果 (是否为空 (进程ID))
hProoess ＝ GetCurrentProcess ()
hProoess ＝ OpenProcess ( #PROCESS_ALL_ACCESS, 0, 进程ID)
GetProcessTimes (hProoess, createTime, exitTime, kerneTime, userSystemTime)
CloseHandle (hProoess)
FileTimeToSystemTime (createTime, userSystemTime)
返回 (到文本 (userSystemTime.年) ＋ 文本_自动补零 (到文本 (userSystemTime.月), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.日), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.时), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.分), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.秒), 2))

.版本 2<br /> <br /> .子程序 进程_取进程启动时间, 文本型, 公开, 返回进程启动时间，如：20200813145000<br /> .参数 进程ID, 整数型, 可空, PID<br /> .局部变量 hProoess, 整数型<br /> .局部变量 createTime, 文件时间, , , 进程的创建时间<br /> .局部变量 exitTime, 文件时间, , , 进程的退出时间<br /> .局部变量 kerneTime, 文件时间, , , 进程在内核模式下的所有时间<br /> .局部变量 userTime, 文件时间, , , 进程在用户模式下的所有时间<br /> .局部变量 userSystemTime, 精易_时间<br /> <br /> .如果 (是否为空 (进程ID))<br />     hProoess ＝ GetCurrentProcess ()<br /> .否则<br />     hProoess ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)<br /> .如果结束<br /> GetProcessTimes (hProoess, createTime, exitTime, kerneTime, userSystemTime)<br /> CloseHandle (hProoess)<br /> FileTimeToSystemTime (createTime, userSystemTime)<br /> 返回 (到文本 (userSystemTime.年) ＋ 文本_自动补零 (到文本 (userSystemTime.月), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.日), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.时), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.分), 2) ＋ 文本_自动补零 (到文本 (userSystemTime.秒), 2))