大富翁真让我感到失望！！！(100分)

我已经底三次问了这个问题，但是一直没有找到答案，难道大富翁上就没有高手了吗，让我感<br>到很失望,让我浪费很多分数<br>同一个问题，但都没有得到正确的答案<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=1027260<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=994513<br><br>如何将<br>C:/Program Files/Borland/Delphi6/Bin<br>变成<br>C:/Program Files/.../Bin<br>我记得又一个Api函数的<br>我想知道这个Api的名称<br>拜托各位先看清楚问题再回答 不要告诉我用 ExtractShortPathName函数，我知道有个Api的<br>但想不起来<br>是 ... 不是 ~<br>如果还是没有答案，以后我想大富翁再也不来了

用 DrawText<br>uFormat 设置标志<br>DT_PATH_ELLIPSIS<br>如果想改变源字符串再加<br>DT_MODIFYSTRING 标志<br>具体信息参看 Win32SDK

不会吧，大户翁还是有很多高手的，很多好人，可能没有看到你的问题，看到你问题的都是我等菜鸟！！！！！

自己写个字符串处理函数，很简单呀！<br>何必浪费这么长时间和分数？10个函数都写完了！<br><br>别人只能提供思路，主要还要靠自己。<br>不要把所有的宝都压到别人身上！

都走，胡说八道,就一个API而已<br>PathCompactPath<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>PathCompactPath<br>Truncates a file path to fit within a given pixel width by replacing path components with ellipses.<br><br><br>BOOL PathCompactPath(<br>&nbsp; &nbsp; HDC hDC,<br>&nbsp; &nbsp; LPTSTR lpszPath,<br>&nbsp; &nbsp; UINT dx<br>);<br><br>Parameters<br>hDC <br>Handle to the device context used for font metrics. <br>lpszPath <br>Address of a buffer containing the path string to be modified. The buffer must be at least MAX_PATH characters long. On return, this buffer will contain the modified string. <br>dx <br>Width, in pixels, within which the string will be forced to fit. <br>Return Values<br>Returns TRUE if the path was successfully compacted to the specified width. Returns FALSE on failure, or if the base portion of the path would not fit the specified width.<br><br>Example<br>#include &lt;windows.h&gt;<br>#include &lt;iostream.h&gt;<br>#include "Shlwapi.h"<br>HDC hdc; &nbsp;/* display DC handle for current font metrics */ <br><br>void main( void )<br>{<br><br>// String path name 1.<br>char buffer_1[MAX_PATH] = "C://path1//path2//sample.txt";<br>char *lpStr1;<br>lpStr1 = buffer_1;<br><br>// String path name 2.<br>char buffer_2[MAX_PATH] = "C://path1//path2//sample.txt";<br>char *lpStr2;<br>lpStr2 = buffer_2;<br><br>// String path name 3.<br>char buffer_3[MAX_PATH] = "C://path1//path2//sample.txt";<br>char *lpStr3;<br>lpStr3 = buffer_3;<br><br>// String path name 4.<br>char buffer_4[MAX_PATH] = "C://path1//path2//sample.txt";<br>char *lpStr4;<br>lpStr4 = buffer_4;<br><br>// Variable to get the return from "PathCompactPath".<br>int retval;<br><br>cout &lt;&lt; "The un-truncated path is &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;" &lt;&lt; lpStr1 &lt;&lt; endl;<br><br>retval = PathCompactPath(hdc,lpStr1,125);<br>cout &lt;&lt; "The truncated path at 125 pixels is : &nbsp; " &lt;&lt; lpStr1 &lt;&lt; endl;<br><br>retval = PathCompactPath(hdc,lpStr2,120);<br>cout &lt;&lt; "The truncated path at 120 pixels is : &nbsp; " &lt;&lt; lpStr2 &lt;&lt; endl;<br><br>retval = PathCompactPath(hdc,lpStr3,110);<br>cout &lt;&lt; "The truncated path at 110 pixels is : &nbsp; " &lt;&lt; lpStr3 &lt;&lt; endl;<br><br>retval = PathCompactPath(hdc,lpStr4,25);<br>cout &lt;&lt; "The truncated path at &nbsp;25 pixels is : &nbsp; " &lt;&lt; lpStr4 &lt;&lt; endl;<br><br>}<br>OUTPUT:<br>===========<br>The un-truncated path is &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;C:/path1/path2/sample.txt<br>The truncated path at 125 pixels is : &nbsp; C:/path1/.../sample.txt<br>The truncated path at 120 pixels is : &nbsp; C:/pat.../sample.txt<br>The truncated path at 110 pixels is : &nbsp; C:/p.../sample.txt<br>The truncated path at &nbsp;25 pixels is : &nbsp; .../sample.txt<br><br>Remarks<br>This function uses the font currently selected in hDC to calculate the width of the text. This function will not compact the path beyond the base file name preceded by ellipses. <br><br>Requirements <br>&nbsp; Version 4.71 and later of Shlwapi.dll<br><br>&nbsp; Windows NT/2000: Requires Windows 2000 (or Windows NT 4.0 with Internet Explorer 4.0 or later). <br>&nbsp; Windows 95/98/Me: Requires Windows 98 (or Windows 95 with Internet Explorer 4.0 or later). <br>&nbsp; Header: Declared in Shlwapi.h. <br>&nbsp; Import Library: Shlwapi.lib.

function shortenfilename(s : string) : string;<br>var<br>&nbsp; drive,curdrive : string[2];<br>&nbsp; dir,curdir : string[80];<br>　　name : string[20];<br>　　ext : string[5];<br>　　i : byte;<br>begin<br>　for i:=1 to length(s) do s:=upcase(s);<br>　　s:=fexpand(s);<br>　　fsplit(s,dir,name,ext);<br>　drive:=copy(dir,1,2);<br>&nbsp; dir:=copy(dir,4,length(dir)－3);<br>&nbsp; getdir(0,curdir);<br>　curdrive:=copy(curdir,1,2);<br>　curdir:=copy(curdir,4,length(curdir)－3)+‘/';<br>　if drive=curdrive then begin<br>　if copy(dir,1,length(curdir))=curdir then begin<br>　i:=length(curdir);<br>　if length(dir)&lt;&gt;i then dir:=dir+‘/';<br>　shortenfilename:=copy(dir,i+1,length(dir)－i－1)+name+ext;<br>　end else shortenfilename:=copy(s,3,length(s)－2);<br>&nbsp; end else shortenfilename:=s;<br>end;<br><br>&gt;&gt;如果还是没有答案，以后我想大富翁再也不来了<br>&nbsp; 你想威胁谁？首先你不来不会对别人造成什么损失；其次如果你认为这里解决不了你的任何问题，<br>你完全可以离开这里，这对你来说也不会有什么损失。

[]

请将不如激将！！

<br>

http://www.delphibbs.com/delphibbs/dispq.asp?lid=985697

哈哈哈，看来大富翁真的高手如云啊

这种人是不是心理变态？要走就走，还落井下石！靠！

不要骂人家嘛，人家也是问了问题没人理，心里不痛快才这么说的嘛，你们高手也要体谅一下，毕竟你们以前也有是菜鸟的时候嘛！

呵呵呵，现在果然自动换行！

还有啊，DFW的兴旺需要每个人，斑竹们不要老是说什么“心理变态”、“要走就走”之类的话，让人伤心啊！也有失斑竹的体面！

up

[]<br>人无能人，无论大富翁是好是坏，大家都是一分子，都在共同努力。<br>不要动辄说大富翁要完了，高手走光了之类的话，我想问一句：何为高手？<br>个人认为，只要能够解决特定问题的，就是高手。<br>每一个人都是高手，但是每一个人又都有很多不知道的问题。每天我都能接到很多在线呼叫，讨论问题，我会很诚实、认真的帮助解决问题，会就是会，不会就是不会。我觉得这是我的基本职责。<br><br>也许你的问题很简单，但是我们不知道，这也没办法，激将法也许有用，但是会出很多的吵闹，最好还是不用。<br>我认为，一个合格的大富翁成员，不仅仅要会提出问题，更重要的是回答问题，只求所取，不求奉献，大家都这样，那怎么能有高手呢？<br><br>说实话，我一看见这种帖子就反感，如果我是斑竹，我很可能会将他踢到黑名单或者删除，为什么呢，我觉得，作为一个大富翁的成员，不应该说出这样的话！能说出这样的话的，不是一个合格的大富翁成员！<br>也许太激进了一些，真的希望大家以后提问题的时候注意一些。

问题解决了没有？ &nbsp;<br>不管在哪里，问题解决了就行了

我用PathCompactPath解决了，谢谢Com,及所有的人<br>Sorry，实在没有办法才出此下策，我主要是问了好多次问题都没有得到想要的答案,<br>我的待答问题已经一大堆了，基本上每次问的问题都没有答案<br>其实我上大富翁也好久了,也回答了别人不少的问题，但我每次问问题都很少有人回答<br>我也不是每次一碰到问题就上来问的，当没有办法的时候才来向大家讨教<br>谢谢各位

我用PathCompactPath解决了，谢谢Com,及所有的人<br>Sorry，实在没有办法才出此下策，我主要是问了好多次问题都没有得到想要的答案,<br>我的待答问题已经一大堆了，基本上每次问的问题都没有答案<br>其实我上大富翁也好久了,也回答了别人不少的问题，但我每次问问题都很少有人回答<br>我也不是每次一碰到问题就上来问的，当没有办法的时候才来向大家讨教<br>谢谢各位<br>