كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟

كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟ (/showthread.php?tid=5151)

كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟ - cosinuszero - 20-04-2013

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

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

كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟ - SMP3 - 20-04-2013

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

كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟ - cosinuszero - 20-04-2013

كود :
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;

كيف أحفظ ملف دون اظهار نافذة الحفظ boite de dialogue؟ - SMP3 - 20-04-2013

فقط قم بازالة : 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; 