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

Soyez le premier à donner votre avis sur cette source.

Vue 9 538 fois - Téléchargée 1 338 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 13
2 mai 2005 à 19:59
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.