Как найти файл в папке delphi

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

begin

    try

        //Создаём директории Test1, Test2 и Test3, если их нет.

        TDirectory.CreateDirectory(‘C:Test1Test2Test3’);

        //Удаляем директорию Test3.

        TDirectory.Delete(‘C:Test1Test2Test3’);

        try

            //Удаляем директорию Test1.

            //Директория Test1 не пустая, т.к. в ней есть директория Test2.

            //Поэтому при вызове метода Delete произойдёт ошибка EInOutError.

            TDirectory.Delete(‘C:Test1’);

        except

            on ioError: EInOutError do

                //Показываем ошибку в консоли.

                Writeln(ErrOutput, ioError.Message);

        end;

        //Удаляем директорию Test1 и рекурсивно все вложенные директории и файлы.

        TDirectory.Delete(‘C:Test1’, true);

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Shellapi, Classes, Windows;

var

    execInfo: TShellExecuteInfo;

begin

    try

        //Проверяем, есть ли директория C:Test1.

        //Если директории нет, то функция вернёт false.

        Writeln(TDirectory.Exists(‘C:Test1’));

        //Создаём директорию.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Ещё раз проверяем, есть ли директория C:Test1.

        //Теперь директория существует, и функция вернёт true.

        Writeln(TDirectory.Exists(‘C:Test1’));

        //Теперь проверяем, существует ли символическая ссылка C:TestLink.

        //Если ссылка не существует, то функция вернёт false.

        Writeln(TDirectory.Exists(‘C:TestLink’, false));

        //Теперь создадим символическую ссылку C:TestLink на несуществующую директорию C:Test2.

        //Для создания символической ссылки нужно обладать правами администратора,

        //поэтому создавать её будем с помощью утилиты командной строки mklink,

        //которую будем вызывать от имени администратора.

        //Чтобы вызвать эту утилиту, придётся сначала создать пакетный файл,

        //а затем выполнить его.

        //Итак, сначала создаём пакетный файл с командой mklink.

        with TStringList.Create do

            try

                //Содержимое пакетного файла…

                Add(‘mklink /D C:TestLink C:Test2’);

                //Сохраняем пакетный файл.

                SaveToFile(‘C:Test1tmp.bat’);

            finally

                Free;

            end;

        //Теперь выполняем пакетный файл от имени администратора.

        FillChar(execInfo, SizeOf(TShellExecuteInfo), 0);

        execInfo.cbSize := SizeOf(TShellExecuteInfo);

        execInfo.lpVerb := PWideChar(‘runas’);

        execInfo.lpFile := PWideChar(‘C:Test1tmp.bat’);

        execInfo.fMask := SEE_MASK_NOCLOSEPROCESS;

        ShellExecuteEx(@execInfo);

        //Ждём, пока пакетный файл отработает.

        WaitForSingleObject(execInfo.hProcess, INFINITE);

        //Проверяем, существует ли символическая ссылка C:TestLink.

        //Теперь ссылка существует, поэтому функция вернёт true.

        Writeln(TDirectory.Exists(‘C:TestLink’, false));

        //Проверяем, существует ли символическая ссылка C:TestLink

        //и директория C:Test2, на которую она ссылается.

        //Ссылка C:TestLink существует, но директория C:Test2 — нет,

        //поэтому функция вернёт false.

        Writeln(TDirectory.Exists(‘C:TestLink’, true));

        //Создаём директорию C:Test2.

        TDirectory.CreateDirectory(‘C:Test2’);

        //Опять проверяем, существует ли символическая ссылка C:TestLink

        //и директория C:Test2, на которую она ссылается.

        //Теперь ссылка C:TestLink и директория C:Test2 существуют,

        //поэтому функция вернёт true.

        Writeln(TDirectory.Exists(‘C:TestLink’, true));

        //Удаляем директорию C:Test1, а заодно и файл tmp.bat.

        TDirectory.Delete(‘C:Test1’, true);

        //Удаляем директорию C:Test2.

        TDirectory.Delete(‘C:Test2’);

        //Удаляем символическую ссылку C:TestLink.

        DeleteFile(‘C:TestLink’);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Rtti;

var

    fileAttribute: TFileAttribute;

begin

    try

        //Создаём директории Test1, Test2 и Test3, если их нет.

        TDirectory.CreateDirectory(‘C:Test1Test2Test3’);

        //Делаем директорию скрытой, выставляя ей атрибут faHidden.

        TDirectory.SetAttributes(‘C:Test1’, [TFileAttribute.faHidden]);

        //Делаем директорию доступной только для чтения, выставляя ей атрибут faReadOnly.

        TDirectory.SetAttributes(‘C:Test1Test2Test3’, [TFileAttribute.faReadOnly]);

        //Отображаем все установленные атрибуты директории Test1.

        //В результате отобразятся два атрибута: faHidden и faDirectory.

        //Атрибут faDirectory убрать нельзя, он всегда будет присутствовать у директории.

        for fileAttribute in TDirectory.GetAttributes(‘C:Test1’) do

            Writeln(TRttiEnumerationType.GetName<TFileAttribute>(fileAttribute));

        //Отображаем все установленные атрибуты директории Test3.

        //В результате отобразятся два атрибута: faReadOnly и faDirectory.

        for fileAttribute in TDirectory.GetAttributes(‘C:Test1Test2Test3’) do

            Writeln(TRttiEnumerationType.GetName<TFileAttribute>(fileAttribute));

        //Выводим дату и время создания директории Test1.

        //В результате отобразится дата и время на момент создания директории.

        Writeln(DateTimeToStr(TDirectory.GetCreationTime(‘C:Test1’)));

        //Устанавливаем дату и время создания директории.

        TDirectory.SetCreationTime(‘C:Test1’, StrToDateTime(‘01.02.03 11:12:13’));

        //Выводим дату и время создания директории Test1.

        //В результате отобразится 01.02.2003 11:12:13.

        Writeln(DateTimeToStr(TDirectory.GetCreationTime(‘C:Test1’)));

        //Выводим дату и время создания директории Test1 в формате UTC, т.е. без учёта часового пояса.

        //В результате отобразится 01.02.2003 8:12:13, т.е. -3 часа по Москве.

        Writeln(DateTimeToStr(TDirectory.GetCreationTimeUtc(‘C:Test1’)));

        //Выводим дату и время последнего обращения к директории.

        Writeln(DateTimeToStr(TDirectory.GetLastAccessTime(‘C:Test1’)));

        //Устанавливаем дату и время последнего обращения к директории.

        TDirectory.SetLastAccessTime(‘C:Test1’, StrToDateTime(‘01.02.03 11:12:14’));

        //Выводим дату и время последнего обращения к директории.

        //В результате отобразится 01.02.2003 11:12:14.

        Writeln(DateTimeToStr(TDirectory.GetLastAccessTime(‘C:Test1’)));

        //Выводим дату и время последней записи в директорию.

        Writeln(DateTimeToStr(TDirectory.GetLastWriteTime(‘C:Test1’)));

        //Устанавливаем дату и время последней записи в директорию.

        TDirectory.SetLastWriteTime(‘C:Test1’, StrToDateTime(‘01.02.03 11:12:15’));

        //Выводим дату и время последней записи в директорию.

        //В результате отобразится 01.02.2003 11:12:15.

        Writeln(DateTimeToStr(TDirectory.GetLastWriteTime(‘C:Test1’)));

        //Удаляем директорию Test1 и рекурсивно все вложенные директории и файлы.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

begin

    try

        //Создаём директории Test1, Test2 и Test3, если их нет.

        TDirectory.CreateDirectory(‘C:Test1Test2Test3’);

        //Копируем директорию Test1 в директорию Test1.1, включая все вложенные директории и файлы.

        TDirectory.Copy(‘C:Test1’, ‘C:Test1.1’);

        //Переименовываем директорию Test1 в директорию Test1.2.

        TDirectory.Move(‘C:Test1’, ‘C:Test1.2’);

        //Перемещаем директорию Test1.2 в директорию C:UsersPublicDocuments.

        TDirectory.Move(‘C:Test1.2’, ‘C:UsersPublicDocumentsTest1.2’);

        //Удаляем директории.

        TDirectory.Delete(‘C:Test1.1’, true);

        TDirectory.Delete(‘C:UsersPublicDocumentsTest1.2’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Types, DateUtils;

var

    s: string;

    function FilterBySize(const Path: string;

            const SearchRec: TSearchRec): boolean;

    begin

        //Возвращаем true, если размер файла меньше 50 Кбайт.

        Result := SearchRec.Size < 51200;

    end;

    function FilterByDateTime(const Path: string;

            const SearchRec: TSearchRec): boolean;

    begin

        //Возвращаем true, если у файла или директории

        //дата и время последнего изменения старше 2-х лет.

        Result := SearchRec.TimeStamp < IncYear(Now, —2);

    end;

begin

    try

        //Ищеи и отображаем все файлы в директории C:Windows.

        for s in TDirectory.GetFiles(‘C:Windows’) do

            Writeln(s);

        //Ищем и отображаем все исполняемые файлы в директории C:Windows.

        for s in TDirectory.GetFiles(‘C:Windows’, ‘*.exe’) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все файлы

        //в директории C:UsersPublicPictures.

        for s in TDirectory.GetFiles(‘C:UsersPublicPictures’, ‘*’,

                TSearchOption.soAllDirectories) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все файлы с расширением .jpg

        //в директории C:UsersPublicPictures.

        for s in TDirectory.GetFiles(‘C:UsersPublicPictures’, ‘*.jpg’,

                TSearchOption.soAllDirectories) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все файлы размером меньше 50 Кбайт

        //в директории C:UsersPublicPictures.

        //Для проверки размера используется функция-фильтр FilterBySize.

        for s in TDirectory.GetFiles(‘C:UsersPublicPictures’, ‘*’,

                TSearchOption.soAllDirectories, FilterBySize) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все файлы

        //в директории C:UsersPublicPictures, которые не изменялись более 2-х лет.

        //Для проверки размера используется функция-фильтр FilterByDateTime.

        for s in TDirectory.GetFiles(‘C:UsersPublicPictures’, ‘*’,

                TSearchOption.soAllDirectories, FilterByDateTime) do

            Writeln(s);

        //Ищем и отображаем все поддиректории в директории C:Windows.

        for s in TDirectory.GetDirectories(‘C:Windows’) do

            Writeln(s);

        //Ищем и отображаем все поддиректории, имя которых начинается с буквы s,

        //в директории C:Windows.

        for s in TDirectory.GetDirectories(‘C:Windows’, ‘s*’) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все поддиректории

        //в директории C:UsersPublicPictures.

        for s in TDirectory.GetDirectories(‘C:UsersPublicPictures’, ‘*’,

                TSearchOption.soAllDirectories) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все поддиректории

        //в директории C:UsersPublicPictures, которые не изменялись более 2-х лет.

        //Для проверки размера используется функция-фильтр FilterByDateTime.

        for s in TDirectory.GetDirectories(‘C:UsersPublicPictures’, ‘*’,

                TSearchOption.soAllDirectories, FilterByDateTime) do

            Writeln(s);

        //Ищем и отображаем все файлы и поддиректории в директории C:Windows.

        for s in TDirectory.GetFileSystemEntries(‘C:Windows’) do

            Writeln(s);

        //Ищем и отображаем все файлы и поддиректории,

        //имя которых начинается с буквы s, в директории C:Windows.

        for s in TDirectory.GetFileSystemEntries(‘C:Windows’, ‘s*’) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все файлы и поддиректории

        //в директории C:UsersPublicPictures.

        for s in TDirectory.GetFileSystemEntries(‘C:UsersPublicPictures’,

                TSearchOption.soAllDirectories, nil) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все файлы и поддиректории

        //в директории C:UsersPublicPictures, которые не изменялись более 2-х лет.

        //Для проверки размера используется функция-фильтр FilterByDateTime.

        for s in TDirectory.GetFileSystemEntries(‘C:UsersPublicPictures’,

                TSearchOption.soAllDirectories, FilterByDateTime) do

            Writeln(s);

        //Рекурсивно ищем и отображаем все пустые поддиректории

        //в директории C:UsersPublicPictures.

        for s in TDirectory.GetDirectories(‘C:UsersPublicPictures’, ‘*’,

                TSearchOption.soAllDirectories) do

            if TDirectory.IsEmpty(s) then

                Writeln(s);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

var

    s: string;

begin

    try

        //Узнаём корневую директорию для директории C:UsersPublicPictures.

        //В результате мы получим ‘C:’.

        Writeln(TDirectory.GetDirectoryRoot(‘C:UsersPublicPictures’));

        //Узнаём корневую директорию для сетевой папки \my-serverSharedMusic.

        //В результате мы получим ‘\my-serverShared’.

        Writeln(TDirectory.GetDirectoryRoot(‘\my-serverSharedMusic’));

        //Узнаём корневую директорию для сетевой папки \192.168.1.100SharedDocs.

        //В результате мы получим ‘\192.168.1.100Shared’.

        Writeln(TDirectory.GetDirectoryRoot(‘\192.168.1.100SharedDocs’));

        //Рекурсивно выводим все родительские директории

        //для директории C:UsersPublicPictures.

        //В результате мы получим:

        //’C:UsersPublic’

        //’C:Users’

        //’C:’

        s := ‘C:UsersPublicPictures’;

        while not TDirectory.GetParent(s).IsEmpty do

        begin

            s := TDirectory.GetParent(s);

            Writeln(s);

        end;

        //Узнаём, является ли путь относительным.

        //В результате получим FALSE.

        Writeln(TDirectory.IsRelativePath(‘C:UsersPublicPictures’));

        //В результате получим TRUE.

        Writeln(TDirectory.IsRelativePath(‘.PublicPictures’));

        //В результате получим TRUE.

        Writeln(TDirectory.IsRelativePath(‘..SharedMusic’));

        //Узнаём, какие логические диски есть на ПК.

        //Если у вас три диска C:, D: и F:, то результат будет таким:

        //’C:’

        //’D:’

        //’F:’

        for s in TDirectory.GetLogicalDrives do

            Writeln(s);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

var

    s: string;

begin

    try

        //Получаем тукущую директорию приложения.

        Writeln(TDirectory.GetCurrentDirectory);

        //Задаём другую текущую директорию приложения.

        TDirectory.SetCurrentDirectory(‘C:UsersPublicPictures’);

        //Ещё раз получаем тукущую директорию приложения.

        //Теперь это будет C:UsersPublicPictures.

        Writeln(TDirectory.GetCurrentDirectory);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Classes;

var

    fileStream: TFileStream;

    bytes: TBytes;

    streamWriter: TStreamWriter;

begin

    try

        //Создаём временную директорию.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Создаём файл test.dat.

        fileStream := TFile.Create(‘C:Test1test.dat’);

        try

            bytes := [1, 2, 3];

            //Записываем в файл данные из массива bytes.

            fileStream.Write(bytes, Length(bytes));

        finally

            //Удаляем поток.

            fileStream.Free;

        end;

        //Удаляем файл test.dat.

        TFile.Delete(‘C:Test1test.dat’);

        //Создаём текстовый файл test.txt.

        streamWriter := TFile.CreateText(‘C:Test1test.txt’);

        try

            //Записываем текст.

            streamWriter.Write(‘Здравствуй, мир!’);

        finally

            //Удаляем писателя.

            streamWriter.Free;

        end;

        //Удаляем файл test.txt.

        TFile.Delete(‘C:Test1test.txt’);

        //Создаём символическую ссылку.

        if not TFile.CreateSymLink(‘C:Test1test’, ‘C:Test1test.txt’) then

            //Если символическая ссылка не создалась, выдаём ошибку.

            RaiseLastOSError;

        //Удаляем символическую ссылку test.

        TFile.Delete(‘C:Test1test’);

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

    //Удаляем директорию.

    TDirectory.Delete(‘C:Test1’);

    Readln;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Types;

begin

    try

        //Создаём директорию C:Test1.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Записываем текст в файл в кодировке UTF-8 без BOM.

        TFile.WriteAllText(‘C:Test1test.txt’, ‘Тест!’);

        //Считываем текст из файла.

        //В результате мы увидим ‘РўРчС?С’!’, т.к. текст считался в неправильной кодировке.

        //Это происходит из-за того, что файл записан в кодировке UTF-8,

        //и т.к. BOM отсутствует, то при считывании используется кодировка ANSI.

        Writeln(TFile.ReadAllText(‘C:Test1test.txt’));

        //Считываем текст из файла и укажем нужную кодировку.

        //В результате мы увидим ‘Тест!’, т.е. теперь текст считался в правильной кодировке.

        Writeln(TFile.ReadAllText(‘C:Test1test.txt’, TEncoding.UTF8));

        //Теперь записываем текст в файл в кодировке ANSI, в которой локаль зависит

        //от выставленной локали на вашем компьютере.

        //При записи в этой кодировке, файл запишется без BOM.

        TFile.WriteAllText(‘C:Test1test.txt’, ‘Тест!’, TEncoding.ANSI);

        //Считываем текст из файла.

        //В результате мы увидим ‘Тест!’. В файле нет BOM,

        //поэтому файл считывается в кодировке ANSI,

        //т.е. как раз в той, в которой мы его записали.

        Writeln(TFile.ReadAllText(‘C:Test1test.txt’));

        //Теперь записываем текст в файл в кодировке UTF-8 с BOM.

        TFile.WriteAllText(‘C:Test1test.txt’, ‘Тест!’, TEncoding.UTF8);

        //Считываем текст из файла.

        //В результате мы увидим ‘Тест!’.

        //В отличие от первого примера здесь кодировка берётся из BOM,

        //т.е. в нашем случае UTF-8, поэтому текст считывается корректно.

        Writeln(TFile.ReadAllText(‘C:Test1test.txt’));

        //Добавляем в конец файла текст.

        //При добавлении будет использована кодировка, указанная в BOM.

        //Если BOM нет, то будет использована кодировка ANSI.

        TFile.AppendAllText(‘C:Test1test.txt’, ‘ Тест2!’);

        //Считываем текст из файла.

        //В результате мы увидим ‘Тест! Тест2!’.

        Writeln(TFile.ReadAllText(‘C:Test1test.txt’));

        //Удаляем директорию C:Test1 и все файлы в ней.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Types;

var

    s: string;

begin

    try

        //Создаём директорию C:Test1.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Записываем три строки в текстовый файл в кодировке UTF-8 без BOM.

        TFile.WriteAllLines(‘C:Test1test2.txt’,

                [‘Строка 1’, ‘Строка 2’, ‘Строка 3’]);

        //Читаем строки из файла. В результате получим:

        //РЎС’С?Р?РєР° 1

        //РЎС’С?Р?РєР° 2

        //РЎС’С?Р?РєР° 3

        //Как видим строки считываются в неправильной кодировке.

        //Это происходит из-за того, что файл записан в кодировке UTF-8,

        //и т.к. BOM отсутствует, то при считывании используется кодировка ANSI.

        for s in TFile.ReadAllLines(‘C:Test1test2.txt’) do

            Writeln(s);

        //Теперь читаем строки из файла в нужной кодировке. Результат будет:

        //Строка 1

        //Строка 2

        //Строка 3

        for s in TFile.ReadAllLines(‘C:Test1test2.txt’, TEncoding.UTF8) do

            Writeln(s);

        //Теперь записываем строки в файл в кодировке ANSI, в которой локаль зависит

        //от выставленной локали на вашем компьютере.

        //При записи в этой кодировке, файл запишется без BOM.

        TFile.WriteAllLines(‘C:Test1test2.txt’,

                [‘Строка 1’, ‘Строка 2’, ‘Строка 3’], TEncoding.ANSI);

        //Ещё раз считываем строки из файла. В результате получим:

        //Строка 1

        //Строка 2

        //Строка 3

        //В файле нет BOM, поэтому файл считывается в кодировке ANSI,

        //т.е. как раз в той, в которой мы его записали.

        for s in TFile.ReadAllLines(‘C:Test1test2.txt’) do

            Writeln(s);

        //Теперь записываем строки в файл в кодировке UTF-8 с BOM.

        TFile.WriteAllLines(‘C:Test1test2.txt’,

                [‘Строка 1’, ‘Строка 2’, ‘Строка 3’], TEncoding.UTF8);

        //Считываем строки из файла. В результате увидим:

        //Строка 1

        //Строка 2

        //Строка 3

        //В отличие от первого примера здесь кодировка берётся из BOM,

        //т.е. в нашем случае UTF-8, поэтому строки считываются корректно.

        for s in TFile.ReadAllLines(‘C:Test1test2.txt’) do

            Writeln(s);

        //Добавляем в конец файла ещё две строки (строки разделяются символами #13#10).

        //При добавлении будет использована кодировка, указанная в BOM.

        //Если BOM нет, то будет использована кодировка ANSI.

        TFile.AppendAllText(‘C:Test1test2.txt’, ‘Строка 4’#13#10’Строка 5’#13#10);

        //Считываем строки из файла. В результате увидим:

        //Строка 1

        //Строка 2

        //Строка 3

        //Строка 4

        //Строка 5

        for s in TFile.ReadAllLines(‘C:Test1test2.txt’) do

            Writeln(s);

        //Удаляем директорию C:Test1 и все файлы в ней.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Types;

var

    b: byte;

begin

    try

        //Создаём директорию C:Test1.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Записываем массив из четырёх байт в файл.

        TFile.WriteAllBytes(‘C:Test1test.dat’, [0, 100, 200, 255]);

        //Считываем байты из файла. В результате увидим в консоли:

        //0

        //100

        //200

        //255

        for b in TFile.ReadAllBytes(‘C:Test1test.dat’) do

            Writeln(b);

        //Удаляем директорию C:Test1 и все файлы в ней.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Classes;

var

    streamWriter: TStreamWriter;

    streamReader: TStreamReader;

    fileStream: TFileStream;

    bytes: TBytes;

    b: byte;

begin

    try

        //Создаём временную директорию.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Создаём текстовый файл test.txt в кодировке UTF-8 и добавляем в две строки текста.

        streamWriter := TFile.AppendText(‘C:Test1test.txt’);

        try

            streamWriter.Write(‘Привет, мир!’);

            streamWriter.WriteLine;

            streamWriter.Write(‘Это вторая строка в тексте.’);

        finally

            streamWriter.Free;

        end;

        //Открываем текстовый файл в кодировке UTF-8 на чтение, и считываем две строки текста.

        streamReader := TFile.OpenText(‘C:Test1test.txt’);

        try

            Writeln(‘1-я строка: ‘ + streamReader.ReadLine);

            Writeln(‘2-я строка: ‘ + streamReader.ReadLine);

        finally

            streamReader.Free;

        end;

        //Создаём файл функцией Open и записываем 3 байта.

        fileStream := TFile.Open(‘C:Test1test.dat’, TFileMode.fmCreate, TFileAccess.faWrite);

        try

            bytes := [10, 20, 30];

            fileStream.Write(bytes, 3);

        finally

            fileStream.Free;

        end;

        //Дописываем в файл ещё 3 байта функцией OpenWrite.

        fileStream := TFile.OpenWrite(‘C:Test1test.dat’);

        try

            bytes := [40, 50, 60];

            fileStream.Seek(0, TSeekOrigin.soEnd);

            fileStream.Write(bytes, 3);

        finally

            fileStream.Free;

        end;

        //Читаем из файла все байты функцией OpenRead.

        fileStream := TFile.OpenRead(‘C:Test1test.dat’);

        try

            SetLength(bytes, fileStream.Size);

            fileStream.Read(bytes, fileStream.Size);

            for b in bytes do

                Writeln(b);

        finally

            fileStream.Free;

        end;

        //Удаляем директорию C:Test1 и все файлы в ней.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, ShellAPI, Classes, Windows;

var

    execInfo: TShellExecuteInfo;

begin

    try

        //Проверяем, есть ли файл.

        //Если файла нет, то функция вернёт false.

        Writeln(TFile.Exists(‘C:Test1test1.txt’));

        //Создаём директорию C:Test1.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Создаём файл test.txt.

        TFile.CreateText(‘C:Test1test1.txt’).Free;

        //Проверяем, есть ли файл ещё раз.

        //Теперь файл точно есть, поэтому функция вернёт true.

        Writeln(TFile.Exists(‘C:Test1test1.txt’));

        //Теперь проверяем, существует ли символическая ссылка C:Test1TestLink.

        //Если ссылка не существует, то функция вернёт false.

        Writeln(TFile.Exists(‘C:Test1TestLink’, false));

        //Создадим символическую ссылку C:Test1TestLink на несуществующий файл C:Test1test2.txt.

        //Для создания символической ссылки нужно обладать правами администратора,

        //поэтому создавать её будем с помощью утилиты командной строки mklink,

        //которую будем вызывать от имени администратора.

        //Чтобы вызвать эту утилиту, придётся сначала создать пакетный файл,

        //а затем выполнить его.

        //Итак, сначала создаём пакетный файл с командой mklink.

        TFile.WriteAllText(‘C:Test1tmp.bat’, ‘mklink C:Test1TestLink C:Test1test2.txt’);

        //Теперь выполняем пакетный файл от имени администратора.

        FillChar(execInfo, SizeOf(TShellExecuteInfo), 0);

        execInfo.cbSize := SizeOf(TShellExecuteInfo);

        execInfo.lpVerb := PWideChar(‘runas’);

        execInfo.lpFile := PWideChar(‘C:Test1tmp.bat’);

        execInfo.fMask := SEE_MASK_NOCLOSEPROCESS;

        ShellExecuteEx(@execInfo);

        //Ждём, пока пакетный файл отработает.

        WaitForSingleObject(execInfo.hProcess, INFINITE);

        //Проверяем, существует ли символическая ссылка C:Test1TestLink.

        //Теперь ссылка существует, поэтому функция вернёт true.

        Writeln(TFile.Exists(‘C:Test1TestLink’, false));

        //Проверяем, существует ли символическая ссылка C:Test1TestLink

        //и файл C:Test1test2.txt, на которую она ссылается.

        //Ссылка C:Test1TestLink существует, но файл C:Test1test2.txt — нет,

        //поэтому функция вернёт false.

        Writeln(TFile.Exists(‘C:Test1TestLink’, true));

        //Создаём файл C:Test1test2.txt.

        TFile.Create(‘C:Test1test2.txt’).Free;

        //Опять проверяем, существует ли символическая ссылка C:Test1TestLink

        //и файл C:Test1test2.txt, на которую она ссылается.

        //Теперь ссылка C:Test1TestLink и файл C:Test1test2.txt существуют,

        //поэтому функция вернёт true.

        Writeln(TFile.Exists(‘C:Test1TestLink’, true));

        //Удаляем символическую ссылку.

        TFile.Delete(‘C:Test1TestLink’);

        //Удаляем директорию C:Test1 и все файлы в ней.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, ShellAPI, Windows;

var

    execInfo: TShellExecuteInfo;

    fileName: string;

    symLinkRec: TSymLinkRec;

begin

    try

        //Создаём временную директорию.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Создаём текстовый файл test.txt.

        TFile.WriteAllText(‘C:Test1test.txt’, ‘Здравствуй, мир!’);

        //Создаём символическую ссылку test, которая будет ссылаться на файл test.txt.

        //Для создания символической ссылки нужно обладать правами администратора,

        //поэтому создавать её будем с помощью утилиты командной строки mklink,

        //которую будем вызывать от имени администратора.

        //Чтобы вызвать эту утилиту, придётся сначала создать пакетный файл,

        //а затем выполнить его.

        //Итак, сначала создаём пакетный файл с командой mklink.

        TFile.WriteAllText(‘C:Test1tmp.bat’, ‘mklink C:Test1test C:Test1test.txt’);

        //Теперь выполняем пакетный файл от имени администратора.

        FillChar(execInfo, SizeOf(TShellExecuteInfo), 0);

        execInfo.cbSize := SizeOf(TShellExecuteInfo);

        execInfo.lpVerb := PWideChar(‘runas’);

        execInfo.lpFile := PWideChar(‘C:Test1tmp.bat’);

        execInfo.fMask := SEE_MASK_NOCLOSEPROCESS;

        ShellExecuteEx(@execInfo);

        //Ждём, пока пакетный файл отработает.

        WaitForSingleObject(execInfo.hProcess, INFINITE);

        //Получаем имя файла, на который ссылается символическая ссылка.

        TFile.GetSymLinkTarget(‘C:Test1test’, fileName);

        //Выводим, полученное имя файла. В результате увидим ‘C:Test1test’.

        Writeln(fileName);

        //Получаем все характеристики символической ссылки.

        TFile.GetSymLinkTarget(‘C:Test1test’, symLinkRec);

        //Выводим некоторые поля структуры symLinkRec.

        //Имя целевой папки или файла.

        Writeln(symLinkRec.TargetName);

        //Атрибуты целевого файла.

        Writeln(symLinkRec.Attr);

        //Размер целевого файла.

        Writeln(symLinkRec.Size);

        //Время и дата создания целевого файла или папки.

        Writeln(FormatDateTime(‘dd.mm.yyyy hh:nn:ss:’, symLinkRec.TimeStamp));

        //Удаляем символическую ссылку.

        TFile.Delete(‘C:Test1test’);

        //Удаляем директорию C:Test1 и все файлы в ней.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils, Rtti;

var

    fileAttribute: TFileAttribute;

begin

    try

        //Создаём директорию.

        TDirectory.CreateDirectory(‘C:Test3’);

        //Создаём пустые файлы для экспериментов.

        TFile.Create(‘C:Test3test1.txt’).Free;

        TFile.Create(‘C:Test3test2.txt’).Free;

        //Делаем файл скрытым, выставляя ему атрибут faHidden.

        TFile.SetAttributes(‘C:Test3test1.txt’, [TFileAttribute.faHidden]);

        //Делаем файл доступным только для чтения, выставляя ему атрибут faReadOnly.

        TFile.SetAttributes(‘C:Test3test2.txt’, [TFileAttribute.faReadOnly]);

        //Отображаем все установленные атрибуты файла test1.txt.

        //В результате отобразятся атрибут faHidden.

        for fileAttribute in TFile.GetAttributes(‘C:Test3test1.txt’) do

            Writeln(TRttiEnumerationType.GetName<TFileAttribute>(fileAttribute));

        //Отображаем все установленные атрибуты файла test2.txt.

        //В результате отобразится атрибут faReadOnly.

        for fileAttribute in TFile.GetAttributes(‘C:Test3test2.txt’) do

            Writeln(TRttiEnumerationType.GetName<TFileAttribute>(fileAttribute));

        //Выводим дату и время создания файла test1.txt.

        //В результате отобразится дата и время на момент создания файла.

        Writeln(DateTimeToStr(TFile.GetCreationTime(‘C:Test3test1.txt’)));

        //Устанавливаем дату и время создания файла.

        TFile.SetCreationTime(‘C:Test3test1.txt’, StrToDateTime(‘01.02.03 11:12:13’));

        //Выводим дату и время создания файла.

        //В результате отобразится 01.02.2003 11:12:13.

        Writeln(DateTimeToStr(TFile.GetCreationTime(‘C:Test3test1.txt’)));

        //Выводим дату и время создания файла в формате UTC, т.е. без учёта часового пояса.

        //В результате отобразится 01.02.2003 8:12:13, т.е. -3 часа по Москве.

        Writeln(DateTimeToStr(TFile.GetCreationTimeUtc(‘C:Test3test1.txt’)));

        //Выводим дату и время последнего обращения к файлу.

        Writeln(DateTimeToStr(TFile.GetLastAccessTime(‘C:Test3test1.txt’)));

        //Устанавливаем дату и время последнего обращения к файлу.

        TFile.SetLastAccessTime(‘C:Test3test1.txt’, StrToDateTime(‘01.02.03 11:12:14’));

        //Выводим дату и время последнего обращения к файлу.

        //В результате отобразится 01.02.2003 11:12:14.

        Writeln(DateTimeToStr(TFile.GetLastAccessTime(‘C:Test3test1.txt’)));

        //Выводим дату и время последней записи в файл.

        Writeln(DateTimeToStr(TFile.GetLastWriteTime(‘C:Test3test1.txt’)));

        //Устанавливаем дату и время последней записи в файл.

        TFile.SetLastWriteTime(‘C:Test3test1.txt’, StrToDateTime(‘01.02.03 11:12:15’));

        //Выводим дату и время последней записи в файл.

        //В результате отобразится 01.02.2003 11:12:15.

        Writeln(DateTimeToStr(TFile.GetLastWriteTime(‘C:Test3test1.txt’)));

        //Удаляем директорию и все вложенные файлы.

        TDirectory.Delete(‘C:Test3’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

begin

    try

        //Создаём директории.

        TDirectory.CreateDirectory(‘C:Test1’);

        TDirectory.CreateDirectory(‘C:Test2’);

        //Создаём файл.

        TFile.Create(‘C:Test1file1.txt’).Free;

        //Копируем файл в другую директорию.

        TFile.Copy(‘C:Test1file1.txt’, ‘C:Test2file1.txt’);

        //Ещё раз пытаемся скопировать файл, вместо уже существующего.

        //При этом мы получим ошибку EInOutError с текстом ‘The specified file already exists’.

        try

            TFile.Copy(‘C:Test1file1.txt’, ‘C:Test2file1.txt’);

        except

            //Отлавливаем ошибку EInOutError и ничего не делаем.

            on EInOutError do;

        end;

        //Опять копируем файл вместо существующего,

        //но теперь выставляем параметр Overwrite в true.

        //В этом случае существующий файл заменится на новый.

        TFile.Copy(‘C:Test1file1.txt’, ‘C:Test2file1.txt’, true);

        //Переименовываем файл, оставляя его в той же директории.

        TFile.Move(‘C:Test1file1.txt’, ‘C:Test1file2.txt’);

        //Переносим файл в другую директорию.

        TFile.Move(‘C:Test1file2.txt’, ‘C:Test2file2.txt’);

        //Переносим файл в другую директорию и одновременно переименовываем его.

        TFile.Move(‘C:Test2file2.txt’, ‘C:Test1file3.txt’);

        //Удаляем директории и все вложенные файлы.

        TDirectory.Delete(‘C:Test1’, true);

        TDirectory.Delete(‘C:Test2’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

begin

    try

        //Создаём директорию.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Создаём файл.

        TFile.WriteAllText(‘C:Test1file1.txt’, ‘Содержимое файла’);

        //Шифруем файл.

        TFile.Encrypt(‘C:Test1file1.txt’);

        //Расшифровываем файл.

        TFile.Decrypt(‘C:Test1file1.txt’);

        //Удаляем директории и все вложенные файлы.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

begin

    try

        //Создаём директории.

        TDirectory.CreateDirectory(‘C:Test1’);

        //Создаём два файла.

        TFile.WriteAllText(‘C:Test1file1.txt’, ‘Содержимое первого файла’);

        TFile.WriteAllText(‘C:Test1file2.txt’, ‘Содержимое второго файла’);

        //Шифруем только второй файл file2.txt.

        TFile.Encrypt(‘C:Test1file2.txt’);

        //Заменяем содержимое файла file2.txt на содержимое файла file1.txt.

        //При этом в файл backup.txt отправляется старое содержимое файла file2.txt.

        TFile.Replace(‘C:Test1file1.txt’, ‘C:Test1file2.txt’, ‘C:Test1backup.txt’);

        //После замены содержимого второй файл останется зашифрованным.

        //В консоли появится надпись ‘Файл file2.txt зашифрован.’.

        if TFileAttribute.faEncrypted in TFile.GetAttributes(‘C:Test1file2.txt’) then

            Writeln(‘Файл file2.txt зашифрован.’);

        //Удаляем директории и все вложенные файлы.

        TDirectory.Delete(‘C:Test1’, true);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    SysUtils, IOUtils;

begin

    try

        //Результат будет ».

        Writeln(TPath.DirectorySeparatorChar);

        //Результат будет ‘/’.

        Writeln(TPath.AltDirectorySeparatorChar);

        //Результат будет ‘.’.

        Writeln(TPath.ExtensionSeparatorChar);

        //Результат будет ‘;’.

        Writeln(TPath.PathSeparator);

        //Результат будет ‘:’.

        Writeln(TPath.VolumeSeparatorChar);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.