Delphi中获取应用程序所在目录（建议使用1024*768）

            Delphi中获取应用程序所在目录

        在进行编程的时候，经常会碰到相对路径的问题，比如程序在c:\temp目录下面，我们需要用到

c:\temp\res\logo.jpg 目录下面的资源，一般直接使用相对路径“res\logo.jpg”就可以了，但是有时候程

序确找不到这个logo.jpg，这是因为可能我们可能进行了目录相关的操作，当前目录已经定位到其他目

录下面去了，这样路径就不对了。

          解决方法 1 ：使用ExtractFilePath（）方法结合 Aplication.ExeName值使用方法如下，

ExtractFilePath(Application.ExeName) + 'res\logo.jpg' 。这里面 Application.ExeName 的值是应用程序所在

的绝对路径 "c:\temp\Project1.exe " ，使用ExtractFilePath()得到的就是“c:\temp\”，也就是当前这个应

用程序所在的目录，正是我们想要的东西，最后把字符串连接，得到的结果就是

“c:\temp\res\logo.jpg”，那么我就可以可以使用相关的资源了。

        解决方法 2：比上一个更加简单，我们需要用到API  GetCurrentDir，你使用

ShowMessage(GetCurrentDir)  看看会得到什么，我们直接就可以得到 “c:\temp\”，下面该怎么做你

应该知道了把。