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

P

prog10

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #1

 

郑

郑宇轩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #2

Searchpath

 

4

4ever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #3

GetCurrentDirectory函数返回当前进程当前所在的目录 <br>DWORD GetCurrentDirectory(<br><br>&nbsp; &nbsp; DWORD nBufferLength, // 目录缓存大小（字符数） <br>&nbsp; &nbsp; LPTSTR lpBuffer // 当前目录地址缓存 <br>&nbsp; &nbsp; <br>&nbsp;<br><br>参数<br>nBufferLength<br>指定当前目录缓存的长度（字符数）。<br><br>lpBuffer<br>当前目录字符串缓存指针。此字符串指出当前目录的绝对路径。 <br><br>返回值<br>函数操作成功，返回值为写入缓存的字符数目，不包括表示结束的空字符。<br>

 

P

prog10

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #4

当前所在的目录 不一定是 程序可执行文件所在目录，比如在桌面快捷方式的情况下。

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #5

ExtractFilePath(Application.ExeName)返回当前程序可执行文件所在目录的全路径<br>

 

S

shangcm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #6

非要用 API 吗？那么请看看“GetFullPathName()”的帮助！<br><br>Delphi自己有这样的函数“extractfilepath()”，看看帮助！<br><br>提示：先用“application.exename”（好像是这个属性，请大家指正）<br>&nbsp; &nbsp; &nbsp; 得到当前程序可执行文件的文件名！

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #7

ExtractFilePath(Application.ExeName)

 

呆

呆非4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #8

GetCurrentDir();

 

K

kucio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #9

ExtractFilePath(Application.ExeName)<br>

 

S

Slong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #10

ExtractFilePath(ParamStr(0))

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #11

非要用API？ParamStr(0)不好吗？前面套个ExtractFileDir或ExtractFilePath很好用。

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #12

要是在VC里就用api:<br>DWORD SearchPath(<br>&nbsp; &nbsp; LPCTSTR &nbsp;lpszPath, // address of search path <br>&nbsp; &nbsp; LPCTSTR &nbsp;lpszFile, // address of filename <br>&nbsp; &nbsp; LPCTSTR &nbsp;lpszExtension, // address of extension <br>&nbsp; &nbsp; DWORD &nbsp;cchReturnBuffer, // size, in characters, of buffer <br>&nbsp; &nbsp; LPTSTR &nbsp;lpszReturnBuffer, // address of buffer for found filename <br>&nbsp; &nbsp; LPTSTR &nbsp;*plpszFilePart // address of pointer to file component <br>&nbsp; &nbsp; <br>其实在 pascal里,ExtractFilePath最合适<br>

 

C

coao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #13

这么多手。我抻一下吧。

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #14

来晚了！<br>ExtractFilePath(Application.ExeName)

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-29

• #15

同意 wind2000

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #16

我也来晚了<br>ExtractFilePath(Application.ExeName);//得到应用程序的路径<br>

 

D

delphisnail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #17

ExtractFilePath(Application.ExeName);

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #18

这样也可以：extractfilepath(paramstr(0)); // <br>

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #19

这样也可以：extractfilepath(paramstr(0)); // <br>

 

X

xinyt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #20

ExtractFilePath(Application.ExeName);<br>即可