كيف صورة مسار برنامج في ListView

[عبد الله اكرم]

السلام عليكم 
اخواني لدي برامج مثبته على حاسوبي وارغب بوضع احد البرامج كما موضح بالصوره في ListView
من خلال مسار البرنامج، هذا مثال

[Mustapha29]

إليك هذا الكود و حالو التغيير فيه حسب ما تريد

كود :

procedure TForm1.Button1Click(Sender: TObject); var li:TListItem; SR: TSearchRec; begin ListView1.Items.BeginUpdate; try ListView1.Items.Clear; FindFirst(ExtractFilePath(Application.ExeName) +'*.exe', faAnyFile, SR); try repeat li := ListView1.Items.Add; li.Caption := SR.Name; if ((SR.Attr and faDirectory) <> 0) then li.ImageIndex := 1 else li.ImageIndex := 0; until (FindNext(SR) <> 0); finally FindClose(SR); end; finally ListView1.Items.EndUpdate; end; end;

[عبد الله اكرم]

إليك هذا الكود و حالو التغيير فيه حسب ما تريد

كود :

procedure TForm1.Button1Click(Sender: TObject); var li:TListItem;    SR: TSearchRec; begin    ListView1.Items.BeginUpdate;    try        ListView1.Items.Clear;        FindFirst(ExtractFilePath(Application.ExeName) +'*.exe', faAnyFile, SR);        try            repeat                li :=  ListView1.Items.Add;                li.Caption := SR.Name;                if ((SR.Attr and faDirectory) <> 0)  then li.ImageIndex := 1                else li.ImageIndex := 0;            until (FindNext(SR) <> 0);        finally            FindClose(SR);        end;    finally        ListView1.Items.EndUpdate;    end; end; بارك الله بك اخي على ردك الكود نجح بس ايقونه البرنامج لم تظهر معي  ممكن حل المشكله

[عبد الله اكرم]

شكراا على المساعده تم الاستفاده من الكود

[Mustapha29]

شكراا على المساعده تم الاستفاده من الكود

إليك هذا التطبيق ربما يساعدك
في المرفقات

---

و هذا تطبيق بمكون ListView
حمل من المرفقات

[عبد الله اكرم]

اشكراا اخي Mustapha29 تم الاستفاده من جميع الاكود بارك الله