Kod: Tümünü seç
{$I-}
GetLastError;
PATH:= ExtractFilePath(ParamStr(0));
if PATH[Length(PATH)] = '\' then PATH:= Copy(PATH,1,Length(PATH)-1);
ChDir(PATH);
if IOResult <> 0 then MkDir(PATH);
NeverFear yazdı:FormCreate veya FormShow yordamına kodlayınız.
İşinizi görmesi dileğimle,Kod: Tümünü seç
{$I-} GetLastError; PATH:= ExtractFilePath(ParamStr(0)); if PATH[Length(PATH)] = '\' then PATH:= Copy(PATH,1,Length(PATH)-1); ChDir(PATH); if IOResult <> 0 then MkDir(PATH);
Çalışmalarınızda başarılar dilerim.
NeverFear - kaheri579@hotmail.com
Sanırım bu kodlardan, oluşturulan kısayoldan çalışan programın, başlama yeri değişik bir yol veya boşsa yararalanılabilinir. Aksi hiç bir ihtimalde işe yarar bir kullanımı aklıma gelmiyor.fatihtolgaata yazdı:Bu tam olarak ne işe yarıyor?
Anlattığım ChDir prosedürünü izah etmek amacıyla bir örnekti.NeverFear yazdı:...Ayrıca, Windows illa C:\ sürücüsüne mutlaka kurulması gerekir diye bir şart sözkonusu olamaz...
NeverFear yazdı:Bu kod, install ettiğiniz programınız...
Eğer kurulum ayarlarında oluşturduğun kısayol için başlama yeri olarak program klasörünün olduğu yere ayarlayabilirseniz böyle bir koda ihtiyacınız olmaz. Sanırım bu tür hataları kısayollardan çalışan program için alıyordunuz. Hangi kurulum programını kullanıyorsunuz bilmem ama (yine örnek olması açısından) inno setup ile oluşturulan kısa yollarda WorkingDir özelliğine {app}\ yazılırsa bu kodları kullanmaya gerek kalmaz.sabanakman yazdı:...oluşturulan kısayoldan çalışan programın, başlama yeri değişik bir yol veya boşsa yararalanılabilinir...
İlginç, demek memory leak'leri de önleyebiliyor...hangi sürücüde olursa olsun hata raporları ve program kırılmalarına neden olmadan çalışmasını sağlamak içindir.
Delphi'de yeni boş bir proje oluşturun. Sonra derleyin ve çalıştırın. Emin olun siz demedikçe gidip c'yi felan aramaz. Windows zaten bir uygulamayı çalıştırdığında ilk parametre olarak bulunduğu klasörü yollar. Klasör yoksa programı nasıl çalıştırsın ki? Program isterse X sürücüsünde olsun, isterse ağ sürücüsünde. Çalıştığında ilk parametre olarak buradaki klasör gelir. Mantık olarak eğer klasör yoksa exe de yoktur. Sizin verdiğiniz kod çalışan exe'nin klasörüne ChDir ile girmeye çalışıyor ve yoksa MkDir ile yeniden oluşturuyor. Bunun hata raporları, program kırılmaları ve C sürücüsünü arama ile ilgili olduğunu zannetmiyorum.Çalıştırdığınızda gidip de C:\ sürücüsünü aramaz.
O program için oluşturulmuş kısa yoldan çalışan programlarda durum öyle değildir. Bir kısa yolu sağ tıklayıp özellikler diye kontrol ederseniz orada Başlama Yeri parametresi ne ise program o klasöre ChDir ile geçmiş gibi çalışır. Kurulum hazırlayanların en sık düştüğü hata da bu özelliğe gerektiği değeri vermemek. Böyle olunca da kısayoldan çalışan programlar (özellikle veri dosyalarına sahip uygulamalar) çok tuhaf hatalara düşebilmektedirler.fatihtolgaata yazdı:...Windows zaten bir uygulamayı çalıştırdığında ilk parametre olarak bulunduğu klasörü yollar....
Kod: Tümünü seç
ChDir(ExtractFilePath(Application.ExeName));
....
Hocam dikkatinden de hiç bir şey kaçmıyormrmarman yazdı:...MkDir tarafına takıldım ben de. Çalışmakta olan programın dizini yok ise oluştur şeklinde bir yapı görüyorum. Yanlış mı anlamlandırıyorum bilemedim ama zaten program çalışıyorsa dizin de vardır...
. Her ne kadar if IOResult <> 0 then MkDir(PATH); satırı bir sorun çıkarmasa da aynen dediğiniz gibi mantık olarak bu satıra ihtiyaç yoktur. Şuan çok emin olduğum halde, sadece gidişat yolumu belirtmek için bir deneme yaptım. Masaüstümde bir exe dosyası mevcut :sabanakman yazdı:O program için oluşturulmuş kısa yoldan çalışan programlarda durum öyle değildir. Bir kısa yolu sağ tıklayıp özellikler diye kontrol ederseniz orada Başlama Yeri parametresi ne ise program o klasöre ChDir ile geçmiş gibi çalışır.
Eğer demek istediğiniz ikide bir bu kodları tekrar tekrar yazmamaksa, katılıyorum. Her yerden ulaşılabilecek bir değişkene bu değerleri atamak daha hesaplı olur. Hatta class helperlar ile Application sınıfına ExePath gibi bir özellik eklemek daha akıllıca olacaktır.mrmarman yazdı:- Sebep her ne olursa olsun, program içerisinden basit bir ExtractFilePath(Application.ExeName) veya ExtractFilePath(ParamStr(0)) eklemesini, her defasında loadfromfile vb. cümlelerine eklememek için bir çaba olarak görüyoruz.
Çok ilginçtir benimde anlayamadığım bir durum var,fatihtolgaata yazdı: Şuan çok emin olduğum halde, sadece gidişat yolumu belirtmek için bir deneme yaptım. Masaüstümde bir exe dosyası mevcut :
"C:\Documents and Settings\fatih\Desktop\New Folder (2)"
Program Formun OnCreate olayında ParamStr(0) ve Application.ExeName değerlerini ShowMessage ile gösteriyor. Ardından bu exe'nin bir kısayolunu yaptım. Ve bunu bir başka yere kopyaladım. Kısayolun "Başlama Yeri"ni sildim. Sonuç değişmedi. "C:" yaptım sonuç değişmedi. Bu exe için bir install dosyası hazırladım, kurdum ve "Başlama Yeri"ni boş yaptım. Bilin bakalım ne oldu? Sonuç değişmedi!!
Kısayoldan da çalışsa çalışmasa da ilk parametre(yani sıfırıncı) daima exe'nin yolunu verir.
Evet haklısınız. Bu tarz işlemlerde eğer aktüel yol verilmezse, Windows'daki "Enviroment Variables" değerlerine göre dosya aranır. Bulunamadığında da hatayı basar. Sistem özelliklerinde gelişmiş kısmında mevcut ama Türkçesi nasıldır bilemiyorum. Aynı şeyi konsoldan PATH yazarak da çıkartabilirsiniz. Bu yüzden ya programımızn yolunu bu PATH kısmına ekleyecez ki tavsiye edilmez, ya da Exe'nin yolunu kod içinde kendimiz belirteceğiz.vkamadan yazdı:LoadFromFile(ExtractFilePath(Application.ExeName)+'denene.sql') diyerek çağırıyorum dosyayı yüklüyor, aynı durum WinEXec ile farklı exeler çalıştıracağımız zamanda oluyor çıplak kullanınca bazen çalıştırmıyor ama Path le kullanınca hiç sorun çıkartmıyor.
