| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Парочка вопросов [D6, Win2k]
AMQ © (2002-05-01 16:04:00)1) Допустим я хочу проверить, есть ли в какой-либо папке JPG. Задаю: FileSearch("*.jpg","FolderName"). А если в этой папке есть ещё папка, а там ещё и т.д. как матрёшка, как искать jpg в них. (при условии, что известно только имя исходной папки).
2)Как узнать сколько на компе винчестеров и под какими они именами?
3)Имеется ListBox1 и Button1. Как по нажатию Button1 в ListBox1 вывести список всех приложений (заголовки), которые сейчас запущены в Windows, включая те, которые сидят в System Tray"e?
Almaz (2002-05-02 00:00:00) [1]
>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;
Удачи.
Song (2002-05-01 19:58:00) [2]1. TSearchRec
3. EnumWindows()
~Sergius (2002-05-01 19:15:00) [3]Написать процедуру поиска с рекурсивным вызовом
поройся в факах, сто раз обсуждалось с примерами
PaRL (2002-05-01 18:30:00) [4]2) Честно говоря я не знаю как это определить программно, но можно поместить DriveComboBox и у него через Items.
PS Страница Win3.1
| |
