2009年3月12日
新建文件夹函数
摘要： Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> procedure MakeDir(Dir:String); function Last(What... 阅读全文
posted @ 2009-03-12 13:34 LAHCS 阅读(448) 评论(0) 推荐(0) 编辑
delphi获取当前计算机所有盘符
摘要： GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数 0 驱动器类型不确定 1 系统目录不存在 2 DRIVE_REMOVABLE 是可移动驱动器 3 DRIVE_FIXED 是固定驱动器 4 DRIVE_REMOTE 是网络驱动器 5 DRIVE_CDROM 是CD-RO... 阅读全文
posted @ 2009-03-12 13:32 LAHCS 阅读(2379) 评论(0) 推荐(0) 编辑
模拟按键批量发送函数
摘要： 模拟按键批量发送函数,从一个序列号自动输入程序里找到的好东西...呵呵 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> procedure MyS... 阅读全文
posted @ 2009-03-12 13:30 LAHCS 阅读(386) 评论(0) 推荐(0) 编辑
Delphi 显示选择文件夹对话框 (有新建按钮)
摘要： Delphi 显示选择文件夹对话框 (有新建按钮) 附实例 uses ShlObj 选择文件夹对话框。 入口参数： Handle：调用者句柄 Caption：对话框标题 InitFolder：初始文件夹； SelectedFolder：返回选择结果 返回值： 如果用户选择了路径并确定，返回Tr... 阅读全文
posted @ 2009-03-12 13:28 LAHCS 阅读(3625) 评论(0) 推荐(0) 编辑
2009年3月11日
程序获取传参
摘要： 转自万老师的博客... //获取程序参数 //可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开 Code highlighting produced by Actipro CodeHighlighter (f... 阅读全文
posted @ 2009-03-11 20:59 LAHCS 阅读(235) 评论(0) 推荐(0) 编辑
优盘背景生成器源码
摘要： 优盘背景生成器源码 纯属无聊的时候一个同学让我帮他做的...哄女孩子开心咯... 一个同学还问我为什么不在界面上写上我的真名,丢人啊....垃圾程序 高手请无视....软件截图及源码如下: Code highlighting produced by Actipro CodeHighlighte... 阅读全文
posted @ 2009-03-11 20:52 LAHCS 阅读(519) 评论(0) 推荐(0) 编辑
function EnabledUSB(Enabled:Boolean):Boolean
摘要： {------------------------------------------------------------------------------- 函数名: EnabledUSB 参数: Enabled:Boolean 返回值: Boolean 所需单元: Registry ... 阅读全文
posted @ 2009-03-11 20:48 LAHCS 阅读(228) 评论(0) 推荐(0) 编辑