<h4>紧急提问：有没有哪个API函数可以返回当前程序可执行文件所在目录的全路径？</h4>(200分)

zouming · 2000-08-31

var       ExeDir: String;       ...     ExeDir:=:=ExtractFileDir(Application.Exename);     您满意了吗！（本人曾经在一个开发系统中用了这个函数）

clyin · 2000-08-31

如果用API的话,用 GetModuleFileName 函数，如下: function GetAppPath: string; var   buf: array[0..max_path-1] of char;   len: integer; begin   GetModuleFileName(hInstance, buf, max_path);   {找到最后一个反斜杠的位置}   len := strlen(buf);   while len > 0 do   begin     if (buf[len] <> #0) and (strscan('/', buf[len]) <> nil) then       break;     dec(len);   end;   result := copy(string(buf), 1, len + 1); end;

Victortim · 2000-08-31

ExtractFilePath(ParamStr(0))

sprite · 2000-08-31

hehe  getcurrentdirectory

hzp · 2000-08-31

不一定要API函数，ExtractFilePath(Application.ExeName)和ExtractFileDir(Application.ExeName)都可以。

skyrabbit · 2000-08-31

补充一点不同的地方。 例子：文件d:/temp/test.exe ExtractFilePath(Application.ExeName)   d:/temp/ ExtractFileDir(Application.ExeName)    d:/temp

ArJianzeng · 2000-09-01

ExtractfilePath(Application.ExeName); ExpandFileName(Application.ExeName);

dedman · 2000-09-01

ExtractfilePath(Application.ExeName); 这根本就是pascal的函数,不是windows api呀

luguo · 2000-09-02

全路径：ExtractfilePath(Application.ExeName); 文件名：ExpandFileName(Application.ExeName); 短路径：ExtractShortPathName(Application.ExeName); 在DELPHI中有时需要短路径。

luguo · 2000-09-02

干么非要用 API 用如下函数就行，还节省资源。 全路径：ExtractfilePath(Application.ExeName); 文件名：ExpandFileName(Application.ExeName); 短路径：ExtractShortPathName(Application.ExeName); 在DELPHI中有时需要短路径。

plowboy · 2000-09-02

抢啊，这么多人在抢，我怎么能得到呢! 不给我点分我可不干，这问题人人都会。 用ParamStr(0)吧，很好用。

千中元 · 2000-09-02

wjiachun · 2000-09-02

你紧急提问，问完了人就没了？？？？

prog10 · 2000-09-02

对不起，我几天没上网，没想到这么多人来解答，谢谢！问题已解决了。 本想大家分点分，但不到哪个斑竹将我的分已经全部给一个人了，这不是让我背黑锅吗？ 大家回答都有分，而且才过了没几天，没到强制结束的时候吧，怎么能这样呢?希望有人出来 给个解释！

<h4>紧急提问：有没有哪个API函数可以返回当前程序可执行文件所在目录的全路径？</h4>(200分)

zouming

Unregistered / Unconfirmed

clyin

Unregistered / Unconfirmed

Victortim

Unregistered / Unconfirmed

sprite

Unregistered / Unconfirmed

hzp

Unregistered / Unconfirmed

skyrabbit

Unregistered / Unconfirmed

ArJianzeng

Unregistered / Unconfirmed

dedman

Unregistered / Unconfirmed

luguo

Unregistered / Unconfirmed

luguo

Unregistered / Unconfirmed

plowboy

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

prog10

Unregistered / Unconfirmed

Similar threads