Fill a listbox with file names

Problem/Question/Abstract:

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;

Note: this code only seems to work in Windows 2000... I used this code in 2k fine, but when I tested my proggy in WinME this bit of code did nothing... Few other ppl reported the same thing :\