求个简单的源码，大婶给写个

DNF村长

  要求很简单，  判断系统 ， 如果不是 win 7 64 系统 直接关闭程序， 谢谢

那个大神给个例子

BigBoss007

给你加了个判断，楼主记得给最佳答案哦

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 __启动窗口_创建完毕
   
5. .局部变量 主版本, 整数型
   
6. .局部变量 次版本, 整数型
   
7. .局部变量 我的版本, 文本型
   
8. 
   
9. 我的版本 ＝ 系统_取系统版本 (主版本, 次版本, 假, 真, 假)
   
10. 调试输出 (我的版本)
    
11. .如果 (寻找文本 (我的版本, “Windows 7”, , 假) ≠ -1 且 寻找文本 (我的版本, “64”, , 假) ≠ -1)
    
12.     信息框 (“你的系统不是Windows 7 64位系统”, 0, , )
    
13. .否则
    
14.     信息框（“你的电脑系统版本为”+=我的版本）’这代码测试为了效果，可以删掉这一行
    
15. .如果结束
    
16. 
    

复制代码

补充内容 (2016-8-20 22:12):
代码写反了，把≠-1改成=-1

冯古屋

汇编 取系统版本，更新到Win8.1和Win10
http://bbs.125.la/forum.php?mod=viewthread&tid=13760986
(出处: 精易论坛)

用户被删除

精易模块的    系统_取系统版本 ()

小明无敌

.版本 2

.子程序 __启动窗口_创建完毕

.如果真 (isWow64 ())
    结束 ()
.如果真结束


.子程序 isWow64, 逻辑型
.局部变量 szWinSysDir, 文本型
.局部变量 uSize, 整数型
.局部变量 unResult, 整数型
.局部变量 szKernel32File, 文本型
.局部变量 hLibKernel32, 整数型
.局部变量 lpIsWow64Process, 整数型
.局部变量 bIsWow64Process, 逻辑型

szWinSysDir ＝ 取空白文本 (256)
uSize ＝ 256
unResult ＝ GetSystemDirectory (szWinSysDir, uSize)
.如果真 (unResult ＞ 0)
    szKernel32File ＝ szWinSysDir ＋ “\kernel32.dll”
    hLibKernel32 ＝ LoadLibrary (szKernel32File)
.如果真结束
.如果真 (hLibKernel32 ＝ 0)
    hLibKernel32 ＝ LoadLibrary (“kernel32.dll”)
.如果真结束
.如果真 (hLibKernel32 ≠ 0)
    lpIsWow64Process ＝ GetProcAddress (hLibKernel32, “IsWow64Process”)
.如果真结束
.如果真 (lpIsWow64Process ≠ 0)
    .如果真 (IsWow64Process (GetCurrentProcess (), bIsWow64Process) ＝ 0)
        FreeLibrary (hLibKernel32)
        返回 (假)
    .如果真结束

.如果真结束
.如果真 (hLibKernel32 ＝ 0)
    FreeLibrary (hLibKernel32)
    返回 (假)
.如果真结束
返回 (bIsWow64Process)
' 本源码来自易语言资源网(www.5A5X.com)

小明无敌

.版本 2

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

.DLL命令 GetSystemDirectory, 整数型, "kernel32.dll", "GetSystemDirectoryA"
    .参数 lpBuffer, 文本型, 传址
    .参数 uSize, 整数型

.DLL命令 IsWow64Process, 整数型, "kernel32.dll", "IsWow64Process"
    .参数 Process, 整数型
    .参数 IsWow64Process, 逻辑型, 传址

.DLL命令 LoadLibrary, 整数型, "kernel32.dll", "LoadLibraryA"
    .参数 lpFileName, 文本型

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

.DLL命令 FreeLibrary, 整数型, "kernel32.dll", "FreeLibraryA"
    .参数 hModule, 整数型

.DLL命令 DLL命令1

BigBoss007

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 __启动窗口_创建完毕
   
5. .局部变量 主版本, 整数型
   
6. .局部变量 次版本, 整数型
   
7. .局部变量 我的版本, 文本型
   
8. 
   
9. 我的版本 ＝ 系统_取系统版本 (主版本, 次版本, 假, 真, 假)
   
10. 调试输出 (我的版本)
    

复制代码

1182410163

最佳给我吧 奇迹会出现吗！

补充内容 (2016-8-20 22:47):
系统_取系统版本 ()