Отслеживание создания/изменения файлов на накопителях (cd/usb)

@extzzy · Регистрация: 03.04.2015

Author24 — интернет-сервис помощи студентам

День добрый, имеется одна проблемка с потоками. Необходимо создать софт, позволяющий отслеживать создание/изменение файлов на накопителях(cd/usb). На просторах интернета я нашел пару примеров для создания такой программки, но необходимо дополнить, основной функционал я реализовал, но никак не могу сообразить в чём загвоздка. Один немаловажный нюанс, одновременно в пк может быть воткнуто две или более флешки, соотвественно необходимо следить за каждым накопителем в отдельном потоке. Вот в этом у меня и проблема. Подскажите пожалуйста как решить её.
ps за ужасный код не пинайте, я оочень редко пишу на делфи

Delphi

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, UDirMon;
 
const
  WMNotify = WM_USER; //Номер сообщений, которые отправляет монитор.
 
type
  TForm1 = class(TForm)
    BtnDmStart: TButton;
    BtnDmStop: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Memo3: TMemo;
    Memo4: TMemo;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Memo5: TMemo;
    Button1: TButton;
    procedure BtnDmStartClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SaveMon;
    procedure SaveLog;
    procedure Start(Drive:string);
    procedure Stop(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
    procedure BtnDmStopClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  protected
    procedure ProcDmNotify(var Message: TWMNoParams); message WMNotify;
    procedure DmTerminate(Sender: TObject);
 
  public
    { Public declarations }
    FPath : String;
    FDmThr : TDmThr;
    FHMtxBuff : THandle;
  end;
    const
     DBT_DeviceArrival = $8000;
   DBT_DeviceRemoveComplete = $8004;
   DBTF_Remove = $0000;
   DBTF_Media = $0001;
   DBT_DevTyp_Volume = $0002;
 
 type
   PDevBroadcastHdr = ^TDevBroadcastHdr;
   TDevBroadcastHdr = packed record
     dbcd_size: DWORD;
     dbcd_devicetype: DWORD;
     dbcd_reserved: DWORD;
   end;
 
 type
   PDevBroadcastVolume = ^TDevBroadcastVolume;
   TDevBroadcastVolume = packed record
     dbcv_size: DWORD;
     dbcv_devicetype: DWORD;
     dbcv_reserved: DWORD;
     dbcv_unitmask: DWORD;
     dbcv_flags: Word;
   end;
   tnew = class(tthread)
  private
  s: string;
  procedure addstr;
  protected
  procedure execute; override;
  end;
 
 
 
 
var
  Form1: TForm1;
  fl, fl_mon : TextFile;
  drive:string;
  aTh : array ['A'..'Z'] of tnew;
...
procedure TForm1.ProcDmNotify(var Message: TWMNoParams);
var
  i : Integer;
  ResWait : Integer;
  PFni, PFniPrev : TPFni;
  S : String;
  Ws : WideString;
begin
 
  i := 0;
  repeat
    Inc(i);
    Application.ProcessMessages;
    ResWait := WaitForSingleObject(FHMtxBuff, 100);
  until (i = 10) or (ResWait = WAIT_OBJECT_0);
  if ResWait <> WAIT_OBJECT_0 then begin
    Memo2.Lines.Add('Монитор не отвечает!');
    Memo4.Lines.Add('Монитор не отвечает!');
    SaveMon;
    Exit;
  end;
  try
    if FDmThr.FBuffSize > 0 then begin
      PFni := @FDmThr.FBuff[0];
      repeat
        S := '----------'#13#10'Действие: ';
        case PFni^.Action of
          FILE_ACTION_ADDED    : S := S + 'Создание файла.';
          FILE_ACTION_REMOVED  : S := S + 'Удаление файла.';
          FILE_ACTION_MODIFIED : S := S + 'Изменение атрибутов файла.';
          FILE_ACTION_RENAMED_OLD_NAME : S := S + 'Переименование файла. Прежнее имя.';
          FILE_ACTION_RENAMED_NEW_NAME : S := S + 'Переименование файла. Новое имя.';
        else
          S := S + 'Незарегистрированное действие!';
        end;
        SetLength(Ws, PFni^.FileNameLength div SizeOf(WideChar));
        CopyMemory(Pointer(Ws), @PFni^.FileName, PFni^.FileNameLength);
 
 
        S := S + #13#10'Имя файла (папки): ' + Ws+ #13#10'Дата и время: '+FormatDateTime('dd.mm.yyyy"-"hh:nn:ss', Now);
        //Добавляем сведения в Мемо.
 
        if  (PFni^.Action=FILE_ACTION_ADDED)and (Form2.CheckBox2.Checked=false) then    
        S:='';
        if  (PFni^.Action=FILE_ACTION_REMOVED)and (Form2.CheckBox3.Checked=false) then    
        S:='';
        if  (PFni^.Action=FILE_ACTION_MODIFIED)and (Form2.CheckBox4.Checked=false) then     
        S:='';
        if  (PFni^.Action=FILE_ACTION_RENAMED_NEW_NAME)and (Form2.CheckBox5.Checked=false) then    
        S:='';
        if  (PFni^.Action=FILE_ACTION_RENAMED_OLD_NAME)and (Form2.CheckBox5.Checked=false) then     
        S:='';
        Memo3.Lines.Add(S);
        Memo1.Lines.Add(S);
        SaveLog;
 
 
        for i := 0 to Memo1.Lines.Count - 1000 do
          Memo1.Lines.Delete(0);
        PFniPrev := PFni;
        Inc(PByte(PFni), PFni^.NextEntryOffset);
      until PFniPrev^.NextEntryOffset = 0;
      FDmThr.FBuffSize := 0;
    end;
  finally
    ReleaseMutex(FHMtxBuff);
  end;
end;
 
procedure TForm1.DmTerminate(Sender: TObject);
var
  Err : Integer;
begin
  Err := FDmThr.FErr;
  Memo2.Lines.Add(FormatDateTime('dd.mm.yyyy"-"hh:nn:ss', Now) + '. Монитор остановлен.');
  Memo4.Lines.Add(FormatDateTime('dd.mm.yyyy"-"hh:nn:ss', Now) + '. Монитор остановлен.');
  SaveMon;
  if Err <> 0 then  begin
    Memo2.Lines.Add(Format('При работе монитора возникла ошибка.'
      + ' Код: %d, сообщение:'#13#10'%s', [Err, SysErrorMessage(Err)]));
      Memo4.Lines.Add(Format('При работе монитора возникла ошибка.'
      + ' Код: %d, сообщение:'#13#10'%s', [Err, SysErrorMessage(Err)]));
      SaveMon;
      end;
  FDmThr := nil;
end;
 
   procedure Tform1.BtnDmStartClick(Sender: TObject);
   var
   drive:string;
   Ini: Tinifile;
   force,hide:boolean;
    begin
    Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
  hide:=Ini.ReadBool('general','hide', true);
  force:=Ini.ReadBool('general','force', true);
    if (hide=true) then begin
    force:=false;
    end
    else
    begin
    if (force=true) then begin   
 
      if not SelectDirectory(Drive, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
      Exit;
      if not DirectoryExists(Drive) then begin
        MessageBox(Handle, 'Заданный путь не найден. Действие отменено.',
        'Отмена', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
        Exit;
      end
      else                           
        form1.start('C:\cd\');
      end
      else
      ShowMessage('Включите ручной режим');
    end;
     end;
 
procedure Tform1.Start(Drive:string);
var
hide:boolean;
begin
 
   Fpath:=Drive;
   if (hide=false) then begin
   end;
     ShowMessage(Fpath);
 
 
  Memo2.Lines.Add('--------------------------------------------------');
  Memo4.Lines.Add('--------------------------------------------------');
  SaveMon;
 
  if FHMtxBuff = 0 then begin
    FHMtxBuff := CreateMutex(nil, True, nil);
    ReleaseMutex(FHMtxBuff);
  end;
 
  FDmThr := TDmThr.Create(True);
  FDmThr.FreeOnTerminate := True; 
  FDmThr.OnTerminate := DmTerminate; 
  FDmThr.FPath := FPath;
  FDmThr.FHMtxBuff := FHMtxBuff; 
  FDmThr.FHNotify := Handle; 
  FDmThr.FWMNotify := WMNotify;
  FDmThr.Resume;
 
  Memo2.Lines.Add(FormatDateTime('dd.mm.yyyy"-"hh:nn:ss', Now) +  '. Монитор запущен.');
  Memo2.Lines.Add('Путь: ' + FPath);
 
  Memo4.Lines.Add(FormatDateTime('dd.mm.yyyy"-"hh:nn:ss', Now) +  '. Монитор запущен.');
  Memo4.Lines.Add('Путь: ' + FPath);
   SaveMon;
 
end;
 
 
procedure TForm1.Stop(Sender: TObject);
var
  i, ResWait : Integer;
  HDm : THandle;
  Btn : TButton;
begin
  Btn := TButton(Sender);
  if Btn <> nil then
    Btn.Enabled := False;
  try
   
    if FDmThr = nil then
      Memo2.Lines.Add('Исходное состояние: монитор не работает.')
    else begin
    
      HDm := FDmThr.Handle;
      
      FDmThr.Terminate;
      
      i := 0;
      repeat
        Inc(i);
        Application.ProcessMessages;
        ResWait := WaitForSingleObject(HDm, 100);
      until (i = 10) or (ResWait = WAIT_OBJECT_0);
    
      if ResWait = WAIT_TIMEOUT then begin
        TerminateThread(HDm, 0);
        Memo2.Lines.Add(FormatDateTime('dd.mm.yyyy"-"hh:nn:ss:zzz', Now)
          + '. Монитор остановлен принудительно.');
        
        FreeAndNil(FDmThr);
      end;
    end;
  finally
    if Btn <> nil then
      Btn.Enabled := True;
  end;
end;
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  
  BtnDmStopClick(nil);
  Action := caFree;
end;
...
rocedure TForm1.FormCreate(Sender: TObject);
var
 Ini: Tinifile;
 hide:boolean;
begin
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
   hide:=Ini.ReadBool('general','hide', false);
  if (hide=true) then Form1.BtnDmStart.Click;
end;
 
function GetDrive(pDBVol: PDevBroadcastVolume): string;
 var
   i: Byte;
   Maske: DWORD;
 begin
   if (pDBVol^.dbcv_flags and DBTF_Media) = DBTF_Media then
   begin
     Maske := pDBVol^.dbcv_unitmask;
     for i := 0 to 25 do
     begin
       if (Maske and 1) = 1 then
         Result := Char(i + Ord('A'));
       Maske := Maske shr 1;
     end;
   end
   else
  if (pDBVol^.dbcv_flags and DBTF_Remove) = DBTF_Remove then
    begin
    Maske := pDBVol^.dbcv_unitmask;
    for i := 0 to 25 do
    begin
      if (Maske and 1) = 1 then
        Result := Char(i + Ord('A'));
      Maske := Maske shr 1;
    end;
  end;
end;
 
 
 
 procedure TForm1.WMDeviceChange(var Msg: TMessage);
 var
   Drive: string;
   VolumeName,
  FileSystemName : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo : DWord;
  MaxComponentLength,FileSystemFlags: Cardinal;
  p:PChar;
  tom:char;
  index:word;
 begin
 
   case Msg.wParam of
     DBT_DeviceArrival:
       if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
       begin
         Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
         p:=pchar(drive+':\');
        GetVolumeInformation(p, VolumeName,MAX_PATH,@VolumeSerialNo,
        MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
        Memo3.Lines.Add('--------------------------------------------------');
        Memo3.Lines.Add('Обнаружено новое устройство');
        case GetDriveType(p) of
          0: Memo3.Lines.Add('The drive type cannot be determined');
          DRIVE_REMOVABLE: Memo3.Lines.Add('USB накопитель');
          DRIVE_FIXED: Memo3.Lines.Add('The disk cannot be removed');
          DRIVE_REMOTE: Memo3.Lines.Add('The drive is remote (network) drive');
          DRIVE_CDROM: Memo3.Lines.Add('CD/DVD диск');
          DRIVE_RAMDISK: Memo3.Lines.Add('RAM Disk');
        end;
        Memo3.Lines.Add('Метка тома: '+Drive);
        Memo3.Lines.Add('Название тома: '+VolumeName);
        Memo3.Lines.Add('Серийный номер: $'+IntToHex(VolumeSerialNo,8));
        Memo3.Lines.Add('CompLen: '+IntToStr(MaxComponentLength));
        Memo3.Lines.Add('Flags: $'+IntToHex(FileSystemFlags,4));
        Memo3.Lines.Add('Файловая система: '+FileSystemName);
        Memo3.Lines.Add('--------------------------------------------------');
         if (form2.CheckBox6.Checked=true) then else
 
      begin
      tom:=(Drive[1]);
      //ShowMessage(tom);
        aTh[tom] := tnew.Create(true);
        aTh[tom].FreeOnTerminate := True;
        aTh[tom].priority := tplowest;
        aTh[tom].s:= Drive+':\';
        aTh[tom].resume;
        ShowMessage(tom);
      end;
  end;
     DBT_DeviceRemoveComplete:
       if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
       begin
         Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
          GetVolumeInformation(p,VolumeName,MAX_PATH,@VolumeSerialNo,
        MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
        Memo3.Lines.Add('--------------------------------------------------');
        Memo3.Lines.Add('Удалено устройство');
        Memo3.Lines.Add('Метка тома: '+Drive);
        Memo3.Lines.Add('--------------------------------------------------');
         //showMessage('Устройство извлечено из ' + Drive);
         //form1.Stop(nil);
 
       end;
   end;
 end;
 
 procedure TForm1.BtnDmStopClick(Sender: TObject);
begin
form1.Stop(nil);
end;
 
procedure tnew.addstr;
begin
form1.start(s);
end;
 
procedure tnew.execute;
begin
synchronize(addstr); 
 
end;

Насчёт оптимизации кода, я всё прекрасно понимаю, просто очень тороплюсь, обязательно поправлю позднее

@qwertehok · 28.07.2017, 11:50

Сообщение от extzzy

Вот в этом у меня и проблема.

а проблема то в чем? где вопрос?

зачем кидать весь код без пояснения что и где не работает?

@FIL · 28.07.2017, 13:10

У тебя одна переменная FDmThr на все потоки что ли?
И непонятно зачем нужен tnew.

@extzzy · 28.07.2017, 14:45 **[ТС]**

Сообщение от qwertehok

зачем кидать весь код без пояснения что и где не работает?

Комментарии при копировании превращаются в абракадабру)

Сообщение от FIL

У тебя одна переменная FDmThr на все потоки что ли?
И непонятно зачем нужен tnew.

Да, вовсе не нужен. Прикрепил проект, там с комментариями и без tnew.
Мониторинг работает, но только с последним подключенным устройством, вопрос остается тот-же как сделать наблюдение сразу за несколькими устройствами?

@extzzy · 28.07.2017, 14:49 **[ТС]**

Последнее что я сделал, точнее попытался сделать это массив из потоков. Т.е. при подключении устройства должен автоматически создаваться поток с меткой тома и соотвественно мониторить)

@qwertehok · 28.07.2017, 15:58

что за бред у вас в потоке? что за Showmessage? что за мемо?
поток к VCL обращается только через синхронизацию. отдаете потоку букву и все, поток работает

и опять вы не пишите в чем именно проблема

@extzzy · 28.07.2017, 16:04 **[ТС]**

Сообщение от qwertehok

и опять вы не пишите в чем именно проблема

Сообщение от extzzy

Мониторинг работает, но только с последним подключенным устройством, вопрос остается тот-же как сделать наблюдение сразу за несколькими устройствами?

Вроде написал

Сообщение от qwertehok

поток к VCL обращается только через синхронизацию

Если поток обращается к vcl только через синхронизацию, соотвественно на форме ничего не должно меняться, если нет синхронизации?

@qwertehok · 28.07.2017, 16:13

Сообщение от extzzy

вопрос остается тот-же как сделать наблюдение сразу за несколькими устройствами?

запустить столько правильных потоков сколько нужно

Сообщение от extzzy

Вроде написал

а как вам ответить? переписать ваш код на правильный?

Сообщение от extzzy

соотвественно на форме ничего не должно меняться, если нет синхронизации?

конечно, поток работает где-то там. просто работает и делает свое дело.

@extzzy · 28.07.2017, 16:15 **[ТС]**

Сообщение от qwertehok

а как вам ответить? переписать ваш код на правильный?

Да неет, я же для этого сюда и написал, чтобы вы мне указали ошибки. Если бы я хотел чтобы мне переписали я бы просто заплатил

@qwertehok · 28.07.2017, 16:21

без потоков у вас работает?

отладьте работу с потоками, уберите все лишнее

@Cyborg Drone · 31.07.2017, 11:37

Не по теме:

Сообщение от extzzy

Комментарии при копировании превращаются в абракадабру)

Перед копированием переключайтесь на русскую раскладку.

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	28.07.2017, 11:50	2
	Сообщение от extzzy Вот в этом у меня и проблема. а проблема то в чем? где вопрос? зачем кидать весь код без пояснения что и где не работает? 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	28.07.2017, 13:10	3
	У тебя одна переменная FDmThr на все потоки что ли? И непонятно зачем нужен tnew. 0

@extzzy 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 5
	28.07.2017, 14:49 [ТС]	5
	Последнее что я сделал, точнее попытался сделать это массив из потоков. Т.е. при подключении устройства должен автоматически создаваться поток с меткой тома и соотвественно мониторить) 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	28.07.2017, 15:58	6
	что за бред у вас в потоке? что за Showmessage? что за мемо? поток к VCL обращается только через синхронизацию. отдаете потоку букву и все, поток работает и опять вы не пишите в чем именно проблема 0

@extzzy 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 5
	28.07.2017, 16:04 [ТС]	7
	Сообщение от qwertehok и опять вы не пишите в чем именно проблема Сообщение от extzzy Мониторинг работает, но только с последним подключенным устройством, вопрос остается тот-же как сделать наблюдение сразу за несколькими устройствами? Вроде написал Сообщение от qwertehok поток к VCL обращается только через синхронизацию Если поток обращается к vcl только через синхронизацию, соотвественно на форме ничего не должно меняться, если нет синхронизации? 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	28.07.2017, 16:13	8
	Сообщение от extzzy вопрос остается тот-же как сделать наблюдение сразу за несколькими устройствами? запустить столько правильных потоков сколько нужно Сообщение от extzzy Вроде написал а как вам ответить? переписать ваш код на правильный? Сообщение от extzzy соотвественно на форме ничего не должно меняться, если нет синхронизации? конечно, поток работает где-то там. просто работает и делает свое дело. 0

@extzzy 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 5
	28.07.2017, 16:15 [ТС]	9
	Сообщение от qwertehok а как вам ответить? переписать ваш код на правильный? Да неет, я же для этого сюда и написал, чтобы вы мне указали ошибки. Если бы я хотел чтобы мне переписали я бы просто заплатил 0

@qwertehok 5583 / 4433 / 1080 Регистрация: 29.08.2013 Сообщений: 27,729 Записей в блоге: 3
	28.07.2017, 16:21	10
	без потоков у вас работает? отладьте работу с потоками, уберите все лишнее 0

@Cyborg Drone
	31.07.2017, 11:37 Отслеживание создания/изменения файлов на накопителях (cd/usb) #11
	Не по теме: Сообщение от extzzy Комментарии при копировании превращаются в абракадабру) Перед копированием переключайтесь на русскую раскладку. 0