hefeibing的博客

Delphi高精度计数例程，主程序如下： procedure TForm1.Button1Click(Sender: TObject); //取系统级时间精度： var c1:int64; t1,t2,t3,t4,t5:int64; r1,r2,r3,r4:double; begin QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数) QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值 sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t2);//获取结束计数值 r1:=(t2-t1)/c1;//取得计时时间，单位秒(s) Edit1.Text:=FloatToStr(r1); Edit1.Refresh; sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t3);//获取结束计数值 r2:=(t3-t2)/c1;//取得计时时间，单位秒(s) Edit2.Text:=FloatToStr(r2); Edit2.Refresh; sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t4);//获取结束计数值 r3:=(t4-t3)/c1;//取得计时时间，单位秒(s) Edit3.Text:=FloatToStr(r3); Edit3.Refresh; sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t5);//获取结束计数值 r4:=(t5-t4)/c1;//取得计时时间，单位秒(s) Edit4.Text:=FloatToStr(r4); Edit4.Refresh; //r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms) //r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒 //showmessage(floattostr(r1)); end;

Delphi7保存屏幕为图片，以下是主程序： function TForm1.GetControlsImage(ACtrl: TWinControl): TBitmap; var Ofs: Integer; begin Result := TBitmap.Create; try Result.Width := ACtrl.ClientWidth; Result.Height := ACtrl.ClientHeight; Result.Canvas.Brush := ACtrl.Brush; Result.Canvas.FillRect(ACtrl.ClientRect); Result.Canvas.Lock; try if GetWindowLong(ACtrl.Handle, GWL_STYLE) and WS_BORDER 0 then Ofs := -1 // Don't draw form border else Ofs := 0; // There is no border ACtrl.PaintTo(Result.Canvas.Handle, Ofs, Ofs); finally Result.Canvas.Unlock; end; except Result.Free; raise; end; end;

Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 !最后有个项目要移植到64位，所以这个很有用。在2010中PChar已经不再表示PAnsiChar而是表示PWideChar，如果依然这样写，运行时很可能会得到一个内存访问错误。因为每 次Inc(P)，实际上指针向前移动了2字节，因为SizeOf(WideChar)=2，Inc(P)相当于 P:=P+SizeOf(WideChar)。 解决方法是把PChar替换成PAnsiChar

EhLib 在 Delphi 7 下的安装方法，实践证明。

delphi7 的IP输入控件，方便网络编程。

USB转通用串口线用户手册

用delphi 7 控制Excel中的图表

WINRAR除了用来压缩文件外，还可以用生成自解压文件。正是由于它可以生成自解压格式的可执行文件包，兼之可以设置桌面快捷方式、创建程序以及解压后运行文件能力，因此有自由软件、免费软件用它来制作软件安装包。