摘要：
{//procedure PatchSelf(aFileName:string);var F:TextFile;begin AssignFile(F,'PatchSelf.bat'); Rewrite(F); WriteLn(F,'ping -n 2 127.1 >nul 2>nul');//延时 2秒 WriteLn(F,'ren '+ExtractFileName(Paramstr(0))+' '+ExtractFileName(Paramstr(0))+'bak'); WriteLn(F,' 阅读全文
摘要：
{ 函数原型 }function MoveFileEx( lpExistingFileName: PChar; // 来源文件名，指向一个以零结尾的字符串的指针。 lpNewFileName: PChar; // 目标文件名，指向一个以零结尾的字符串的指针。 dwFlags: DWORD // 移动标记，见定义 ): BOOL; stdcall; // 返回执行结果，成果或失败{ dwFlags的值 } MOVEFILE_REPLACE_EXISTING = $00000001; // 覆盖已存在的目标文件，如果来源文件和目标文件指定的是一个目录，则不能使用此标记。 MOVEFILE_COPY 阅读全文
摘要：
---------------------------------------------------------------------------- 类型名称 TYPE 备注---------------------------------------------------------------------------- 自动编号 integer + identity(1,1) 文本 varchar(50) 括号中的数字为文本长度 长整型 integer 整型 short 双精度型 double,float 单精度型 real 字节型 byte 小数 NUMERIC(6,2) 货... 阅读全文