Функции для работы с файловой системой
Скрыть папку : 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 :=… Читать далее »