发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
请参考：
例子：
m_shortname=shortnam("c:\My Documents\语音查询\电话语音查询系统.doc")
*!*******************************
proc shortnam
para p_filename
DECLARE Long GetShortPathNameA IN Win32API AS GetShortPathNameA ;
String longfilename, String @shortname, Long bufferlength
local m_shortname,m_returnnum
m_shortname=space(256)
m_returnnum=GetShortPathNameA(p_filename,@m_shortname,256)
return m_shortname
----
天行健，君子以自强不息
|
|