摘要：
function isFileInUse(aName: string): boolean; var hfileres: hfile; begin result := false; if not FileExists(aName) then exit; hfileres := createfile(p 阅读全文
摘要：
function isruninvmware(out errmsg: string): boolean; begin result := false; try asm push edx push ecx push ebx mov eax, 'vmxh' mov ecx, $0a mov edx, ' 阅读全文
摘要：
这个是“橙子”2008年总结的删除目录的办法： 以往删除目录时，都需要先用递归删干净目录下的文件和子文件夹，这样做的时候，如果文件数量大，那么删除会非常慢于是找了个方便一点的方法，直接使用api将目录删除 代码如下： function deldirectory(const source: strin 阅读全文
摘要：
好像是 Delphi 2005 开始 Delphi 就开始支持一个新的功能 For … in … 这个在其他语言中早就有但很方便的功能，(其实真的感觉好用是后来到C#中使用才体会到它的方便)。 for … in … 语句用于遍历一个集合，由于不能像类C语言可以就地声明变量，每次用循环就有一点别扭（不 阅读全文