Réponse acceptée !
Salut,
euh .. alors oui mais non ...

si c'est pour re-faire les Drive/Directory/File ListBox
il vaut mieux passer par les messages ... c'est plus simple

1 TComboBox
2 TListBox
1 TButton
et tu complètes comme suit
Procedure TFrm_Main.Button1Click(Sender: TObject);
Var aDir:
String;
Begin
//http://msdn.microsoft.com/en-us/library/bb775185(VS.85).aspx aDir :=
'*.*';
ComboBox1.Perform(CB_DIR, DDL_DRIVES
Or DDL_EXCLUSIVE, Integer(aDir));
ListBox1.Perform(LB_DIR, DDL_DIRECTORY
Or DDL_EXCLUSIVE, Integer(aDir));
ListBox2.Perform(LB_DIR, DDL_ARCHIVE
Or DDL_EXCLUSIVE, Integer(aDir))
End;
@+
Cirec