Ordnernamen in Listbox laden

[toms]

Hallo

Das geht z.B mit der LB_DIR Nachricht.
Flexibler bist du jedoch mit FindFirst, FindNext etc.

Delphi-Quellcode:

procedure ListDirectories(LB: TListBox; Path: PChar);
var
  i: Integer;
begin
  with LB do
  begin
    Perform(LB_DIR, DDL_DIRECTORY, Integer(Path));
    for i := Pred(Items.Count) downto  0 do
      if Items[i][1] <> '[' then Items.Delete(i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListDirectories(ListBox1,'C:\*.*');
end;