摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button... 阅读全文
posted @ 2008-08-12 23:47 万一 阅读(4028) 评论(6) 推荐(0) 编辑
摘要: 试用的第一个版本是: v12.0.3128.15596 安装很快也很顺利, 就是不喜欢哪个 Start Page; 以前是用 Delphi Distiller 去掉的, 不过现在还没有相应的版本; 那就修改启动参数吧. 从 Delphi 2009 启动菜单上点右键 -> 查看属性: "C:\Program Files\CodeGear\RAD Studio\6.0\bin\bds.exe" ... 阅读全文
posted @ 2008-08-12 21:54 万一 阅读(15469) 评论(48) 推荐(0) 编辑
摘要: function CompFile(const f1,f2: string): Boolean; var ms1,ms2: TMemoryStream; i,p: Integer; b1,b2: Byte; begin Result := False; if not (FileExists(f1) and FileExists(f2)) then Exit; ms1 :... 阅读全文
posted @ 2008-08-12 14:56 万一 阅读(4615) 评论(9) 推荐(0) 编辑