Delphi'de Dosya Uzantısı Almak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kafkasyali
Üye
Mesajlar: 75
Kayıt: 04 Nis 2008 01:03

Delphi'de Dosya Uzantısı Almak

Mesaj gönderen kafkasyali »

Resim
Delphi'de bir arşivleme programı yazmaya çalışıyorum. Program 7-zip teknolojisini kullanıyor. Zip,RAR,CAB,ISO,DEB ve bunlara benzer bir çok formatı destekliyor. Powerarchiver tarzı bir menü oluşturdum. FileListBox ve ShellFileListBox'ta dosya uzantılarını alıp listeden bir item seçildiğinde sağ taraftaki Önizleme menüsünde metin, resim müzik gibi dosyaların önizlemesini vermek istiyorum. jedi componenti kullanıyorum. http://www.delphi-jedi.org/ adresinden indirebilirsiniz. Belirttiğim gibi listbox ve shelllistboxtan dosya uzantılarını nasıl alabilirim?

Programı ve kaynak kodlarını buradan indirebilirsiniz.
http://rapidshare.com/files/345466736/archive25.7z.html
visualbasic.stupid:=true;
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: Delphi'de Dosya Uzantısı Almak

Mesaj gönderen Lost Soul »

ExtractFileExt(dosya adı veya adı+adresi) ya da öyle bişeydi tam hatırlamıyorum
qamyoncu
Üye
Mesajlar: 266
Kayıt: 12 Tem 2008 04:30

Re: Delphi'de Dosya Uzantısı Almak

Mesaj gönderen qamyoncu »

Kod: Tümünü seç

ExtractFileExt(Dosya_Yolu); 
Emin olunamamış, belirtmek istedim, iyi günler.
Batuhan TAŞDÖVEN
'Yükseldikçe küçülen bir uçurtma..'
kafkasyali
Üye
Mesajlar: 75
Kayıt: 04 Nis 2008 01:03

Re: Delphi'de Dosya Uzantısı Almak

Mesaj gönderen kafkasyali »

Teşekkür ederim arkadaşlar. İnternet bağlantım olmadığı için geç cevap yazdım.
visualbasic.stupid:=true;
Cevapla