Здравствуйте, Гость
Суббота, 25.11.2017, 13:35
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Открыть папку (Как программно открыть папку)
Открыть папку
DanДата: Среда, 14.07.2010, 13:47 | Сообщение # 1
Ранг 1
Группа: Проверенные
Сообщений: 13
Награды: 0
Репутация: 0
Статус: Offline
Нужно чтобы при нажатии например на кнопку открылась папка. Через проводник.
Не знаю даже с чего начать. Подскажите.


Я не волшебник, я только учусь
 
skycarДата: Среда, 14.07.2010, 15:56 | Сообщение # 2
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
Code

uses ShellAPI; // надо добавить этот модуль в секцию uses

Code

procedure Starting(const FileName: string);
begin
   ShellExecute(0, 'open', PAnsiChar(FileName), nil, nil, SW_SHOWNORMAL);
end;

Используя эту процедуру, можно запускать файлы и папки (папки по дефолту будут открываться через проводник)

Code

  Starting('C:\123'); // откр. папку "123" на диске C:
 
DanДата: Среда, 14.07.2010, 22:47 | Сообщение # 3
Ранг 1
Группа: Проверенные
Сообщений: 13
Награды: 0
Репутация: 0
Статус: Offline
Дак я знаю ShellExecute. Я думал только так файл запускать можно. А тут и папку можно.
Спасибо! Тему можно закрывать


Я не волшебник, я только учусь
 
Форум » Все о Delphi » Начинающим » Открыть папку (Как программно открыть папку)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz