Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


zion
Code:
  1. procedure TForm1.Button1Click(Sender: TObject); 
  3. var 
  4.   sr: TSearchRec; 
  5.   FileAttrs: Integer; 
  6. begin 
  7.   StringGrid1.RowCount := 1; 
  8.   if CheckBox1.Checked then 
  9.     FileAttrs := faReadOnly 
  10.   else 
  11.     FileAttrs := 0; 
  12.   if CheckBox2.Checked then 
  13.     FileAttrs := FileAttrs + faHidden; 
  14.   if CheckBox3.Checked then 
  15.     FileAttrs := FileAttrs + faSysFile; 
  16.   if CheckBox4.Checked then 
  17.     FileAttrs := FileAttrs + faVolumeID; 
  18.   if CheckBox5.Checked then 
  20.     FileAttrs := FileAttrs + faDirectory; 
  21.   if CheckBox6.Checked then 
  22.     FileAttrs := FileAttrs + faArchive; 
  23.   if CheckBox7.Checked then 
  25.     FileAttrs := FileAttrs + faAnyFile; 
  27.   with StringGrid1 do 
  28.   begin 
  29.     RowCount := 0; 
  31.     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then 
  33.     begin 
  34.       repeat 
  35.         if (sr.Attr and FileAttrs) = sr.Attr then 
  36.         begin 
  37.         RowCount := RowCount + 1; 
  38.         Cells[1,RowCount-1] := sr.Name; 
  39.         Cells[2,RowCount-1] := IntToStr(sr.Size); 
  40.         end; 
  41.       until FindNext(sr) <> 0; 
  42.       FindClose(sr); 
  43.     end; 
  44.   end; 
  45. end;


Et hop, encore un petit coup de test :banzai:
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?