كيف صورة مسار برنامج في ListView - نسخة قابلة للطباعة

كيف صورة مسار برنامج في ListView - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف صورة مسار برنامج في ListView (/showthread.php?tid=10015)

كيف صورة مسار برنامج في ListView - عبد الله اكرم - 20-01-2019

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

RE: كيف صورة مسار برنامج في ListView - Mustapha29 - 20-01-2019

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

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

RE: كيف صورة مسار برنامج في ListView - عبد الله اكرم - 20-01-2019

(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; بارك الله بك اخي على ردك الكود نجح بس ايقونه البرنامج لم تظهر معي ممكن حل المشكله

RE: كيف صورة مسار برنامج في ListView - عبد الله اكرم - 22-01-2019

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

RE: كيف صورة مسار برنامج في ListView - Mustapha29 - 22-01-2019

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

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

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

RE: كيف صورة مسار برنامج في ListView - عبد الله اكرم - 23-01-2019

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