Files Delphi

Title: to fill a listbox with file names
Question: Easy method to fill a listbox with file names
Answer:
Today I have read, that you can fill a listbox items with file names by one message only! Try it - it's cool:
var s: string;
begin
s := 'c:\windows\*.bmp'#0;
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
end;