[MSN7]AUTORISER LES TRANSFERTS DE FICHIER DE TOUTES LES EXTENSIONS
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
2 mai 2005 à 19:59
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 2 mai 2005 à 19:59
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 2 mai 2005 à 19:59
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/31150-msn7-autoriser-les-transferts-de-fichier-de-toutes-les-extensions
https://codes-sources.commentcamarche.net/source/31150-msn7-autoriser-les-transferts-de-fichier-de-toutes-les-extensions
2 mai 2005 à 19:59
1 : La variable 'MaMessageBox' ne sert à rien... il suffit de tester si le bouton NON est enfoncé et là on quitte avec exit :
=========================================
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
if MessageBoxA(0,Pchar('Attention, la clef suivante vas être modifiée:'+#13+'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Associations'+#13+'Cette manipulation affecteras aussi les autres produits, tels que internet explorer, voulez vous continuer ?'),Pchar('Demande de confirmation.'),MB_YESNO + MB_ICONINFORMATION + 0) = 7 then exit;
str := '';
for i := 0 to lstext.Items.Count-1 do
str := str + ';' + lstext.Items.Strings[i];
str := copy(str,2,length(str)-1); // pour enlever les ; en trop
RegistreEcrireValeur ('Software\Microsoft\Windows\CurrentVersion\Policies\Associations','LowRiskFileTypes',str);
MessageBoxA(0,Pchar('L''opération a réussi, veuillez redémarrer msn messenger pour que les modifications prennent effet.'),Pchar('Ecriture réussie.'),0 + MB_ICONINFORMATION + 0);
end;
=========================================
2 : Pourquoi écrire deux fois le même code dans des procédures différentes ? Comme ça c'est plus court :
=========================================
procedure TForm1.FormActivate(Sender: TObject);
begin
BtnrefreshClick(nil);
end;
=========================================
=========================================
3 : Plutôt que de mettre :