6 karakterde bir ~ işareti nasıl yapılır ?

[notname]

merhaba arkadaşlar

projemde tshelltreeview componenti kullanıyorum. bilgisayarımdaki sürücüleri filan görüyorum.

projemde surucuye tıkladıgım zaman edit1'e pathını veriyorum şu şekil

Kod: Tümünü seç

var
s:string;
begin
s:=shelltreeview.path;
edit1.text:=s;

yalnız yapamadıgım birşey cıktı shelltree componentiimde masaüstü'ne tıkladığım zaman edit1'de "c:\documents and settings\xxxx\desktop" yazıyor benim istediğim shelltree componentinde nereye tıklanırsa tıklansın 6 haneyi geçtiği zaman edit1'de ~1 işaretini koyması yani şu şekil yapmak istiyorum "c:\docume~1\xxxx\desktop" bu şekil olmasını istiyorum yardımlarınızı bekliyorum...

[bukentay]

ExtractShortPathName fonksiyonu isinize yarar sanirim. parametre olarak shelltreeview.path i verirsiniz.
Edit1.Text:=ExtractShortPathName(shelltreeview.path);

[notname]

teşekkürlerimi sunarım tam aradıgımdı