Yedekleme Hatası

[salihads]

Merhabalar,

Deplhide hazırlanmış ve kaynak kodlarını 2013 de satın almış olduğum bi müşteri takip programı var. Bu programda veritabanı yedekleme olayında otomatik yedekleme olayı var. Ancak normal yedeklemede sorunsuz yedekleme yaparken otomatik yedeklemede programı kapat butonuna basınca yedekleme yapması gerekirken program kapanmıyor. Arka planda çalışıyor ama yedeklemede yapmıyor. Kodlar;

"procedure TFrmAnaMenu.cxButton8Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
if (FrmYedekleme.YedekAyar['OtoYdk']=True) then begin
if not DirectoryExists(FrmYedekleme.cxtextedit2.Text) then//klasör yoksa olu tur
if not ForceDirectories(FrmYedekleme.cxtextedit2.Text) then

fillChar( OpStruc, Sizeof(OpStruc), 0 );
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, FrmYedekleme.Label4.Caption );
StrPCopy( tobuf, FrmYedekleme.cxTextEdit2.Text);
With OpStruc DO Begin
Wnd:= Handle;
wFunc:=FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
ShFileOperation( OpStruc );

FrmYedekleme.YedekAyar.Edit;
FrmYedekleme.YedekAyar['Tarih']:=datetostr(date);
FrmYedekleme.YedekAyar.Post;

application.Terminate;
end;
end else begin
FrmYedekleme.ShowModal;
application.Terminate;
end;
//panel1.Visible:=true;
end;" bu şekilde acaba bu sorunu nasıl çözebilirim. Şimdiiden teşekkürler.

[sabanakman]

Kodların yapısı bozacak bir kazaya kurban gitmiş olabilir.

Kod: Tümünü seç

if not ForceDirectories(FrmYedekleme.cxtextedit2.Text) then
;//<-- gerekli olabilir
fillChar( OpStruc, Sizeof(OpStruc), 0 );

[salihads]

Bana bu konuda ücretli destek birisi varsa Ö.M.'den veya salihads skype adresinden bana ulaşabilirmi

[thelvaci]

Biraz daha detay verebilirseniz emin burada yardımcı olabilecek arkadaşlarımız olacaktır. Programı Compile edebiliyor musunuz, hata alıyor iseniz nerede alıyorsunuz; uygulama donuyor gibi görünüyor ise en son hangi kod satırına kadar çalıştırabiliyorsunuz ? Biraz daha detay vermelisiniz...