Парочка вопросов

← →
AMQ (2002-05-01 16:04) [0]

1) Допустим я хочу проверить, есть ли в какой-либо папке JPG. Задаю: FileSearch("*.jpg","FolderName"). А если в этой папке есть ещё папка, а там ещё и т.д. как матрёшка, как искать jpg в них. (при условии, что известно только имя исходной папки).
2)Как узнать сколько на компе винчестеров и под какими они именами?
3)Имеется ListBox1 и Button1. Как по нажатию Button1 в ListBox1 вывести список всех приложений (заголовки), которые сейчас запущены в Windows, включая те, которые сидят в System Tray"e?

← →
PaRL © (2002-05-01 18:30) [1]

2) Честно говоря я не знаю как это определить программно, но можно поместить DriveComboBox и у него через Items.
PS Страница Win3.1

← →
~Sergius (2002-05-01 19:15) [2]

Написать процедуру поиска с рекурсивным вызовом
поройся в факах, сто раз обсуждалось с примерами

← →
Song © (2002-05-01 19:58) [3]

1. TSearchRec
3. EnumWindows()

>AMQ (01.05.02 16:04)
> 2)Как узнать сколько на компе винчестеров и под какими они
> именами?

Следующая функция определяет сколько логических жестких дисков на компьютере.

function HowManyHardDrives: Integer; var Ch: Char; begin Result := 0; for Ch := "A" to "Z" do if GetDriveType(PChar(Ch + ":\")) = DRIVE_FIXED then Inc(Result); end;

Удачи.

Парочка вопросов Найти похожие ветки