Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
也许是98对长文件名支持不是特别好吧?
不过不应该取得文件名为空呀,至少应该有一部分的!
可以找函数变成短文件名(8+3的)
Function GetShortFilename(LongFilename: String): String;
var
; ShortFile: pChar;
begin
; ShortFile := StrAlloc(MAX_PATH + 1);
; Try
; ; if GetShortPathName(pChar(LongFilename), ShortFile, MAX_PATH + 1) = 0 then //转换错误
; ; ; Raise EConvertError.Create
; ; ; ; ('GetShortFilename: ' + SysErrorMessage(GetLastError));
; ; Result := String(ShortFile);
; Finally
; ; StrDispose(ShortFile);
; end;
end;
不过不应该取得文件名为空呀,至少应该有一部分的!
可以找函数变成短文件名(8+3的)
Function GetShortFilename(LongFilename: String): String;
var
; ShortFile: pChar;
begin
; ShortFile := StrAlloc(MAX_PATH + 1);
; Try
; ; if GetShortPathName(pChar(LongFilename), ShortFile, MAX_PATH + 1) = 0 then //转换错误
; ; ; Raise EConvertError.Create
; ; ; ; ('GetShortFilename: ' + SysErrorMessage(GetLastError));
; ; Result := String(ShortFile);
; Finally
; ; StrDispose(ShortFile);
; end;
end;