IMPORT/BACK-UP DE FICHIERS ET DOSSIERS UTILS
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
20 janv. 2005 à 20:43
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 21 janv. 2005 à 18:44
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 21 janv. 2005 à 18:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/28959-import-back-up-de-fichiers-et-dossiers-utils
https://codes-sources.commentcamarche.net/source/28959-import-back-up-de-fichiers-et-dossiers-utils
21 janv. 2005 à 18:44
Et bien moi je dis "Vive jmp77!". Pourqoi se faire un download de 300Ko au lieu de 10Ko?
Aller, faut commencer à s' appliquer les gars, ça fait 15 jours que ça se relâche ...
N' oubliez pas que certains membres n' ont pas l' ADSL (heuh, je ne parle pas de moi mais je pense aux autres).
Bon, il semblerait que tu es nouveau venu.
Tout le monde est passé par là donc essaye de faire de t'en souvenir et c' est pas mal pour un début.
21 janv. 2005 à 13:13
Voilà @+
21 janv. 2005 à 04:02
merci
20 janv. 2005 à 22:17
1) pourquoi mettre "code juste bon pour mon ordi" au lieu d'essayer de choper proprement le chemin ?
exemple, au lieu de :
outlookin:= 'C:\Documents and Settings\Néo\Local Settings\Application Data\Identities\{B63ADADB-3872-426F-A5DF-D95DAB55F67E}\Microsoft';
tu chch la clé : HKEY_CURRENT_USER\Identities - Default User ID
puis tu fais :
outlookin:= 'C:\Documents and Settings\'+UserName+'\Local Settings\Application Data\Identities\'+CleID+'\Microsoft';
2) comme le dit ni69, il existe la propriété "autocheck" donc dans la Forme il a raison, et moi pour le Fond je te conseille de faire plutot dans ce style avec des booleans :
MonBooleen := not MonBoolean;
ce qui revient à la meme chose que :
if MonBooleen := true then MonBooleen:= false else MonBooleen := true;
quand meme mieux non ?
3) "innexistant" ne prends qu'un seul N "inexistant"
4) showmessage('fichier innexistant dans : '+outlookin); peut etre remplacé par :
showmessagefmt('fichier innexistant dans : %s',[outlookin]); tres utiles quand il y a plusieurs parametres (ici un seul > outlookin)
5) a ta place je creerais tes variables contenants les chemins dès la création. a toi de voir
voila pour moi =) bon travail a vue d'oeil, je testerais la source compilée bientot et pourrais commenter le dfm :p
20 janv. 2005 à 20:43
- Utilise plutôt Close à la place de Application.Terminate... c'est moins "violent" ;)
- Au lieu de faire :
procedure TFMain.Ecraserlefichier1Click(Sender: TObject);
begin
if ecraserlefichier1.Checked = true then
ecraserlefichier1.Checked := false
else
ecraserlefichier1.Checked := true;
end;
Mets plutôt la valeur True à AutoCheck de ton MenuItem
(valable aussi pour Demandedeconfirmation1)