получить "чистое" имя файла

[wm_leviathan]

Доброго вермени суток. суть такова имеется папка с архивами необходимо следить за ней и как только в ней появился новый архив, то скопировать его в другую папку. слежу за папкой так:

procedure TThreadMonFile.MonFile;
const  Filter =
  FILE_NOTIFY_CHANGE_FILE_NAME or
            FILE_NOTIFY_CHANGE_DIR_NAME or
            FILE_NOTIFY_CHANGE_ATTRIBUTES or
            FILE_NOTIFY_CHANGE_SIZE or
            FILE_NOTIFY_CHANGE_LAST_WRITE or
            FILE_NOTIFY_CHANGE_LAST_ACCESS or
            FILE_NOTIFY_CHANGE_CREATION or
            FILE_NOTIFY_CHANGE_SECURITY;
var
  Dir: THandle;
  Notify: TFileNotifyInformation;
  BytesReturned: DWORD;
  Source: string;
begin
  Source:= mainform.Source+ '\';
  Dir := CreateFile(PChar(Source), GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
    nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if Dir <> INVALID_HANDLE_VALUE then
  try
    if not ReadDirectoryChangesW(Dir, @Notify, SizeOf(TFileNotifyInformation),
      False, Filter, @BytesReturned, nil, nil) then
      raise Exception.Create(SysErrorMessage(GetLastError))
    else
      if Notify.Action = FILE_ACTION_ADDED then begin
      form1.Memo1.Lines.Add('Имеется новый архив: ' + Notify.FileName);


 NewF:=  Notify.FileName;
      end;

  finally
    CloseHandle(Dir);
  end;
end;

переменная NewF (глобалка) типа strin а вот Notify.FileName типа array of WideChar и возвращает мне несовсем точное имя. К примеру я скопировал в "наблюдаемую" папку новый архив New.rar, тогда переменной NewF присвоится имя "New.rar??????????#3"(типа того) что не совсем правильно. как сделать так чтоб оно возвращало нормальное имя файла "New.rar" ?

[SERG1980]

Мне в своё время Stilet подкинул хороший юнит для слежки за файлами

[wm_leviathan]

SERG1980 огромное спасибо за пример.(кстати там есть чему поучиться+очень приятно что работает со вложенными папками) но... вопрос был нмножко другой "как сделать так чтобы notifity.filename возвращало "читое имя" а не имя + каракули. вот полный листинг модуля:

unit ThreadMonFile;

interface

uses
  Classes,Windows,Messages, SysUtils, Variants, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TThreadMonFile = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure MonFile;
    function ApplicationUse(fName: string): boolean;
  end;

type
  PFileNotifyInformation = ^TFileNotifyInformation;
  TFileNotifyInformation = record
    NextEntryOffset: DWORD;
    Action: DWORD;
    FileNameLength: DWORD;
    FileName: array [0..MAX_PATH - 1] of WideChar;

end;

var
NewF: string;

implementation
uses MainForm,Thread1;
{ TThreadMonFile }


procedure TThreadMonFile.Execute;
begin
  { Place thread code here }
MonFile;
end;

procedure TThreadMonFile.MonFile;
const  Filter =
  FILE_NOTIFY_CHANGE_FILE_NAME or
            FILE_NOTIFY_CHANGE_DIR_NAME or
            FILE_NOTIFY_CHANGE_ATTRIBUTES or
            FILE_NOTIFY_CHANGE_SIZE or
            FILE_NOTIFY_CHANGE_LAST_WRITE or
            FILE_NOTIFY_CHANGE_LAST_ACCESS or
            FILE_NOTIFY_CHANGE_CREATION or
            FILE_NOTIFY_CHANGE_SECURITY;
var
  Dir: THandle;
  Notify: TFileNotifyInformation;
  BytesReturned: DWORD;
  Source: string;
begin
  Source:= mainform.Source+ '\';
  Dir := CreateFile(PChar(Source), GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
    nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if Dir <> INVALID_HANDLE_VALUE then
  try
    if not ReadDirectoryChangesW(Dir, @Notify, SizeOf(TFileNotifyInformation),
      False, Filter, @BytesReturned, nil, nil) then
      raise Exception.Create(SysErrorMessage(GetLastError))
    else
      
      if Notify.Action = FILE_ACTION_ADDED then begin
      form1.Memo1.Lines.Add('Имеется новый архив: ' + Notify.FileName);


     NewF:=  Notify.FileName;//к примеру если файл open.bmp То будет open.bmp????????#3 что в дальнейшем не даст работать с файлом.
      end;

  finally
    CloseHandle(Dir);
  end;
Form1.Memo1.Lines.Add('Копирование начато: ' + DateToStr(Now)+' : '+TimeToStr(Now));
TThreadCopy.Create(False);
end;
end.

это модуль потока т.к. скажем так "наблюдение" за папкой происходит у меня в отдельном потоке.

[Stilet]

а не имя + каракули.

Я ты очищай массив FileName перед использованием ReadDirectoryChangesW
например функцией FillChar. передавая ей #0

[wm_leviathan]

Если честно не понял как работает функция FillChar заполняет пустые значения ? если бы вы показали было бы неплохо.
ЗЫ решение сделал по старинке:

NewF:='';
      i:=0;
      k := Notify.FileNameLength;
  while i<=k/2-1 do begin
     NewF:= NewF + Notify.FileName[i];
     i := i+1;
  end;

[Utkin]

FillChar - http://www.delphisources.ru/pages/fa...lChar.php.html
Заполнять символом пробела

[Stilet]

Заполнять символом пробела

Я б лучше #0-м заполнял... Он всетки терминатор принятой ASCIIZ строки в Винде...

[Utkin]

Ну в общем можно и так. Но есть один момент. Все эти нули, кроме последнего останутся недоступными, если конечно их специально не шебуршить . Короче, чревато утечками памяти...

[Stilet]

А я вот не помню менеджер памяти Делфи следит за освобождением локальных образмеренных или финализированных переменных?

[wm_leviathan]

по умолчанию Notify.FileName возвращал мне (к примеру файл open.bat) open.bat#0#0#0#0#0#0#0#0#0#0#0#0#0# 0#0#0#0#0#0#0
и присваивалось переменной именно такое имя что в дальнейшем не даст использовать в какой нить функции. поэтому мне надо было убрать мусор типа #0 или #3.