Delphi 记录文件的读写

Delphi 修改网络设置DNS地址，这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息，由用户指定待修改的新DNS地址，输入地址框，单击“修改”按钮即可完成修改。因此通过本程序，你可以了解许多注册表方面的操作技巧，以及网络设置相关知识。

Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。

这是一个Delphi色彩控制方面的示例，我看上去更像是Delphi分离出红绿颜色通道，从页形成的一种立体效果，复制和修改颜色模式来实现，相关代码可参考如下： 　　 //设置添充颜色的大小 　　 DBitmap.Width := LBitmap.Width; 　　 DBitmap.Height := LBitmap.Height; 　　 vRect := Rect(0, 0, DBitmap.Width, DBitmap.Height); //获取添充区域 　　 DBitmap.Canvas.Brush.Color := vGreen; //设置画笔颜色 　　 DBitmap.Canvas.FillRect(vRect); //添充颜色 　　 LBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR 　　 LBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制 　　 DBitmap.Canvas.Brush.Color := vRed; 　　 DBitmap.Canvas.FillRect(vRect); 　　 RBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR 　　 RBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制 　　 DBitmap.Canvas.CopyRect(vRect, LBitmap.Canvas, vRect); 　　 DBitmap.Canvas.CopyMode := cmSrcAnd; //将复制模式改为AND 　　 DBitmap.Canvas.CopyRect(vRect, RBitmap.Canvas, vRect); 　　 except 　　 Exit; 　　 end; 　　 Result := True; 　　end;

(R)-Delphi+Interbase-Code-龙邦汽配进销存源码-源代码全-使用手册-钻石精品

Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合Delphi新手学习参考。

Delphi设计制作BMP图像的推拉动画效果，类似PPT幻灯片中的图像飞入效果，图片本应该在窗口上显示，但经过本代码的控制后，图像由底部向上部被推出来，其实就是由下到上的图片滑动效果，有兴趣的可下载源码参考主文件代码。 　　注：本程序好像只对BMP图像有效，其它格式如JPG/gif等图像暂且不支持该动画效果。

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。

用实例源码演示delphi Exit语句的使用，这个是比较基础的delphi语法实例了，以一个输入界面来演示exit函数的使用方法。演示了如果用户的输入不符合条件的话，则使用Exit语句结束执行，跳出程序，在如图所示的输入项中，任意一项输入不符合要求，则会直接退出程序的执行。

Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,j:integer; 　　begin 　　 j:=0; 　　 For i := 1 to 10 do 　　 begin 　　 if i mod 2 =0 then 　　 Continue; 　　 j := j+i; 　　 Edit1.text := IntToStr(j); 　　 end; 　　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.