delphi运行期的执行文件，怎么获取它的版本号 delphi 获取文件版本信息

急求！Delphi读取文件，按照关键字获取相应信息 这个 弄个memo1 隐藏起了 loadfromfile方法 加载到memo 用lines属性一行行 查字符串 看看开头是不是columns和rows查到了 再往后查冒号 把冒号后的读出来.简单的字符串处理就能搞定Delphi 从注册表中获取文件类型名称 每一个文件类型的信息被保存在注册表中的 'HKEY_CLASSES_ROOT'下面。比如要找个*.jpg图片文件的类型信息，先在HKEY_CLASSES_ROOT下读取.jpg项的默认值（字符串）：jpegfile然后再在HKEY_CLASSES_ROOT下读取jpegfile项的默认值：JPEG 图像好了，你要的信息到手了另外打开方式也可在这里找到的下面的话是别人说滴：首先在HKey—Classes—Root寻找与FileExt（文件后缀，带“.”）相匹配的主键，然后从“默认”键名取得键值，然后以该键值作为主键取得FileExt的具体描述。在其子键shell\\open\\command中保存了由哪个程序、以什么参数打开FileExt类型的文件的信息。用DELPHI怎么读取外部EXE的版本信息？求代码。如题 谢谢了 告诉你读取版本的：function GetAppVersion(FileName：string)：string；var VerInfoSize：DWORD；VerInfo：Pointer；VerValueSize：DWORD；Dummy：DWORD；VerValue：PVSFixedFileInfo；begin Result：=''；VerInfoSize：=GetFileVersionInfoSize(PChar(FileName)，Dummy)；if VerInfoSize=0 then Exit；GetMem(VerInfo，VerInfoSize)；GetFileVersionInfo(PChar(FileName)，0，VerInfoSize，VerInfo)；VerQueryValue(VerInfo，'\\'，Pointer(VerValue)，VerValueSize)；Result：=IntToStr(VerValue^.dwFileVersionMS shr 16)+'.'+IntToStr(VerValue^.dwFileVersionMS and$FFFF)+'.'+IntToStr(VerValue^.dwFileVersionLS shr 16)+'.'+IntToStr(VerValue^.dwFileVersionLS and$FFFF)；FreeMem(VerInfo)；end；如何获取文件名中“.”的位置 delphi 要找文件名或者扩展名的话建议用ExtractFilePath/ExtractFileExt，确定字符串的位置用POS，如果是针对字符串的操作建议楼主用一下StrUtils单元的函数，基本上可以完成任何想要的功能Delphi获取文件最新修改时间 Delphi7 Windows电脑 打开Delphi7集成开发环境，在Diaglog面板，向默认工程的Form1窗体放一个Opendiag1控件 2 在默认工程的Form1窗体，再放一个Edit1控件，两个Button控件。delphi如何获得一个文件夹下所有文件的信息？ 方法1：先调用FindFirst启动列表，再循环调用FindNext获取文件名存入aa数组，最后调用FindClose关闭列表 方法2：直接使用TFileListBox控件，设置好Drive、Directory、FileType属性，然后访问其Items数组就能得到所有文件/子目录列表了，很简单delphi运行期的执行文件，怎么获取它的版本号 Function FileVersion(Const aFile：String；Var AMajor，AMinor，ARelease，ABuild：DWORD)：Boolean；VarLpdwHandle，VersionSize：DWORD；VB：Pointer；VS：PVSFixedFileInfo；BeginResult：=False；AMajor：=0；AMinor：=0；ARelease：=0；ABuild：=0；LpdwHandle：=0；VersionSize：=GetFileVersionInfoSize(PChar(aFile)，LpdwHandle)；If VersionSize>；0 ThenBeginGetMem(VB，VersionSize)；TryIf GetFileVersionInfo(PChar(aFile)，0，VersionSize，VB)ThenBeginVerQueryValue(VB，'\\'，Pointer(VS)，VersionSize)；AMajor：=VS.DwFileVersionMS Div$10000；AMinor：=VS.DwFileVersionMS Mod$10000；ARelease：=VS.DwFileVersionLS Div$10000；ABuild：=VS.DwFileVersionLS Mod$10000；Result：=True；End；FinallyFreemem(VB)；End；End；End；

#delphi#注册表#文件类型