دخول

**kachwahed** · 20-08-2010, 03:50 PM

وعليكم السلام ورحمة الله
الخوارزمية التي نقلتها من هنا:

كود :
http://files.codes-sources.com/fichier.aspx?id=21894&f=WinAmp+Controler\WinAmpControlerMain.pas

صحيحة. فقط ينبغي عليك معرفة استخدامها:

كود :
procedure TForm1.Rechercher(Disq, Sh: string);
var
  Sr: TSearchRec;
begin
  //Recherche les répertoires
  if FindFirst(Disq + '*.*', faAnyFile, Sr) = 0 then //Commence la recherche
  begin
    if (Sr.Attr and faDirectory > 0) and (Sr.Name[1] <> '.') then //Si on a trouve un dossier
      Rechercher(Disq + Sr.Name + '\', Sh); //Appel la procédure "Rechercher"
    while FindNext(Sr) = 0 do //Tant que l'on trouve...
    begin
      if (Sr.Attr and faDirectory > 0) and (Sr.Name[1] <> '.') then
        Rechercher(Disq + Sr.Name + '\', Sh);
    end;
    FindClose(Sr); //Libère la mémoire allouée par FindFirst
  end;

  //Recherche le fichier dans les différents répertoires
  if FindFirst(Disq + Sh, faAnyFile, Sr) = 0 then
  begin
    if (Sr.Attr and faAnyFile) = Sr.Attr then
      ListBox1.Items.Add(Disq + Sr.Name); //Affiche les fichiers dans le ListBox1
    while FindNext(Sr) = 0 do
    begin
      if (Sr.Attr and faAnyFile) = Sr.Attr then
        ListBox1.Items.Add(Disq + Sr.Name);
    end;
    FindClose(Sr);
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rechercher('d:\Video\', '*.flv');
end;

إقتباس :بمعنى ان اكتفي بكتابة .jpeg في edit1

نعم، تكتب jpeg.*

مثال البحث عن الملفات:
http://www.delphi4arab.net/forum/showpos...ostcount=8
هناك المزيد ابحث في المنتدى

بالتوفيق.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة