Kod: Tümünü seç
procedure TForm7.Timer1Timer(Sender: TObject);
var
DataDir, BackupDir : String;
Fo : TSHFileOpStruct;
Buffer : array[0..4096] of char;
begin
DataDir:=ExtractFileDir(ParamStr(0));
edit1.Text:=datetostr(date);
edit2.Text:=DataDir+'\yedekkayıtlar';
if not directoryexists(edit2.Text) then
begin
mkdir(edit2.Text);
begin
inherited;
DataDir:=ExtractFileDir(ParamStr(0));
BackupDir:=DataDir+'\Yedek';
DataDir:=DataDir+'\takipveri\*.*';
if not DirectoryExists(BackupDir) then
begin
if not ForceDirectories(BackupDir) then
begin
ShowMessage(BackupDir+' klasörü oluşturulamadı, yedek alınamadı!');
Abort;
end;
end;
FillChar(Buffer, sizeof(Buffer), #0);
StrECopy(@Buffer, PChar(DataDir));
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(form7.Edit2.text);
Fo.fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
FOF_SIMPLEPROGRESS or FOF_NOCONFIRMATION;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('DİKKAT: Yedekleme işlemi sağlıklı şekilde yapılamadı!')
else
end;
end
else
begin
begin
inherited;
DataDir:=ExtractFileDir(ParamStr(0));
BackupDir:=DataDir+'\Yedek';
DataDir:=DataDir+'\takipveri\*.*';
if not DirectoryExists(BackupDir) then
begin
if not ForceDirectories(BackupDir) then
begin
ShowMessage(BackupDir+' klasörü oluşturulamadı, yedek alınamadı!');
Abort;
end;
end;
FillChar(Buffer, sizeof(Buffer), #0);
StrECopy(@Buffer, PChar(DataDir));
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(form7.Edit2.text);
Fo.fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
FOF_SIMPLEPROGRESS or FOF_NOCONFIRMATION;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('DİKKAT: Yedekleme işlemi sağlıklı şekilde yapılamadı!')
else
end;
end;
end;Veri tabanı olarak firebird kullanıyorum..
Not: kodunuzu [ code ] [ /code ] tag ları içine aldım fakat bloklu şekilde yazmış olsaydınız kod daha okunaklı olurdu. rsimsek
