绝对难题(100分)

  • 主题发起人 主题发起人 pcexplorer
  • 开始时间 开始时间
P

pcexplorer

Unregistered / Unconfirmed
GUEST, unregistred user!
如何将<br>C:/Program Files/Borland/Delphi6/Bin<br>变成<br>C:/Prog.../.../Bin<br>我记得又一个Api函数的<br>我想知道这个Api的名称<br>
 
spath:='C:/Program Files/Borland/Delphi6/Bin'<br>vvalue:=copy(spath,1,7)+'.../...';<br>n:=... &nbsp; //用循环或其他办法查出最后一个'/'的位置<br>vvalue:=vvalue+copy(spath,n,length(spath)-n+1);<br><br>是不是很ok<br>
 
extractshortpathname()<br>//长文件名转化为短文件名<br>button1.caption:=extractshortpathname('C:/Program Files');<br>
 
后退
顶部