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

[cosinuszero]

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

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

[SMP3]

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

[cosinuszero]

كود :

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;

[SMP3]

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