Delphi GetCurrentDirectory得到系统当前目录

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。

Delphi 使同类的组件进行同样的操作的一个实例，类似于将WEB表单统一清空的功能，点击按钮后，所有文本框组件的内容被清空，作用在相同的组件实例上，代码： 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 Close; 　　end; 　　 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 ClearText : Integer; 　　begin 　　 For ClearText := 0 to Form1.ComponentCount -1 do 　　 begin 　　 //判断如果窗体中包含文本框组件，则将所有文本框组件的内容清空 　　 if Form1.Components[ClearText] is TEdit then 　　 begin 　　 TEdit(Components[ClearText]).Clear; 　　 end; 　　 end; 　　end;

Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。 　　self.ListView1.ViewStyle:=vsReport; 　　for i:=0 to Query1.FieldCount-1 do 　　begin 　　 TempColumn:=self.ListView1.Columns.Add; 　　 TempColumn.Caption:=Query1.Fields[i].FieldName; 　　end; 　　Query1.First; 　　while not Query1.Eof do 　　begin 　　 TempItem:=self.ListView1.Items.Add; 　　 TempItem.Caption:=Query1.Fields[0].AsString; 　　 for i:=1 to Query1.FieldCount-1 do 　　 begin 　　 TempItem.SubItems.Add(Query1.Fields[i].AsString); 　　 end; 　　 Query1.Next; 　　end;

Delphi 获取两个子字符串之间的字符个数，也就是这个字符串由A/B/C三个字符组成，本例子是求A/C中间的所有字符串的个数，空格同样也包括在内。定义两个函数即可实现本功能： 　　Function TForm1.Strcount( s, s1, s2 : string ): integer; 　　var 　　 i,j,slen : integer; 　　begin 　　 i := pos( s1, s ); 　　 j := pos( s2, s ); 　　 slen := Length(s1); 　　 if j >= i then 　　 Result := j - i - slen 　　 else 　　 Result := 0; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 n : integer; 　　begin 　　 n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text); 　　 showmessage(IntToStr(n)); 　　end;

Delphi 当鼠标和键盘在一定时间没有动作时关闭程序，这是一个智能化程序，类似于屏保，当一定时间没有操作时，会关闭软件，运行的技术也不很高深，有兴趣的可下载源代码研究学习。

一个包括了菜单的Delphi窗口设计范例程序，以一个销售管理系统的主窗口界面设计为例，演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素，比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握，在很多的Delphi应用程序中，都会有此需求，欢迎下载源码。

Delphi控制电脑蜂鸣器或扬声器发声音，有些称之为喇叭，不过测试发现，这个是优先机箱蜂鸣器发出声音，或没装蜂鸣器，则会从音箱中发声音，实现的代码很简单，以下代码即可实现： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,j : integer; 　　begin 　　 for i := 1000 to 2000 do 　　 begin 　　 j := i; 　　 windows.Beep(1000,3000); 　　 end; 　　end;

Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 LogBrush:TLogBrush; 　　begin 　　 LogBrush.lbStyle:=BS_HATCHED; 　　 LogBrush.lbColor:=clRed; 　　 LogBrush.lbHatch:=HS_DIAGCROSS; 　　 Canvas.Brush.Handle := CreateBrushIndirect(LogBrush); 　　 Canvas.FillRect(ClientRect); 　　end;

Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.