FFileName := ExtractFilePath(Application.ExeName) + 'Wave'(0分)

  • 主题发起人 主题发起人 allenshy
  • 开始时间 开始时间
A

allenshy

Unregistered / Unconfirmed
GUEST, unregistred user!
FFileName := ExtractFilePath(Application.ExeName) + 'Wave'<br>这样可以在本地目录下创建文件吗?<br>Application.ExeName是什么意思?<br><br>弱弱的问,如何实现把缓冲区里的数据保存到本地目录下(或某某目录下)。<br><br>没钱了,各位大爷怜悯我吧
 
不一定行!如果光有这一句,99%的不行<br><br>Application.ExeName 你当前这个程序的的文件名<br><br>ExtractFilePath(Application.ExeName) 得到它的路径,也就是目录,也就是文件夹位置<br><br>
 
ExtractFilePath(Application.ExeName) &nbsp;是得到程序的安装路径  <br>Application.ExeName 是程序的名称
 
补充一下ExtractFilePath得到的文件夹不一定最后以'/'结尾<br>如果是在跟目录,可能会缺少'/';
 
多谢!<br>&nbsp;FFileName := ExtractFilePath(Application.ExeName) + 'Wave'; &nbsp;<br>&nbsp; if not DirectoryExists(FFileName) then<br>&nbsp; &nbsp; if not CreateDir(FFileName) then exit;<br>&nbsp; FFileName := FFileName + '/';<br>&nbsp; FFileName := FFileName + GetSaveName() + '.wav';<br>&nbsp; mmfp := mmioOpen(PChar(FFilename), nil,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MMIO_CREATE or MMIO_WRITE or MMIO_ALLOCBUF);<br><br>这样是不是实现了在本地目录下创建一个文件?
 
Application.ExeName是返回当前程序的文件名(包括完整路径)<br>FFileName := ExtractFilePath(Application.ExeName) + 'Wave' 凭这一句不能在本地<br>建立文件,得调用创建文件的函数,而且'Wave'应该是完整的文件名(如:ass.txt)
 
后退
顶部