liza06_1
Messages postés25Date d'inscriptionmercredi 8 février 2006StatutMembreDernière intervention24 juin 2006
-
10 mai 2006 à 14:19
neosystemsteam
Messages postés23Date d'inscriptionvendredi 7 octobre 2005StatutMembreDernière intervention28 juillet 2006
-
13 mai 2006 à 22:16
salut, dans le menu de mon application il y'a le module sauvegarde et restauration voila le code en delphi5:
<HR>
procedure TMain.Sauvegarde1Click(Sender: TObject);
var
instruction,
fichier : string;
rep : string;
begin
try
if Application.MessageBox(
'Insérer une disquette dans le lecteur A:'+#13+#13+
'et appuyer sur OK pour continuer',
'Sauvegarde des données',
MB_ICONINFORMATION + MB_OKCANCEL + MB_DEFBUTTON1) = IDOK then
begin
instruction := 'a a:save *.db';
executefile('arj', instruction,'',1);
end;
finally
end;
end;
procedure TMain.Restauration1Click(Sender: TObject);
var
instruction : string;
begin
if Application.MessageBox(
'Attention, les données actuelles seront ecraser.'+#13+#13+
'Appuyer sur OK pour continuer',
'Restauration des données',
MB_ICONINFORMATION + MB_OKCANCEL + MB_DEFBUTTON1) = IDOK then
begin
instruction := 'e a:save -jyo';
executefile('arj', instruction,'', 1);
end;
end;
<HR>
et je voudrais avoir son équivalent si c'est possible en D7 en utilisant le winrar au lieu de ARJ et merci d'avance.
A voir également:
Aucun jeu de sauvegarde n'a été sélectionné pour être restauré
Winrar n'est pas un bon choix (Bizarre que tu ne saches pas ca pour quelqu'un qui est en 5ième année d'ingénerie informatique ;) ) : tout le monde ne l'a pas. Tu devrais zipper ton programme. Tu peux utiliser les composants fournient avec Delphi ou Abbrevia.
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?