delphi4arab منتديات دلفي للعرب

السلام عليكم و رحمة الله و بركاته

في برنامجي عندما أحفظ ملف قاعدة البيانات في مجلد معين تظهر لي نافذة الحفظ boite de dialogue
مع اني برمجته كي يحفظ مباشرة تحت اسم ddmmyy يعني كل يوم يأخذ اسم مثلا اليوم 200413
فما هي كيفية التخلص من ظهور نافذة الحفظ و جزاكم الله كل الخير.

ماهو الاجراء (الكود) الذي استخدمته ؟

كود :
procedure Tface.BitBtn7Click(Sender: TObject);
var
  NewFileName: string;
  Msg, str, strold: string;
  NewFile: TFileStream;
  OldFile: TFileStream;

begin
    Msg := Format('Sauvegarder la base de données %s?', [NewFileName]);
    if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then

    begin
      ShortDateFormat := 'ddmmyy';
      str := datetostr(date) + '.accdb';
      strold := 'C:\GesCom\gc.accdb';
      if SaveDialog1.Execute then

      begin
        NewFileName := ExtractFilePath(SaveDialog1.FileName) + ExtractFileName
          (str);

        OldFile := TFileStream.Create(strold, fmShareDenyNone);

        try
          NewFile := TFileStream.Create(NewFileName, fmCreate);

          try
            NewFile.CopyFrom(OldFile, OldFile.Size);

          finally
            FreeAndNil(NewFile);
          end;
        finally
          FreeAndNil(OldFile);
        end;
        // end;
      end;
    end;
end;

فقط قم بازالة : if SaveDialog1.Execute then

PHP كود :
var

NewFileName: string;
Msg, str, strold: string;
NewFile: TFileStream;
OldFile: TFileStream;

begin
Msg := Format('Sauvegarder la base de données %s?', [NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then

begin
ShortDateFormat := 'ddmmyy';
str := datetostr(date) + '.accdb';
strold := 'C:\GesCom\gc.accdb';
//if SaveDialog1.Execute then


NewFileName := ExtractFilePath('C:\ddmmyy') + ExtractFileName
(str);

OldFile := TFileStream.Create(strold, fmShareDenyNone);

try
NewFile := TFileStream.Create(NewFileName, fmCreate);

try
NewFile.CopyFrom(OldFile, OldFile.Size);

finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
 end;
 end; 

cosinuszero

SMP3

cosinuszero

SMP3