Sujet Précédent Sujet Suivant

Choisir le dosier de sauvegarde

cocowz Messages postés 89 Date d'inscription lundi 28 novembre 2005 Statut Membre Dernière intervention 25 février 2007 - 20 févr. 2007 à 21:38
cocowz Messages postés 89 Date d'inscription lundi 28 novembre 2005 Statut Membre Dernière intervention 25 février 2007 - 21 févr. 2007 à 15:36

Bonjour,
J'ai telecharge un fichier mxWebUpdate sur (http://www.maxcomponents.net/download.html#MXWEBUPDATE)
J'ai compris le systeme mais la chose que je veux faire c'est que quand il telechage la mise a jour, il doit la mettre dans le meme dossier que l'encien .exe, car la il ne le met pas.

Voici le code,
Pouvez vous me dire si la on peut choisir le dossier de telechagement ??
Merci

------------------------------
Procedure Tform_MainWindow.mxWebUpdateNoUpdateFound( Sender: TObject);
Begin
MessageDlg('There is no update available!', mtError, [ mbOK ], 0);
End;

Procedure Tform_MainWindow.mxWebUpdateUpdateAvailable( Sender: TObject; ActualVersion, NewVersion: String; Var CanUpdate: Boolean);
Begin CanUpdate :MessageDlg( Format('You are using version %s, but version %s is available to ' + #13 + #10 + 'download at the author''s website.' + #13 + #10 + 'Do you want to update your application now?', [ ActualVersion, NewVersion ]), mtWarning, [ mbYes, mbNo ], 0) mrYes;
End;

Procedure Tform_MainWindow.mxWebUpdateGetClientFileName( Sender: TObject; Var FileName: String);
Begin
MessageDlg( Format('Update will be downloaded to %s', [ FileName ]), mtInformation, [ mbOK ], 0);
// *** You can modify the client side file name here ***
End;

Procedure Tform_MainWindow.mxWebUpdateClientFileExists( Sender: TObject; Var FileName: String; Var Overwrite: Boolean);
Begin Overwrite :MessageDlg( Format('File %s already exists. Do you want to overwrite it?', [ FileName ]), mtConfirmation, [ mbYes, mbNo ], 0) mrYes;
End;

Procedure Tform_MainWindow.mxWebUpdateAfterDownload( Sender: TObject; FileName: String);
Begin
MessageDlg('Update has been downloaded.', mtInformation, [ mbOK ], 0);
End;

Procedure Tform_MainWindow.mxWebUpdateBeforeDownload( Sender: TObject; FileName: String);
Begin
lbl_File.Caption := Format('Downloading file %s', [ ExtractFileName( FileName )]);
End;

Procedure Tform_MainWindow.mxWebUpdateBeforeShowInfo( Sender: TObject; Var ShowInfo, CheckForUpdate: Boolean);
Begin ShowInfo :MessageDlg('Would you like to read the information file?', mtConfirmation, [ mbYes, mbNo ], 0) mrYes;
End;

Procedure Tform_MainWindow.mxWebUpdateBeforeGetInfo( Sender: TObject);
Begin
form_message.panel_message.Caption := 'Checking for an update';
form_message.Show;
form_message.Refresh;
End;

Procedure Tform_MainWindow.mxWebUpdateAfterShowInfo( Sender: TObject; CheckForUpdate: Boolean);
Begin
// ** You can save CheckForUpdate checkbox's value for future usage here ***
End;

A voir également:

Choisir le dosier de sauvegarde
Le jeu de sauvegarde contient la sauvegarde d'une base de données qui n'est pas la base de données - Forum C# / .NET
Sauvegarde locale ✓ - Forum Javascript / DHTML
Aucun jeu de sauvegarde n'a été sélectionné pour être restauré - Forum SQL
Comment faire une sauvegarde d'un état de jeu et le charger ✓ - Forum VB.NET
Choisir un nombre ✓ - Forum PHP

1 réponse

Réponse 1 / 1

cocowz Messages postés 89 Date d'inscription lundi 28 novembre 2005 Statut Membre Dernière intervention 25 février 2007
21 févr. 2007 à 15:36

Personne ne peut dire ???

Discussions similaires

Comment réaliser une sauvegarde de base MS SQL via un raccourci sur le bureau

Sauvegarde automatique de ma base de données Oracle

restaurer une base à partir d'un fichier bak

sauvegarde et backup

sauvegarde de la base [VB6]

Votre réponse

Discussions similaires