[Delphi 5] TFileListBox/TListBox - Alles markieren

Ich suche nach einer Möglichkeit, wie man in einer TFileListBox alle Einträge (sehr schnell) markieren kann. Im Hauptmenü habe ich einen Menüpunkt „Bearbeiten - Alles markieren“ (wie im Windows Explorer). Damit sollen alle Einträge markiert werden. Wenn ich es in einer Schleife mache

for i := 0 to FileListBox.Items.Count - 1 do
 FileListBox.Selected[i] := True;

dann ist das Ganze sehr langsam, wenn sich in dem Verzeichnis viele Dateien befinden.
Es muss aber eine schnellere Möglichkeit geben. Der Windows Explorer kanns ja auch?!?

Ich suche nach einer Möglichkeit, wie man in einer
TFileListBox alle Einträge (sehr schnell) markieren kann.

Hi Dieter,

folgende Funktion, die die betreffende Listbox übergeben bekommt, leistet das Verlangte:

PROCEDURE PerformLBSelectAll (Listbox: TListbox);
VAR
 h: THandle;
 k: INTEGER;
begin
 h := ListBox.Handle;
 k := ListBox.Items.Count-1;
 SendMessage(h, LB\_SELITEMRANGE, 1, k)
end;

Mit freundlichem Gruß
Martin