delphi4arab منتديات دلفي للعرب - كيف صورة مسار برنامج في ListView

السلام عليكم
اخواني لدي برامج مثبته على حاسوبي وارغب بوضع احد البرامج كما موضح بالصوره في ListView
من خلال مسار البرنامج، هذا مثال
[صورة: p_11146sl2j1.png]

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

كود :
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;

(20-01-2019, 12:17 PM)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; بارك الله بك اخي على ردك الكود نجح بس ايقونه البرنامج لم تظهر معي ممكن حل المشكله

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

(22-01-2019, 08:41 AM)عبد الله اكرم كتب : [ -> ]شكراا على المساعده تم الاستفاده من الكود

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

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

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