نحوه نمایش آدرس یک فایل به صورت کوتاه شده؟؟؟

[BORHAN TEC]

سلام :قلب:

چگونه می توان آدرس یک فایل را به صورت کوتاه شده نمایش داد؟

به عنوان مثال آدرس فایل زیر را در نظر بگیرید:

C:\Adobe Product\Adobe Photoshop CS5 ME\Setup\Lord Of Softwares 2011\Adobe Photoshop CS5 ME\Deployment\ar_AE_Deployment.xml

حال می خواهم کاری کنم که این آدرس به صورت کوتاه شده به نمایش در بیاید یعنی در قسمتی از آن ... قرار بگیرید، یعنی به شکل زیر:

C:\Adobe Product\Adobe Photosho...\Deployment\ar_AE_Deployment.xml

تا اونجایی که یادم میاد یک تابع API برای این کار وجود دارد اما نمی دونم اسمش چی بود.

لطفاً راهنمایی کنید:لبخندساده:

[Felony]

GetShortPathName (http://msdn.microsoft.com/en-us/library/aa364989(v=vs.85).aspx)

[BORHAN TEC]

تشکر...
این هم مثالی در این رابطه برای کسانی که می خواهند نحوه استفاده از این تابع را بفهمند:
procedure TForm1.Button1Click(Sender: TObject);
var
PCh: array [0..80]of Char;
begin
GetShortPathName(
'C:\Adobe Product\Adobe Photoshop CS5 ME\Setup\Lord Of Softwares 2011\Adobe Photoshop CS5 ME\Deployment\ar_AE_Deployment.xml', PCh, SizeOf(pch)-1);
ShowMessage(PCh);
end;