selam
ilk önce iyi çalışmalar diyerek sorumu soracağım
adım mehmet türecan kendi çapımda delphide program yazıyorum
sizden öğrenmek istediğim; örneğin delphide yazdığım bir programı D sürücüsünde program klasörüne kaydettim daha sonra bu programı buradan kesip herhangi bir yere yapıştırdığımda bu program çalışmıyo yani dolayısıyla kullandığı dosyaları D sürücüsündeki program klasöründe bulmıyo bu sorunu nasıl halledebilirim bana yardımcı olursanız sevinirim
delphi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- mehmet_turecan_cakmak
- Üye
- Mesajlar: 132
- Kayıt: 02 Tem 2003 01:08
- Konum: Afyon
- İletişim:
Merhaba,
dosya path'lerini direk c:\proje\aa.txt veya d:\proje\bb.rtf gibi vermek yerine exe dosyaya göre path verin.
Mesela exe dosya ile aynı klasördeki bir aa.txt'yi kullanıyorsan : ExtractFilePath(Application.ExeName)+'aa.txt'
exe dosyanın bulunduğu klasörden bir alt data klasöründe bulunan aa.db'yi kullanıyorsan : ExtractFilePath(Application.ExeName)+'Data\aa.db'
gibi. Kolay gelsin.
dosya path'lerini direk c:\proje\aa.txt veya d:\proje\bb.rtf gibi vermek yerine exe dosyaya göre path verin.
Mesela exe dosya ile aynı klasördeki bir aa.txt'yi kullanıyorsan : ExtractFilePath(Application.ExeName)+'aa.txt'
exe dosyanın bulunduğu klasörden bir alt data klasöründe bulunan aa.db'yi kullanıyorsan : ExtractFilePath(Application.ExeName)+'Data\aa.db'
gibi. Kolay gelsin.
- mehmet_turecan_cakmak
- Üye
- Mesajlar: 132
- Kayıt: 02 Tem 2003 01:08
- Konum: Afyon
- İletişim:
Tablo ve Query leri toplu olarak bulunduran bir DataModule formu kullanıyorsan OnCreate ında aşağıdaki şekilde yazabilirsin. yada kullandığın formun OnShow unda yada OnCreate ında..
Kod: Tümünü seç
procedure TDM.DataModuleCreate(Sender: TObject);
var
AppDir: string;
begin
AppDir := ExtractFilePath(Application.ExeName);
SetCurrentDir(AppDir);
if Database1.Connected then
Database1.Close;
Database1.Directory := AppDir + 'Data\';
Database1.Connected := True;
Tablo1.Active := True;
...
end;