Delphi 判断文件是否被占用

Delphi 判断文件是否被占用，这个在删除的时候，可以添加上此功能，因为文件占用的话，用户删除时会出错，用本代码可以先判断一下文件是否被占用，用弹窗方式告诉用户是否可以删除，如果没有被占用，则程序进行下一步处理。下面简要了解一下判断的具体代码（局部）： 　　on E:EInOutError do 　　begin 　　 if e.ErrorCode=32 then//文件正在被使用 　　 begin 　　 result:=true; 　　 exit; 　　 end; 　　end; 　　更完整的可编译源码，请下载。

EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试

Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑，控制Canvas上的直线点跟随鼠标移动，其实这就是画线的基本方法，直线的一端确定后，另一端需要鼠标移动来指定端点，本程序的功能就是让线段的另一头跟随鼠标移动，以确定线段的最终位置。

Delphi SQLSERVER 操作员权限设置程序，以销售、进货两个功能，来演示不同帐号所享有的不同操作权限，从用户管理模块中，你可以修改权限设置，测试前，请首先连接好SQLSERVER数据库。 　　你可以使用以下的测试帐户来感受权限控制功能： 　　普通用户 　　用户名：Power 　　密码： 111 　　高级用户 　　用户名：mr 　　密码： 111

源码演示Delphi 如何放大和缩小图像【图片】，我们这个例子可以学习了解如何使用Delphi编程代码，放大或缩小一张图片，这里把放大和缩小图片的基数写在按钮事件中，用户每次单击按钮，就会按照一定的缩放倍数放大或缩小图像，本示例测试图片已写入程序中，编译运行后操作并演示效果，对图像的缩放部分，重点参考以下代码： 　　图片缩小操作： 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 if image1.Height>50 then 　　 begin 　　 image1.Height:=image1.Height-10; 　　 image1.Width:=image1.Width-13; 　　 end; 　　end; 　　图片放大操作： 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if image1.Height

Delphi 利用API绘制弧形， 　　begin 　　 ArcRect := ClientRect; 　　 Canvas.Pen.Width:=2; 　　 for i:=1 to 10 do 　　 begin 　　 Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right, 　　 ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2, 　　 ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2); 　　 InflateRect(ArcRect,-2,-2); 　　 Canvas.Pen.Color := PaletteIndex(i+10); 　　 end;

Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。

Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录： 　　 NormalIcon,DisabledIcon:TIcon; 　　 //正常和失效两种情况下的图标 　　 Status:Boolean; 　　 //标志"允许使用"还是"禁止使用" 　　 procedure InstallIcon; 　　 procedure ChangeIcon(s:Boolean); 　　 procedure UnInstallIcon; 　　 procedure IconOnClick(var message:TMessage); message MI_ICONEVENT; 　　 //捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明

Delphi 编写的VOD视频点播及后台管理系统，这套系统既是一套多媒体系统，也是一套数据库系统，VOD部分的功能有：KTV管理系统，编号点歌、轻音乐、拼音点歌、迪士高、明星点歌、DVD影院、播放列表、歌曲管理等。

Delphi 7.0 源代码示例演示：显示密码编辑框中的密码，也就是获取Edit组件中的内容，显示给用户，在代码编写时，可参考下边的几行代码： 　　L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度，并将长度加1 　　GetMem(Name,L);//为将要得到的名字分配内存 　　GetWindowText(Edit1.handle,Name,L);//得到名字 　　label1.Caption:=String(Name);//将得到的名字显示于Label1 　　FreeMem(Name,0); //释放分配的内存 　　完整的源代码请下载。