[msn7]autoriser les transferts de fichier de toutes les extensions

Soyez le premier à donner votre avis sur cette source.

Vue 9 055 fois - Téléchargée 1 176 fois

Description

Permet d'autoriser toutes les extensions dans les transferts de fichiers de msn 7 en les déclarant comme fichier a faible risque dans la bdr, et permets de les supprimer.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
Quelques petites optimisations ;)

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 :

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.