![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
编程思想
cmd9x
这个作者很懒,什么都没留下…
展开
-
Delphi下的Unicode编码及GBK编码
delphi xe下支持Unicode编码方式 procedure TForm1.btn1Click(Sender: TObject); var s : string; s2: AnsiString; begin s := '你好'; s2 := s; Caption := s2; end; s dump $60 $4F $7D $59 s2 dump $C4 $E3原创 2013-05-10 17:52:34 · 3590 阅读 · 0 评论 -
pygame编写的坦克游戏(二)
搞游戏怎么也得有个引擎这种高大上的东东吧,用来加载图像、声音资源,用来控制游戏输入,开始结束场景啥的 先简单说明一些要点,个人感觉挺重要的: 1、输入控制,event这东东可以轮询按键,会产生按键状态、按键类型,按下一个事件KEYDOWN,松开一个事件KEYUP,按着不松也不会产生多个KEYDOWN就是了;这在坦克这个游戏里显示不完美,其它乱七八糟的方法试了很多,什么自动产生多个按键事原创 2015-10-07 18:02:41 · 2205 阅读 · 0 评论 -
磁盘分区大小显示(以对数的形式)
var pts: array [0..8] of single= (111, 399, 90, 300, 5, 5, 1, 2, 18);//单位:M procedure TForm1.Button1Click(Sender: TObject); var dw: Integer; I: Integer; px, t: Single; begin //以对数的方式显示磁盘分区...原创 2018-09-20 15:00:10 · 216 阅读 · 0 评论 -
通过将数据放入EXE的资源信息中的方式制作自已的安装工具
免费的打包工具太千篇一律了,如今是个软件都会有自己的安装界面,别的不说,自行定制UI更好看那是绝对的,至于功能嘛,根本不需要专业安装工具那么多,通常有以下几页就可以了:语言选择、自定义安装位置、文件复制、后续处理、快捷方式等。 关键点:读取资源,然后使用;如果是动态添加的资源则应该在使用前检查。 一、资源导入:在Delphi XE版本中有个工具,可以直接将文件当做资源导入到程序中,编译时...原创 2018-11-02 16:02:18 · 449 阅读 · 0 评论 -
关于用其它用户运行程序(同时以管理员权限运行)
有这个一个需求: 1、不允许当前用户访问某个文件夹 2、但是程序可以访问(新增、编辑、删除等操作) 结论是这样:创建一个管理员用户对指定文件夹有操作权限,同时拒绝其它用户的访问请求 步骤一: net user用户名密码 /add net localgroup administrators 用户名 /add 步骤二:将之前的用户授权允许访问指定文件夹,其他用户拒绝(需要用到icac...原创 2019-09-04 13:54:44 · 1164 阅读 · 1 评论