команда на откритие папки

[Itachi-kyn@mail.ru]

народ, подскажите какую команду на делфи нужно ввести что бы допустим в ListBox или в Memo показывала определенную папку на жеском диски. без никаких нажаитий кнопок. чтобы открилась прога и в ней сразу показало папку которую ты в исходники указал

[Neeter]

Надо, чтобы в listbox'е появлялись имена всех файлов в этой папке чтоли?

[ArtInt]

Я так понял нужно чтобы при запуске программы
выводило где эта прога лежит
тогда с событии формы OnActive
пропиши

Memo1.Text:=ExtractFilePath(Application.ExeName);

[Neeter]

не onActive, а onActivate
Но если так, то лучше писать в onCreate или onShow, чтобы код не выполнялся каждый раз при активации формы...

[ArtInt]

Neeter абсолютно прав, когда я писал поторопился, поэтому и допустил такие опечатки.

[Itachi-kyn@mail.ru]

Нет. мне нужно при запуске проги сразу в ListBox показало допустим "Новая папка" которая находится в D:\Новая папка... в этой новой папки будут еще папки в которых находится Mp3. придставте муз.автомат который при забуске софтины показует определенные папки и не чего лишнего. при нажатие кнопки играет музыка.

[koma_grusha]

тогда лучше использовать другой компонент, точно не помню название, поищи среди стандартных, что-то вроде DirectoriesList или FolderList и т.п, (может не List, а View)

[Itachi-kyn@mail.ru]

и что там можно указать путь папки которую он будет показывать?

[DomiNick]

Ну... Попробуй использовать ShellTreeView (вкладка Samples)...

А при загрузке формы написать:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ShellTreeView1.Root:='D:\Новая папка';
End;

[Itachi-kyn@mail.ru]

ок. сенкю. попробую