搬家第24天-citect v7.4 cicode 取得当前计算机的名字

我在论坛里面看到有人询问怎么使用cicode函数去的当前计算机名字，我虽然不知道为什么要取计算机名字，但觉得这个问题有点意思，可以扩展思维一下cicode怎么取得取计算机系统其他信息。

     cicode没有直接取得计算机名字的函数，但是我们可以曲线救国——先把计算机名字想办法放到txt文件中，然后从文件读取出来存入citect变量。

    先在项目文件夹下新建一个批处理文件getpcname.bat，写入以下代码：

echo.>c:\pcname.txt
echo %computername%>c:\pcname.txt

     这两行代码的意思是在C盘根目录创建一个pcname.txt的文件，然后把计算机名字写入。

     在cicode写入以下代码：

STRING FUNCTION GetcomputerName()
INT hfile;
STRING strName;
IF FileExist("c:\pcname.txt") THEN   //判断该文件存在是否存在
  FileDelete("c:\pcname.txt");      //删除该文件
END
Exec("[run]:\getpcname.bat",6);    //执行批处理文件，计算机名字写入 c:\pcname.txt
WHILE NOT FileExist("c:\pcname.txt") DO

//循环等待批处理文件完成
END
hfile=FileOpen("c:\pcname.txt","r"); //打开文件，取得文件号
strName=FileRead(hfile,17);//读取计算机名字,最长17个字符
FileClose(hfile);
RETURN strname;
END

在项目中新建一个computername的内部字符串变量，在页面的按钮事件中写入一下脚本：

computername=GetcomputerName()；

画面上放一个字符串显示标签，绑定computername变量。保存编译运行，点击按钮，就等看到计算机名字取出来了。同样的思路，还可以取得其他系统参数。