
Delphi专栏
欧巴Godwin
无,懒得写
展开
-
Delphi利用数据库实现文件打包
以下代码出自http://blog.youkuaiyun.com/hellogv/,引用请注明出处! Delphi利用数据库实现文件打包的基本思路分析:【1】在Delphi中,把文件读取为文件流,再以流的形式保存在数据库的OLE 对象的字段中;【2】当要释放文件包时,可以直接读取数据库的OLE 对象字段,另保存为文件。 以下为具体代码的实现过程:【1】打开Delphi,去到“File”原创 2007-02-26 11:30:00 · 5992 阅读 · 3 评论 -
Delphi调用WMI读取USB设备的PID和VID
以下代码出自http://blog.youkuaiyun.com/hellogv/,引用请注明出处! WMI(Windows®Management Instrumentation ) 非常强大,它可以以数据库的形式查询你的电脑的软件和硬件,在它的数据库里面,时刻保存着最新的软件信息和硬件信息,因此你可以用WMI来检测CUP主频、温度,读取WINDOWS的进程......... 本文就介绍如何使用原创 2007-07-17 21:43:00 · 12638 阅读 · 4 评论 -
Delphi关于改进AES算法的加解密文件功能
以下代码出自http://blog.youkuaiyun.com/hellogv/,引用请注明出处!代码有点乱,想要具体实现方法的朋友,可以给我留言附:以下代码在杨泽晖 (Jorlen Young)所开发的AES算法接口上改进!function StrToHex(Value: string): string;var I: Integer;begin Re原创 2007-07-22 14:40:00 · 8868 阅读 · 4 评论 -
最简单地锁定文件夹!!!
本文章来自http://blog.youkuaiyun.com/hellogv//////////////////////////////////以下是锁定文件夹的方法 procedure TSysClass.QuickLock(DirList:TStrings); //DirList是保存文件夹的列表var UnLockDIRList:TStrings;原创 2007-11-01 19:49:00 · 10496 阅读 · 0 评论 -
最简单的查找文件的代码
本文来自http://blog.youkuaiyun.com/hellogv/procedure TSysClass.FindAll(path: String; var fileresult: TStrings);//查找文件 ,path不带/var fpath,s: String; fs: TsearchRec; i:integer;begin原创 2007-11-01 19:52:00 · 4403 阅读 · 0 评论