programın çalıştığı yerdeki dizinleri bulma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
FXERKAN
Üye
Mesajlar: 178
Kayıt: 26 Tem 2003 11:06
Konum: Sivas - Konya
İletişim:

programın çalıştığı yerdeki dizinleri bulma

Mesaj gönderen FXERKAN »

programın çalıştığı yerdeki dizinleri bulma

programın çalıştığı dizinin içinde bulunan diğer dizin isimlerini nasıl bulabilirim
bunları bir dizi yada ona benzer bir şeye atarak tabii,
yani kaç tane dizin olduğu ve isimlerininde ne olduğu belli değil tabiiki

ama belki dizin isimleri şunun FX_dizinadı gibide olabilir. eğer kolaylık sağlayacaksa tabii ki
[ F X E R K A N © - E r k a n Ç İ F T Ç İ ]
Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

merhaba

GetDir(0,s); { 0 = Current drive }

s:string tir. bununla programın çalıştığı sürücü ve dizini alabilirsin.
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Kullanıcı avatarı
FXERKAN
Üye
Mesajlar: 178
Kayıt: 26 Tem 2003 11:06
Konum: Sivas - Konya
İletişim:

Mesaj gönderen FXERKAN »

hocam galiba benim sorduğum soruyu anlamamışsınız.

ben programramın çalıştığı dizin içerisindeki dizinlerin adlarını bulan bir kod istemiştimki gerek kalmadı artık teşekkürler
[ F X E R K A N © - E r k a n Ç İ F T Ç İ ]
Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

A bak yeni gördüm biz HEMŞOymuşuz :)

oke istediğini anlamıştım ama kodlar aklıma gelmedi daha önce bende yapmıştım bunu. İlk aklıma gelen de ilk önce programın çalıştığı dizinin bulunması ama :) bende helpten copy past yaptım :)
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Kullanıcı avatarı
gkimirti
Admin
Mesajlar: 1956
Kayıt: 02 Eyl 2003 04:44
Konum: İstanbul

Mesaj gönderen gkimirti »

ExtractFileDir(Application.ExeName) ile calısma dizinini al

sonra FindFirst,FindNext,ve FindClose yordamlarını kullanarak bunun icindeki dizinleri bulabilirsin
ornek kullanım helpinde mevcut.eger bunların da icindeki dizinlere ihtiyacın varsa recursif bir algoritma olusturman (aynı mantıgı kullanarak) yararlı olur
ÜŞENME,ERTELEME,VAZGEÇME
Cevapla