Delphi获取从开机到现在CPU运行的周期数

Delphi 目录操作范例：改变当前目录，先获取当前的目录路径，然后改变这个目录路径，文件当前在此目录，那么如何修改文件路径呢？ 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 try 　　 chdir(Edit2.Text); 　　 finally 　　 getdir(0,result); 　　 Edit2.Text := result; 　　 end; 　　end; 　　源代码仅供参考。

枚举线程的Delphi实例代码，Delphi 枚举线程的例子应该很多了，这一个比较简单的那种，可以为学习Delphi的新手朋友提供一些参考思路，运行界面效果如下图所示。源代码编译于Delphi7.0环境。

窗口中的弹出式右键菜单-delphi PopupMenu源码, 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Poin:TPoint; 　　begin 　　 Poin := Point(Button1.Left,Button1.Top+Button1.Height); 　　 Poin := ClientToScreen(Poin); 　　 PopupMenu1.Popup(Poin.X,Poin.Y); 　　end;

Delphi 监测程序多久未被使用,以秒数来衡量使用了多久，打开一次然后再关闭，就可以显示使用了多长时间。

Delphi 使用tfilestream方式复制文件，你可参考本源码，学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法，本实例复制文件，是通过读取文件流，保存文件流的方式复制，并不是使用命令复制文件。

Delphi 控制键盘指示灯，控制键盘灯打开或关闭。就像大小写切换时候，小键盘上面的灯会亮起、关闭，比较简单的一个小功能，适合入门学者参考学习。

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　end; 　　end.

Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。

Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码： 　　procedure TForm1.closecid; 　　var 　　 mycid:hkl; 　　begin 　　 mycid:=GetKeyBoardLayOut(0); 　　 if ImmIsIME(mycid) then 　　 //判断是否在中文状态,若是则关闭它 　　 immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　var 　　 j:integer; 　　begin 　　 for j:=0 to screen.imes.count-1 do 　　 begin 　　 //获取系统中已安装的中文输入法 　　 ComBoBox1.Items.Add(screen.Imes.strings[j]); 　　 end; 　　end;

Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考： 　　vh := Hour/12.0*2*Pi; 　　vm := Min/60.0*2*Pi; 　　vs := Sec/60.0*2*Pi; 　　with Canvas do 　　begin 　　 Pen.Width:=4; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh))); 　　 Pen.Width:=2; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm))); 　　 Pen.Width:=1; 　　 Pen.Color := clRed; 　　 MoveTo(60,60); 　　 LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs))); 　　end; 　　窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。