我心痴狂(Delphi)

处理可执行文件版本号的类。实现代码如下： TMFileVersion = class private FMajor : Integer; FMinor : Integer; FRelease : Integer; FBuild : Integer; Function GetVerStr :

今天写一个公共部件要用到TQuery.Locate方法。顺便来个小小总结。Help里的解释function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;KeyFields: is a string containing a semicolon-deli

                                                                               [ By  浪子(dayichen@163.com)  At:2005.01.07 ]   874一下优快云的Blog服务器，老是出错。写了半天的文章忘了Copy，结果Post－>Error->Over了。气死我了。差点把阿姨那香气喷喷的鱼

------------------------------防止程序被重复执行（第一法）Windows95的程序一般都可以重复执行，例如你按下WIN+E组合键即启动资 源管理器，如果再按WIN+E组合键又会出现一个资源管理器，这两个程序互不干 扰。有时候你可以需要制作这样一个程序：当该程序已经执行时，若用户企图 再次执行该程序则只会激活那个已执行的程序，而不是又出现一个副本。 　　完成这个目的

方法一：  if   DiskSize(1)=-1 then  //1,2,3....分别代表A,B,C...驱动器     showmessage(驱动器A: 未准备好)  else     showmessage(驱动器A: 准备好);方法二：（查看剩余空间） function TForm1.isdiskready(drive: char): boolean; var    d1,