dateinamen in einem Ordner abfragen??

[Christian Seehase]

Moin Zusammen,

dann will ich noch mal meine Methode alle Dateien eines Verzeichnisses auszulesen beisteuern. Um einen Parameter zu sparen als Methode des Formulares.

Code:

procedure TForm1.GetFiles(const p_sRootDir : string;const p_slResult : TStrings);

var
  lb : TListBox;

begin
  lb := TListBox.CreateParented(self.Handle);
  try
    SendMessage(lb.Handle,LB_DIR,DDL_ARCHIVE or DDL_HIDDEN or DDL_READONLY or DDL_READWRITE or DDL_SYSTEM,lParam(PChar(p_sRootDir+'\*.*')));
    p_slResult.AddStrings(lb.Items);
  finally
    FreeAndNil(lb);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFiles('c:\winnt\system32',Memo1.Lines);
end;