摘要：2.画出每个自画项目 这在TabSet的OnDrawTab事件处理过程中完成。这一事件处理过程的参数中包含了待画项目索引、画板、待画区域、是否被选中等。这里我们只利用了前三个参数。事实上利用最后一个参数，我们可以对被选中的标签进行一些特殊的视觉效果处理。这一工作就留给读者自己去完成。 procedure TFMForm.DriveTabSetDrawTab(Sender: TObject... 阅读全文

摘要：6.2.7 记录的删除、插入、排序 删除一条记录的基本思路是：获取当前记录的位置并把该位置后的记录逐个向前移动。 文件在最后一条记录前截断。 for i:=CurrentRec+1 to Count-1 do begin seek(MethodFile,i); read(MethodFile,MethodRec); seek(MethodFile,i-1); Write(MethodF... 阅读全文

摘要：文件是同一类型元素的有序集合，是内存与外设间传输数据的渠道。一些外设如显示器、键盘、打印机等都可以看作文件，但最常用的还是磁盘文件，这也是本章我们主要讨论的对象。 Delphi继承了Object Pascal的文件管理功能，并有很大的发展，其中最主要的是提供了用于文件管理的标准控件，同时也提供了更多的文件管理函数。利用Delphi的强大功能，开发一个自己的文件管理系统就成为很... 阅读全文

摘要：本实例介绍如何在程序中创建文件夹，并且可以将新创建的文件夹删除到回收站中。 向窗体上添加两个TButton组件，一个用于创建新的文件夹，另一个用于删除新创建的文件夹，设计完成的窗体如图1所示。 图1 主界面 首先在程序的uses段中添加对ShellApi的引用，另外还要在“创建”按钮的响应过程中添加下列代码： procedure TForm1.btnCreateClick(Sender: TOb... 阅读全文

摘要：Delphi里有个函数SelectDiretory，重载了两种形式： function SelectDirectory( const Caption: string; const Root: WideString; out Directory: string): Boolean; overload; function SelectDirectory( var Directo... 阅读全文

摘要：//判断文件是否存在 FileExists //判断文件夹是否存在 DirectoryExists //删除文件 DeleteFile; Windows.DeleteFile //删除文件夹 RemoveDir; RemoveDirectory //获取当前文件夹 GetCurrentDir //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory... 阅读全文

摘要：有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂，比较少用。 2.WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW); 3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shel... 阅读全文