Ağdaki programın bulunduğu sürücü harfini alma

[White Rose]

s.a.
OpenDialog ile ağ üzerinden ulaştığımız bir dosyanın bulunduğu yereldisk sürücü harfini
nasıl alabiliriz.

Extractfiledir, Extractfilepath işe yaramıyor.

Teşekkürler.

[lazymule]

drive := ExtractFileDrive( yol )
GetDriveType(pchar(drive)) sürücü tipi
kolay gelsin

[White Rose]

cevap için teşekkür ederim ancak bana sürücü tipi değil sürücü harfi lazım
yani C' mi, D' mi, E' mi ?

[Battosai]

@lazymule cevabı yazmış siz test etmeden karar vermişsiniz.
http://delphi.about.com/library/rtl/blr ... eDrive.htm

[White Rose]

@lazymule cevabı yazmış siz test etmeden karar vermişsiniz.
http://delphi.about.com/library/rtl/blr ... eDrive.htm

test ettim ama GetDriveType(pchar(drive)) tip olarak 1 döndürüyor.

bir de ağ üzerinden opendialog ile aldığınız filename size "\\Bilgisayaradi\Klasor\Dosya_adi" formatında gönderiyor
yani bu string içinde sürücü harfi yok, benim istediğim de bu

[mkysoft]

Ağdan eriştiğiniz dosyadan sürücü harfi bilgisi alamazsınız çünkü ağ üzerinden paylaştırılmıştır.

[lazymule]

@lazymule cevabı yazmış siz test etmeden karar vermişsiniz.
http://delphi.about.com/library/rtl/blr ... eDrive.htm

test ettim ama GetDriveType(pchar(drive)) tip olarak 1 döndürüyor.

bir de ağ üzerinden opendialog ile aldığınız filename size "\\Bilgisayaradi\Klasor\Dosya_adi" formatında gönderiyor
yani bu string içinde sürücü harfi yok, benim istediğim de bu

test etmeden yazmadım dikkat edersen sürücü tipinide yazdım. unc path de sürücü harfi olmaz
\\makineadi\paylasimadi\dosyaadi şeklinde olur
sen ExtractFileDrive aldığın değeri GetDriveType ile kontrol ederek sürücü türünü kontrol edersin 1 alıyorsan drive_no_root_dir ' a karşılık gelir
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

tekrar kolay gele

[hsngoktas]

sürücü ismi olmayan bir dosya isminde sürücü ismi arıyorsunuz.

\\Bilgisayaradi\Klasor\ paylaşımına bir sürücü olarak bağlanırsanız sürücü harfi bundan sonrakilerde dönecektir ama sorguladığınız string de sürücü harfi olmalı

[sabanakman]

Tam olarak nerede ne amaçla kullanılacaksa bu özellik ona göre farklı yöntem geliştirilebilir. Zira ağdan paylaşılmış bir klasörün yolunu ancak bilgisayarın kendisi bilebilir ağdan bilme imkanı bulunmamaktadır. Mesela SQL Server veritabanlarına sahipseniz master.dbo.sysdatabases tablosunda bulunan temel veri tabanınızın filename alanından ilgili bilgi çekilebilir. Eğer hiç böyle işlerle alakam yok diyorsanız bunu ana makinede ilgili klasörde tutulan bir ayar dosyası üzerinden organize edebilirsiniz.

[zengin]

s.a

ustacıgım

Kod: Tümünü seç

Edit1.Text :=ExtractFileDrive(Application.ExeName);

Bu şekil yeterli olurmu bilmem

kolay gelsin