Функции для работы с файловой системой
Скрыть папку : SetFileAttributes(PChar(‘c:\TestDir’),faHidden); Создать три папки вложенных друг в друга : ForceDirectories(‘C:\MyDir\Test\Dir1’); Создание папки : createdir(‘c:\TestDir’); // если не указать директорию, то папка будет создана там же где и программа Удаление не пустой папки : [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Function MyRemoveDir(sDir: String): Boolean; var iIndex: Integer; SearchRec: TSearchRec; sFileName: String; begin Result :=… Читать далее »