易语言系统性能检测源码

系统结构:取开机时间,操作系统是否为64位,画线,画CPU,画内存使用记录,显示内存进度,GetLocalTime,IsWow64Process,GetTickCount,GetProcAddress,GetModuleHandle,GetCurrentProcess,GetTimeFormatA,GetDateFormatA,GlobalMemoryStatus,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取开机时间
           |  |
           |  |------ 操作系统是否为64位
           |  |
           |  |------ 画线
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 画CPU
           |  |
           |  |------ 画内存使用记录
           |  |
           |  |------ 显示内存进度
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetLocalTime
           |  |
           |  |---[dll]------   IsWow64Process
           |  |
           |  |---[dll]------   GetTickCount
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   GetTimeFormatA
           |  |
           |  |---[dll]------   GetDateFormatA
           |  |
           |  |---[dll]------   GlobalMemoryStatus

调用的DLL命令:

.DLL命令 GetLocalTime, 整数型, , "GetLocalTime"
    .参数 a, SYSTEMTIME

.DLL命令 IsWow64Process, 整数型, , "IsWow64Process"
    .参数 数值2, 整数型
    .参数 数值3, 整数型, 传址

.DLL命令 GetTickCount, 整数型

.DLL命令 GetProcAddress, 整数型, "kernel32.dll", "GetProcAddress"
    .参数 hModule, 整数型
    .参数 ProName, 文本型

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄  如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 文本型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;

.DLL命令 GetCurrentProcess, 整数型, , "GetCurrentProcess"

.DLL命令 GetTimeFormatA, 整数型, "kernel32.dll", "GetTimeFormatA", , 针对指定的“当地”格式，对一个系统时间进行格式化。
    .参数 地方ID, 整数型, , Locale，用于决定格式的地方ID。lpFormat参数中指定的任何信息（倘若不是NULL）都优先于特定于地方的信息
    .参数 标志, 整数型, , dwFlags，如指定了lpFormat，那么该参数应该为零。否则，可设为LOCALE_NOUSEROVERRIDE，强制使用系统地方参数
    .参数 时间结构, SYSTEMTIME, 传址, lpDate，SYSTEMTIME，用于包容系统时间的一个结构
    .参数 格式化, 文本型, 传址, lpFormat，String，可设为NULL，使用特定于不同地方的值（用vbNullString传递一个NULL）。
    .参数 缓冲区文本, 文本型, , lpDateStr，指定一个缓冲区，用于容纳格式化过后的字串。注意事先对字串进行初始化
    .参数 缓冲区文本长度, 整数型, , cchDate，缓冲区的长度。如为零，表示函数会返回需要缓冲区的大小;

.DLL命令 GetDateFormatA, 整数型, "kernel32.dll", "GetDateFormatA", , , 针对指定的“当地”格式，对一个系统日期进行格式化  格式化过后的字串的长度。零表示出错，会将GetLastError设置为下述值之一：ERROR_INSUFFICIENT_BUFFER，ERROR_INVALID_FLAGS，ERROR_INVALID_PARAMETER
    .参数 地方ID, 整数型, , Locale，用于决定格式的地方ID。lpFormat参数中指定的任何信息（倘若不是NULL）都优先于特定于地方的信息
    .参数 标志, 整数型, , dwFlags，如指定了lpFormat，那么该参数应该为零。否则，可设为LOCALE_NOUSEROVERRIDE，强制使用系统地方参数——即使它们已由用户取代。用DATE_SHORTDATE 或 DATE_LONGDATE选择不同的日期格式
    .参数 日期结构, SYSTEMTIME, 传址, lpDate，包含了一个系统日期的结构
    .参数 格式化, 文本型, 传址, lpFormat，可设为NULL，使用特定于不同地方的值（用vbNull传递一个NULL）。否则包含一个日期格式字串。对d
    .参数 缓冲区文本, 文本型, , lpDateStr，指定一个缓冲区，用于容纳格式化过后的字串。注意事先对字串进行初始化
    .参数 缓冲区文本长度, 整数型, , cchDate，缓冲区的长度。如为零，表示函数会返回需要缓冲区的大小;

.DLL命令 GlobalMemoryStatus, , , "GlobalMemoryStatus"
    .参数 lpBuffer, 内存参数, 传址