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

[flug]

Всем доброго времени суток!
Я нашёл в инете код копирования файлов с прогресс баром, и этот код решил запихнуть в dll, в основном приложении кидаю progressbar на форму и управляю им из dll посылая ему сообщения, так вот вопрос в том почему пока копируется файл замораживается основное приложени, и что с этим делать. Может как-то CallBack испоьзовать надо, правда не пойму как. Вот код копирования файлов который я запихнул в длл.

type
  TCallBack = procedure(Position, Size: Longint);

procedure FastFileCopy(const InFileName, OutFileName: string;
  CallBack: TCallBack);


implementation
{$R *.dfm}

procedure FastFileCopyCallBack(Position, Size: Longint);
begin
  Form1.ProgressBar1.Max := Size;
  Form1.ProgressBar1.Position := Position;
end; 

procedure FastFileCopy(const InFileName, OutFileName: string; 
  CallBack: TCallBack);
const 
  BufSize = 3 * 4 * 4096;
type
  PBuffer = ^TBuffer; 
  TBuffer = array[1..BufSize] of Byte; 
var
  Size: DWORD; 
  Buffer: PBuffer; 
  infile, outfile: file;
  SizeDone, SizeFile: LongInt; 
begin 
  if (InFileName <> OutFileName) then
  begin 
    buffer := nil; 
    Assign(infile, InFileName);
    Reset(infile, 1); 
    try 
      SizeFile := FileSize(infile);
      Assign(outfile, OutFileName); 
      Rewrite(outfile, 1); 
      try
        SizeDone := 0; 
        New(Buffer); 
        repeat
          BlockRead(infile, Buffer^, BufSize, Size); 
          Inc(SizeDone, Size);
          CallBack(SizeDone, SizeFile); 
          BlockWrite(outfile, Buffer^, Size)
        until Size < BufSize; 
        FileSetDate(TFileRec(outfile).Handle,
        FileGetDate(TFileRec(infile).Handle)); 
      finally
        if Buffer <> nil then 
          Dispose(Buffer);
        CloseFile(outfile) 
      end;
    finally 
      CloseFile(infile);
    end; 
  end
  else 
    raise EInOutError.Create('File cannot be copied onto itself')
end; {FastFileCopy}

[_SERGEYX_]

пока копируется файл замораживается основное приложени, и что с этим делать

Навскидку, может Application.ProcessMessages вписать?

[flug]

_SERGEYX_
В главном приложении не помогает, а в dll Application.ProcessMessages вставить нельзя.

[evg_m]

в основном приложении кидаю progressbar на форму и управляю им из dll

Вот код копирования файлов который я запихнул в длл.

Зачем в DLL есть вот это?!

procedure FastFileCopyCallBack(Position, Size: Longint);
begin
  Form1.ProgressBar1.Max := Size;
  Form1.ProgressBar1.Position := Position;
end;

[flug]

evg_m
Сорри, это я по не внимательности оставил, а на самом деле в dll так:

procedure FastFileCopyCallBack(Position, Size: Longint);
begin
SendMessage(h, PBM_SETPOS, Position, 0);
end;

[evg_m]

поробуй
PostMessage(....);

[Пепел Феникса]

и все в одном потоке...сообщения от того что в DLL обрабатываться не станут