[NumLock]

2 строчки кода:

Код:

procedure RussiaWorldChamp(AListBox: TListBox; APath: String; AMask: String);
var
  i: Integer;
begin
  SendMessage(AListBox.Handle, LB_DIR, $3f, Integer(PChar(APath+AMask)));
  for i:=0 to AListBox.Count-1 do AListBox.Items[i]:=APath+AListBox.Items[i];
end;

использование:

Код:

RussiaWorldChamp(ListBox1, 'c:\Windows\System32\', '*.dll');