Data Yolunu Kullanıcı Belirlesin..

[akrep_57]

Öncelikle Herkese Merhaba....

Benim istediğim şu Program kurulduktan sonra verilerin saklanacağı yolun belirlenmesi kullanıcı programı kurduktan sonra Edit içerisine Ör:"D:\PROGRAM\DATA\" yazacak Oluştur butonuna tıkladığında ise bu klasör içine datalar oluşturulacak ve programda veriler bu klasör içine kaydedilecek.... bununla ilgili olarak yardımcı olursanız sevinirim......

[mrmarman]

Veritabanı yolunu projene dahil bir INI dosyasından okutursun. Kullanıcı veritabanı yolu belirlediğinde bu INI dosyasına yazarsın. INI dosyası henüz mevcut değilse yeni kurulmuş bir yazılım olduğu anlaşılır ve varsayılan bir tane belirleyip yazabilirsin.

[ikutluay]

Öncelikle Herkese Merhaba....

Benim istediğim şu Program kurulduktan sonra verilerin saklanacağı yolun belirlenmesi kullanıcı programı kurduktan sonra Edit içerisine Ör:"D:\PROGRAM\DATA" yazacak Oluştur butonuna tıkladığında ise bu klasör içine datalar oluşturulacak ve programda veriler bu klasör içine kaydedilecek.... bununla ilgili olarak yardımcı olursanız sevinirim......

Mrmarman mantığı anlatmış. kodlama kısmı sana ait. ayrıca kod içinde vt oluşturma ile ilgili örneklerde forumda var mrmarmana ait.

soru sorarken hangi veritbanını kullanacaksan yazmadığın için böyle genel konuşuyoruz

[ALUCARD]

firebird için kendi yaptığım bi örnek

vtyi ben hazır atıyorum kodla oluşturmuyorym

Kod: Tümünü seç

PROCEDURE TSETUP.FormCreate(Sender: TObject);
VAR
  Reg1: TRegistry;
  A: INTEGER;
BEGIN

  Reg1 := TRegistry.Create;
  Reg1.RootKey := HKEY_LOCAL_MACHINE;
  IF Reg1.KeyExists('Software\EminYazilim\MUHTAR\DATA') = False THEN
    BEGIN
      Reg1.CreateKey('Software\EminYazilim\MUHTAR\DATA');
      Reg1.OpenKey('Software\EminYazilim\MUHTAR\DATA', False);
      REG1.WriteString('SERVER', 'SERVER ADI');
      REG1.WriteString('SERVERADI', 'ANA MAKINE ADI');
      REG1.WriteString('PROTOCOL', 'PROTOKOL');
      REG1.WriteString('DATABASEADI', 'DATABASE ADI');
      Reg1.CloseKey;
    END
  ELSE
    BEGIN
      Reg1.CreateKey('Software\EminYazilim\MUHTAR\DATA');
      Reg1.OpenKey('Software\EminYazilim\MUHTAR\DATA', False);
      EDIT1.TEXT := REG1.ReadString('SERVERADI');
      COMBOBOX1.Text := REG1.ReadString('SERVER');
      EDIT2.Text := REG1.ReadString('DATABASEADI');
      COMBOBOX2.TEXT := REG1.ReadString('PROTOCOL');
      Reg1.CloseKey;
    END
END;

PROCEDURE TSETUP.BitBtn1Click(Sender: TObject);
VAR
  Reg2: TRegistry;
BEGIN
  ProgressBar1.Min := 0;
  Reg2 := TRegistry.Create;
  Reg2.RootKey := HKEY_LOCAL_MACHINE;
  Reg2.OpenKey('Software\EminYazilim\MUHTAR\DATA', True);
  ProgressBar1.StepBy(20);
  REG2.WriteString('SERVER',    combobox1.Text )  ;
  ProgressBar1.StepBy(20);
  REG2.WriteString('SERVERADI',EDIT1.Text);
  ProgressBar1.StepBy(20);
  REG2.WriteString('PROTOCOL', ComboBox2.Text);
  ProgressBar1.StepBy(20);
  REG2.WriteString('DATABASEADI',EDIT2.Text );
  ProgressBar1.StepBy(20);
 IF APPLICATION.MessageBox('İŞLEM TAMAMLANDI  ÇIKMAK İSTİYORMUSUNUZ', 'TAMAM', MB_YESNO + 64)=IDYES THEN
 BEGIN
CLOSE;
END;

  Reg2.CloseKey;
  Reg2.Free;

END;

PROCEDURE TSETUP.BitBtn2Click(Sender: TObject);
BEGIN
  close;
END;

PROCEDURE TSETUP.ComboBox1Change(Sender: TObject);
var
reg:TRegistry;
BEGIN
reg:=TRegistry.Create;
reg.RootKey :=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\ControlSet001\Control\ComputerName\ComputerName',true);

  CASE COMBOBOX1.ItemIndex OF
    0:
      BEGIN
      EDIT1.Enabled:=FALSE;
      EDIT1.Text:=reg.ReadString('ComputerName');
      COMBOBOX2.Enabled:=FALSE;
      COMBOBOX2.Text:='';
      END;
      1:
      BEGIN
      
      EDIT1.Enabled:=True;
      COMBOBOX2.Enabled:=TRUE;

      END;
  END;
    END;
procedure TSETUP.Edit2DblClick(Sender: TObject);
begin
DataAc.Execute;
end;

procedure TSETUP.DataAcCanClose(Sender: TObject; var CanClose: Boolean);
begin
EDIT2.Text:=DataAc.FileName;
end;

procedure TSETUP.Timer1Timer(Sender: TObject);
begin
  STATUSBAR1.Panels[2].Text:=DATETOSTR(DATE) + '  '+TIMETOSTR(TIME);
end;

END.

[akrep_57]

Öncelikle vermiş olduğunuz cevaplar için teşekkür ederim.. Benim yapmak istediğim Data Yolulu Kullanıcı Belirleyecek ve Datalar Program kurulduktan sonra data yolunu belirttikten sonra oluştur dediğinde datalar o bölüme oluşturulmaya başlayacak... VT olarak ise Paradox Kullanıyorum.. bu olayda yeni sayılırım başımda bir öğreticim yok sizler sayesinde ve kendi çabalarımla birşeyler öğreniyorum.... umarım yardımcı olursunuz..

[volkancesur]

S.a InnoSetup İle ayarları olması lazım Kullandığın derleyici ne bilmiyorum ama innosetup'ı tavsiye ederim