ListView ile dosya listeleme ve gerekli program ile...

[ikra]

hocalarim yeni bir soru ile yine karsinizdayim...

Her iscinin ID nosuna göre bir klasör olusturup, isci ile ilgili dosyalari bu klasöre tasimak daha sonra da LISTVIEW gibi bir eleman kullanarak dosyalari icon larina göre listelemek istiyorum. program multiuser olup anamakinaya baglanmakta ve klasörler tabiyatiyla anamakina icerisinde...

ListView ile klasör yolunu bildirip, icerisindeki tüm dosyalari iconlari ile nasil listeleyebilirim, üzerine cift tikladigimda dosyayi gerekli program ile nasil acabilirim bilgisi olan var mi?

arama yaptim, sonuc alamadim. genel olarak list seklinde kullanilmis ve string ler ile calisilmis. bendeki durum ise dosyalar ile...

ilgileriniz icin simdiden tesekkür ederim...

selam ve dua ile...

[karflake]

Aşağıdaki procedure ile bir klasörün altındaki dosyaların listesini alabilirsiniz ancak daha önce bunu ağ üzerinde kullanmadım. Bir de bu procedure sadece klasörün altındaki dosyaları listeler, eğer daha alt klasörler varsa bunlara bakmaz.

Kod: Tümünü seç

procedure DosyaListele(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

ListView'deki bir dosyayı çift tıkladığınızda açmak içinse ShellExecute veya WinExec apilerini kullanabilirsiniz.

Kod: Tümünü seç

//uses'a Shellapi unit'ini ekleyin
ShellExecute(Handle,
            'open',
             PChar(DosyaAdi), //burayı listview'a göre düzenlersiniz.
             nil,
             nil,
             SW_SHOWNORMAL);

Dosyalardan icon alma konusunda ise bir bilgim yok.

[vedatkaba]

Delphi demos klasörü içinde bir örnek var onu incele istersen.Soruna cevabı bulursun.Kolay gelsin.