如何生成8.3格式的路径文件名？(100分)

轻

轻音乐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #1

如何将：
C:/Documents and Settings/Administrator.LIGHTMUSIC/My Documents/新建文件夹/我的文件.exe
转成8.3格式。

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #2

GetShortFileName

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #3

Getshortpathname
getshortpath
getshortname
忘了是哪个了。

 

Y

yzqangel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #4

copyfile('C:/Documents and Settings/Administrator.LIGHTMUSIC/My Documents/新建文件夹/我的文件.exe
,'12345678.exe
',true);
deletefile('C:/Documents and Settings/Administrator.LIGHTMUSIC/My Documents/新建文件夹/我的文件.exe
');

 

轻

轻音乐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #5

to yzqangel, 你的是什么意思呀：）

 

轻

轻音乐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #6

to kkyy, 好像你的能用，可是怎么是呀？
请你帮助

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #7

来自Hubdog的葵花宝典：
Function GetShortFileName(Const FileName: String): String;
var
aTmp: array[0..255] of char;
begin
if GetShortPathName(PChar(FileName), aTmp, Sizeof(aTmp) - 1) = 0 then
Result := FileName
else
Result := StrPas(aTmp);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
l_FileName: array[0..255] of char;
begin
ShowMessage(GetShortFileName('C:/Program Files/Outlook Express/msimn.exe'));
end;

 

轻

轻音乐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #8

解决了，谢谢各位