[MSN7]AUTORISER LES TRANSFERTS DE FICHIER DE TOUTES LES EXTENSIONS

Commentaire de ni69 le 02/05/2005 19:59:39

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 :
--
procedure .....
var
Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
   [...]
  finally
   Reg.CloseKey;
   Reg.Free;
  end;
end;
--
Mets plutôt ça :
--
procedure .....
begin
with TRegistry.Create do
  try
   [...]
  finally
   CloseKey;
   Free;
  end;
end;
--
===========================================

Voilà !
@+
Nico