В этой статье я постараюсь познакомить Вас с некоторыми стандартными функциями для работы с директориями. И еще приведу несколько пользовательских функций и примеры их использования. Также рассмотрен вопрос вызова диалога выбора директории.
Для начала начнем с простой функции для создания новой папки. Общий вид функции такой:
function CreateDir(const Dir: string): Boolean;
То есть если папка успешно создана функция возвращает true. Сразу же простой пример ее использования:
procedure TForm1.Button1Click(Sender: TObject); begin if createdir(‘c:TestDir’) = true then showmessage(‘Директория успешно создана’) else showmessage(‘При создании директории произошла ошибка’); end;
При нажатии на кнопку программа пытается создать папку с именем TestDir на диске C: и если попытка увенчалась успехом, то выводится соответствующее сообщение. Следует отметить, что если вы не указываете имя диска, на котором хотите создавать папку, то функция будет создавать папку в той же директории, где находится сама программа.
Embarcadero Delphi Обзор преимуществ / Установка / Удаление / Community Edition IDE / 2022 Бесплатно
createdir(edit1.text);
createdir(extractfilepath(paramstr(0))+edit1.text);
приведут к одному и тому же результату.
Теперь рассмотрим функцию для удаления папок. Ее объявление выглядит так:
function RemoveDir(const Dir: string): Boolean;
Сразу же хочу предупредить, что данная функция способна удалять только пустые папки, и если там что-нибудь будет, то произойдет ошибка! Но выход есть. Здесь нам на помощь придет пользовательская функция с простым названием MyRemoveDir. Вот описание функции:
Function MyRemoveDir(sDir : String) : Boolean; var iIndex : Integer; SearchRec : TSearchRec; sFileName : String; begin Result := False; sDir := sDir + ‘*.*’; iIndex := FindFirst(sDir, faAnyFile, SearchRec); while iIndex = 0 do begin sFileName := ExtractFileDir(sDir)+»+SearchRec.Name; if SearchRec.Attr = faDirectory then begin if (SearchRec.Name <> » ) and (SearchRec.Name <> ‘.’) and (SearchRec.Name <> ‘..’) then MyRemoveDir(sFileName); end else begin if SearchRec.Attr <> faArchive then FileSetAttr(sFileName, faArchive); if NOT DeleteFile(sFileName) then ShowMessage(‘Could NOT delete ‘ + sFileName); end; iIndex := FindNext(SearchRec); end; FindClose(SearchRec); RemoveDir(ExtractFileDir(sDir)); Result := True end;
Копируете это все в Вашу программу, а затем эту функцию можно вызвать например так:
if NOT MyRemoveDir(‘C:TestDir’) then ShowMessage(‘Не могу удалить эту директорию’);
Теперь маленько отстранимся от непосредственной работы с папками и рассмотрим волнующий многих вопрос. Как вызвать диалог выбора папки (как при установке программ)?? ПРОСТО.
Подключаем в uses модуль Filectrl.pas (то есть uses FileCtrl;). Теперь ставим на форму еще кнопочку (чтобы не путаться 🙂 и пишем такой код:
procedure TForm1.Button3Click(Sender: TObject); const SELDIRHELP = 1000; var Dir: string; begin Dir := ‘C:windows’; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then Caption := Dir; end;
При выборе директории в заголовке формы отобразиться ее название!
Установка и активация Delphi Autocom CDP 2017. Настройка BLUETOOTH соединения с Delphi Ds150e.
Теперь рассмотрим следующую процедуру. К примеру Вам надо создать папку Dir1 по адресу: C:MyDirTestDir1, но при этом папок MyDir и Test на Вашем компьютере не существует. Функция CreateDir здесь не сработает, поэтому воспользуемся процедурой ForceDirectories. Ее общий вид таков:
procedure ForceDirectories(Dir: string);
Пример ее использования (как всегда я поставил на форму новую кнопку, а там написал)
procedure TForm1.Button4Click(Sender: TObject); var Dir: string; begin Dir := ‘C:MyDirTestDir1’; ForceDirectories(Dir); end;
Ну и напоследок приведу функцию для проверки: существует ли директория или нет. Ее общий вид такой:
function DirectoryExists(Name: string): Boolean;
Если директория указанная в параметре Name существует — то функция возвратит true. Надеюсь, что помог Вам описанием данных функций и процедур. Сразу хочется дать совет: почаще заглядывайте в HELP, там много интересной и полезной информации!
Источник: thedelphi.ru
Delphi директория из которой запущена программа
в общем случае, я с Вами согласен. Это и проще и более универсально.
если заглянуть чуть поглубже, то в модуле Forms :
function TApplication.GetExeName: string; begin Result := ParamStr(0); end;
справедливости ради надо отметить, что раз в вопросе TC прозвучало «в обработчике Form.Create» — то доступ к Application у него однозначно есть
Участник клуба
Регистрация: 21.03.2010
Сообщений: 1,508
Ещё вариант, каким я пользуюсь(только каталог):
var dir : string; begin // Получаем текущую директорию dir := GetCurrentDir; end;
Google — лучший помощник программиста.
—
моя лаборатория | мой FaceBook
Регистрация: 03.01.2011
Сообщений: 2,508
текущая директория имеет достаточно отдалённое отношение к «полный адрес каталога из которого запущен .exe файл».
«Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего.»
Участник клуба
Регистрация: 21.03.2010
Сообщений: 1,508
текущая директория имеет достаточно отдалённое отношение к «полный адрес каталога из которого запущен .exe файл».
Название темы: Как определить каталог из которого запущен .exe файл
потом, «полный адрес каталога из которого запущен .exe файл».
Вопрос не стоял об полном имени исполняемого файла.
var dir : string; begin SetCurrentDir(‘C:’); // Получаем текущую директорию dir := GetCurrentDir; end; dir
возвращает ту директорию(каталог), из которой запущен исполняемый файл.
Google — лучший помощник программиста.
—
моя лаборатория | мой FaceBook
Источник: www.programmersforum.ru
Delphi директория из которой запущена программа
В этой статье я постараюсь познакомить Вас с некоторыми стандартными функциями для работы с директориями. И еще приведу несколько пользовательских функций и примеры их использования. Также рассмотрен вопрос вызова диалога выбора директории.
Для начала начнем с простой функции для создания новой папки. Общий вид функции такой:
function CreateDir(const Dir: string): Boolean;
То есть если папка успешно создана функция возвращает true . Сразу же простой пример ее использования:
procedure TForm1.Button1Click(Sender: TObject);
begin
if createdir(‘c:TestDir’) = true then
showmessage(‘Директория успешно создана’)
else
showmessage(‘При создании директории произошла ошибка’);
end;
При нажатии на кнопку программа пытается создать папку с именем TestDir на диске C: и если попытка увенчалась успехом, то выводится соответствующее сообщение. Следует отметить, что если вы не указываете имя диска, на котором хотите создавать папку, то функция будет создавать папку в той же директории, где находится сама программа.
приведут к одному и тому же результату.
Теперь рассмотрим функцию для удаления папок. Ее объявление выглядит так:
function RemoveDir(const Dir: string): Boolean;
Сразу же хочу предупредить, что данная функция способна удалять только пустые папки, и если там что-нибудь будет, то произойдет ошибка! Но выход есть. Здесь нам на помощь придет пользовательская функция с простым названием MyRemoveDir. Вот описание функции:
Function MyRemoveDir(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
Result := False;
sDir := sDir + ‘*.*’;
iIndex := FindFirst(sDir, faAnyFile, SearchRec);
while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+»+SearchRec.Name;
if SearchRec.Attr = faDirectory then begin
if (SearchRec.Name <> » ) and
(SearchRec.Name <> ‘.’) and
(SearchRec.Name <> ‘..’) then
MyRemoveDir(sFileName);
end else begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
if NOT DeleteFile(sFileName) then
ShowMessage(‘Could NOT delete ‘ + sFileName);
end;
iIndex := FindNext(SearchRec);
end;
RemoveDir(ExtractFileDir(sDir));
Result := True
end;
Копируете это все в Вашу программу, а затем эту функцию можно вызвать например так:
if NOT MyRemoveDir(‘C:TestDir’) then
ShowMessage(‘Не могу удалить эту директорию’);
Теперь маленько отстранимся от непосредственной работы с папками и рассмотрим волнующий многих вопрос. Как вызвать диалог выбора папки (как при установке программ)?? ПРОСТО.
Подключаем в uses модуль Filectrl.pas (то есть uses FileCtrl;). Теперь ставим на форму еще кнопочку (чтобы не путаться 🙂 и пишем такой код:
procedure TForm1.Button3Click(Sender: TObject);
const
SELDIRHELP = 1000;
var
Dir: string;
begin
Dir := ‘C:windows’;
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Caption := Dir;
end;
При выборе директории в заголовке формы отобразиться ее название!
Теперь рассмотрим следующую процедуру. К примеру Вам надо создать папку Dir1 по адресу: C:MyDirTestDir1, но при этом папок MyDir и Test на Вашем компьютере не существует. Функция CreateDir здесь не сработает, поэтому воспользуемся процедурой ForceDirectories. Ее общий вид таков:
procedure ForceDirectories(Dir: string);
Пример ее использования (как всегда я поставил на форму новую кнопку, а там написал)
procedure TForm1.Button4Click(Sender: TObject);
var
Dir: string;
begin
Dir := ‘C:MyDirTestDir1’;
ForceDirectories(Dir);
end;
Ну и напоследок приведу функцию для проверки: существует ли директория или нет. Ее общий вид такой:
function DirectoryExists(Name: string): Boolean;
Если директория указанная в параметре Name существует — то функция возвратит true.
Надеюсь, что помог Вам описанием данных функций и процедур. Сразу хочется дать совет: почаще заглядывайте в HELP, там много интересной и полезной информации!
(С) Автор статьи: Михаил Христосенко // Development и Дельфи (http://delphid.dax.ru). При использовании этого материала ссылка на автора и источник информации обязательна.
Удачи в программировании.
- 04.07 — Доступен язык программирования Perl 5.38.0 с поддержкой классов
- 04.07 — Microsoft грозит антимонопольное расследование в Европе за интеграцию Teams в Office
- 04.07 — Продажи смартфонов в России взлетели на 40 % и вернулись к уровню 2021 года — рынок заполонили китайские модели
- 04.07 — Представлен смартфон Liberty Phone, продолжающий развитие Librem 5
- 01.07 — Oracle опубликовал систему автоматической оптимизации параметров ядра Linux
- 01.07 — Искусственный интеллект будет учиться принимать быстрые и точные решения у пчёл
- 01.07 — «Яндекс.Маркет» зарегистрировал бренд Lunnen для выпуска компьютерной техники и аксессуаров
- 01.07 — Рыночная капитализация Apple превысила $3 трлн
- 01.07 — Судьба сделки Microsoft и Activision на $69 млрд оказалась в руках американского судьи
- 01.07 — «Яндекс» и «Ланит» решили продать свои доли в совместном предприятии по производству серверов OpenYard
- 01.07 — МКС перестанет существовать в нынешнем виде после 2030 года, заявил глава «Роскосмоса»
- 01.07 — В WhatsApp появился прямой способ переноса истории чатов между смартфонами через QR-код
- 28.06 — В реестр отечественного ПО могут просочиться иностранные продукты, если не принять меры
- 28.06 — Windows 11 позволит авторизовываться на сайтах по отпечатку пальца или скану лица
- 28.06 — Team Group представила DDR5 и SSD, способные пережить нагрев до +105 °C
- 28.06 — AMD представила царь-FPGA VP1902, самую большую в мире чиплетную ПЛИС для разработки новых чипов
- 26.06 — Представлен релиз ядра Linux 6.4
- 26.06 — В NASA разработали VR-инструментарий для изучения Марса и анализа больших массивов данных
- 26.06 — Alphabet вместо аэростатов будет использовать лазеры для подключения к интернету труднодоступных регионов
- 26.06 — ChatGPT стал доступен на 30-летней системе Windows 3.1
- Tendence.ru: если нужен надежный провайдер для хостинга корпоративной почты
- Самый быстрый хостинг в Беларуси от CloudVPS
- О том, как открыть IT-компанию за границей: полезная информация
- Запись и хранение телефонных разговоров
Источник: citforum.ru