Database klasörünü silme

[brs]

İyi günler,

Üzerinde çalıştığım programda belirli tarihler arası lisans kontrolü yapıyorum, 30, 20, 10, 5 ve son gün gibi kullanıcı süre bittikten sonra lisanslama yapmaz ise mevcut database silinecek, aşağıdaki kod ile normal bir klasörü siliyorum, fakat şu noktada takıldım açılışta database bazı kontroller yapılıyor bu kontrollerden dolayı database aktif olduğu için silemiyorum databaseyi devre dışı bırak nasıl silebilirim acaba...

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  DeleteFile('C:\DB\Database.db');
end;

[mrmarman]

kontrolde ne yaptığını yazmamışsın. Database'e neyle bağlanıyorsun ? Onun connection'unu close ettiğin zaman serbest kalır zaten. Bu ADO için AdoConnection mesela... Bunu araştır.

[brs]

Teşekkür ederim üstad,

Bu şekilde düzenledim...

Kod: Tümünü seç

procedure TForm1.Lisans(Sender: TObject); // Lisans
var
  GunSay: Integer;
begin
  try
    GunSay := Trunc(StrToDateTime('17.05.2015')) - Trunc(Date);
    begin
      if (GunSay <= 0) And (FDConnection.Connected) then
      begin
        FDConnection.Close;
        DeleteFile('C:\DB\Database.db');
      end
      else
      begin
        if (GunSay <= 1) then
        begin
          Caption := 'Bugün Son Gün';
        end
        else
        begin

[mrmarman]

Eline sağlık...