begin edit1.text:=extractfiledir(application.ExeName); edit1.text:=extractfilepath( application.ExeName); 这个是获取自身目录的函数,两函数不同的是 ...
wenda.tianya.cn