文件名的转化?(50分)

A

aqudc

Unregistered / Unconfirmed
GUEST, unregistred user!
请问Delphi中有什麽函数可以将长文件名转化为短文件名?
例如由c:/program files/code/codeinstall.exe得到c:/progra~1/code/codein~1.exe?
 
好象没有,自己编一个吧。
不会超过10行
 
好象api中有, 好好找找:)
 
GetShortPathName

kenal32中的api

查WIN32.HLP
 
procedure TForm1.Button3Click(Sender: TObject);
var
xxx:pchar;
begin
getmem(xxx,255);
GetShortPathName('G:/My Documents/My Documents/abc',pchar(xxx),255);
showmessage(strpas(xxx));
freemem(xxx);
end;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
794
SUNSTONE的Delphi笔记
S
S
回复
0
查看
797
SUNSTONE的Delphi笔记
S
D
回复
0
查看
709
DelphiTeacher的专栏
D
顶部