ExtractFilePath(Application.ExeName) Sorunsalı

[gaus]

Kolay gelsin abilerim ve hocalarım
Şimdi bilgi eksikliğimden olduğunu düşündüğüm bir sorunum var
araştırıyorumda daha önce de açılmışsa göremedim affola;
Sorum şu ben şimdi yaptığım programda exe almak yerine dll alıyorum ve ExtractFilePath(Application.ExeName) dediğim zaman dll'nn bulunduğu dizini alamıyorum kodlarım da şöyle;

Kod: Tümünü seç

DosyaAdi :=ExtractFilePath(Application.ExeName) + 'Ayar.TXT';
AssignFile(Dosya, DosyaAdi);
  {$I-}
  Reset(Dosya);
  satirno:=0;
  if IOResult = 0 then
   begin
  while not EOF(Dosya) do
    begin
     ReadLn(Dosya, Satiroku);
       satirno:=satirNo+1;

deneme.dll olarak çıkardığım projenin klasöründe ki ayar.text'e nasıl ulaşağım;

[SimaWB]

DLL uygulamasında Application.ExeName çalışmaz. Onun yerine GetModuleFileName kullanmalısınız.
Application.ExeName yerine aşağıdaki fonksiyonu kullanabilirsiniz:

Kod: Tümünü seç

function DLLName: string;
var
  aName: array[0..MAX_PATH] of Char;
begin
  FillChar(aName, SizeOf(aName), #0);
  GetModuleFileName(HInstance, aName, MAX_PATH);
  Result := aName;
end;

[gaus]

çok teşekkür ederim
yukarıda ki verdiğim kod bloğumda
bu fonskiyonu nasıl kullanacağımı biraz açabilir misiniz?

[unicorn64]

verilen kodu alıp kodunuza ekleyin, herhangi bir yerde fonksiyonu çağırın, geri dönen değer nasıl kullanacağınız hakkında fikir verir zaten..

[gaus]

Tamamdır çok teşekkür ederim