1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
procedure TFormSauvegarde.FormActivate(Sender: TObject);
var
sr : TSearchRec;
trouve : integer;
dest : string;
begin
table1.refresh;
DeleteFile('c:\tipsrepairsaved\tips.db');
DeleteFile('c:\tipsrepairsaved\tips.MB');
DeleteFile('c:\tipsrepairsaved\tips.PX');
DeleteFile('c:\tipsrepairsaved\ep.db');
DeleteFile('c:\tipsrepairsaved\ep.MB');
DeleteFile('c:\tipsrepairsaved');
CreateDir('c:\tipsrepairsaved');
dest:='c:\tipsrepairsaved\';
trouve := FindFirst('c:\voltasoft\tipsrepair\alias\*.*', faAnyFile, sr);
while trouve = 0 do
begin
CopyFile(pchar('c:\voltasoft\tipsrepair\alias\'+sr.Name), pchar(dest+ExtractFileName(sr.Name)),false);
trouve := FindNext(sr);
end;
FindClose(sr);
if FileExists('c:\tipsrepairsaved\ep.MB')then
MessageDlg('Enregistrement bien effectué', mtWarning, [mbOk], 0)
else
MessageDlg('ATTENTION enregistrement NON effectué vérifier le périphérique', mtWarning, [mbOk], 0);
end; |
Partager