salut, dans le menu de mon application il y'a le module sauvegarde et restauration voila le code en delphi5:
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;
et je voudrais avoir son équivalent si c'est possible en D7 en utilisant le winrar au lieu de ARJ et merci d'avance.