Материал: Программа, производящая поиск дублирующихся файлов на диске

•  Для запуска требуется двойной щелчок мыши на файл программы.

Программа не требует установки, после запуска нажимаете «Ок» после чего в директории с программой появятся два файла, не пугайтесь, это отчеты.

Рисунок 2 - расположение файлов программы

После запуска вы увидите диалоговое окно

Рисунок 3 - Главное окно программы

Выбираете режим работы, критерии поиска и дополнительные параметры

Рисунок 4 - Настройка работы программы (1)

Выбираете директорию для поиска и нажимаете «Start scanning»

Рисунок 5 - Настройка работы программы (2)

Ждете пока пройдет поиск дублирующихся файлов:

Рисунок 6 - Поиск дублирующихся файлов

После чего закрываете программу

Исходный код программы

MainForm: TMainForm= 399= 250= bsToolWindow= 'Server/Client UDP'= 193= 325= clBtnFace.Charset = DEFAULT_CHARSET.Color = clWindowText.Height = -11.Name = 'MS Sans Serif'.Style = []= False= poDesktopCenter= FormCreate= 96= 13GroupText: TGroupBox= 0

Top = 0= 325= 124= alTop

Caption = #1056#1072#1073#1086#1090#1072' '#1089' '#1090#1077#1082#1089#1090#1086#1084

TabOrder = 0SendEdit: TEdit= 8= 16= 233= 21= 0

endSendBtn: TButton= 246= 15= 70= 22= #1054#1090#1086#1089#1083#1072#1090#1100= 1

OnClick = SendBtnClickMemo: TMemo= 9= 40= 305= 77= True= 2FileGroup: TGroupBox= 0

Top = 124

Width = 325= 69= alClient= #1056#1072#1073#1086#1090#1072' '#1089' '#1092#1072#1081#1083#1072#1084#1080= 1SendFileBtn: TButton= 171= 42= 70= 22= #1054#1090#1087#1088#1072#1074#1080#1090#1100= 0

OnClick = SendFileBtnClick

endFileEdit: TEdit= 8= 16= 307= 21= True= 1SetFile: TButton= 246= 42= 70= 22= #1059#1082#1072#1079#1072#1090#1100= 2= SetFileClick

object UDPClient: TIdUDPClient

BufferSize = 100000

Host = 'localhost'= 1152= 16= 48UDPServer: TIdUDPServer= True= 100000= <>= 1152= UDPServerUDPRead= 48= 48OpenDialog: TOpenDialog= 80= 48SaveDialog: TSaveDialog= 112= 48CmdForm: TCmdForm= 428= 230= [biSystemMenu]= bsDialog= #1053#1086#1074#1072#1103' '#1079#1072#1076#1072#1095#1072= 96= 261= clBtnFace.Charset = DEFAULT_CHARSET.Color = clWindowText.Height = -11.Name = 'MS Sans Serif'.Style = []= False= poMainFormCenter= 96= 13Label1: TLabel= 8

Top = 8= 241

Height = 17= False= #1042#1074#1077#1076#1080#1090#1077' '#1080#1083#1080' '#1074#1099#1073#1077#1088#1080#1090#1077' '#1080#1084#1103' '#1079#1072#1076#1072#1095#1080':'okbtn: TButton= 96= 64= 75= 25= #1054#1050= 0

OnClick = okbtnClickcancelbtn: TButton

Left = 176= 64= 75= 25= #1054#1090#1084#1077#1085#1072= 1= cancelbtnClickCmdtext: TComboBox= 8= 32= 241= 21= 13= 2.Strings = (

'cmd'

'regedit'

'control'

'control desk.cpl'

'control inetcpl.cpl'

'control modem.cpl'

'control sysdm.cpl'

'control appwiz.cpl')Form1: TForm1= 235= 135= [biSystemMenu, biMinimize]= bsSingle

Caption = 'Snake'= 319= 300= clBtnFace.Charset = DEFAULT_CHARSET.Color = clWindowText.Height = -11.Name = 'MS Sans Serif'.Style = []= True= MainMenu1= False= poDesktopCenter= FormCreate= FormKeyUp= 96= 13Area: TImage= 0= 0= 300= 300Wall: TImage= 312= 16= 17= 17= True= FalseLenPlus: TImage= 312= 40= 15= 15= FalseStatusBar1: TStatusBar= 0= 300= 300= 19= <= #1044#1083#1080#1085#1072':'

Width = 100= #1057#1082#1086#1088#1086#1089#1090#1100':'= 150>Timer1: TTimer= False= 500= Timer1Timer= 152= 48MainMenu1: TMainMenu= 120= 48N1: TMenuItem= #1048#1075#1088#1072N3: TMenuItem= #1047#1072#1075#1088#1091#1079#1080#1090#1100' '#1082#1072#1088#1090#1091N8: TMenuItem= #1057#1083#1091#1095#1072#1081#1085#1072#1103' '#1082#1072#1088#1090#1072= N8ClickN5: TMenuItem= '-'N4: TMenuItem

Caption = #1042#1099#1093#1086#1076

OnClick = N4ClickN2: TMenuItem= #1055#1086#1084#1086#1097#1100N6: TMenuItem= #1057#1087#1088#1072#1074#1082#1072N7: TMenuItem= #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077'...'= N7Click