управление ProgressBar-ом через dll

[Volkogriz]

Доброе время суток!
неподскжите как осушествить управление ProgressBar-ом который находится на форме приложение через dll.
в дллке находится примерно такой код:

procedure Log;
var
c,i:integer;
uninstallList:TStrings;
begin
uninstallList:= TStringList.Create;
uninstallList.LoadFromFile(extractfilepath(application.exename)+'uninstal.log');
for i:=0 to uninstallList.count-1 do
deletefile(Pchar( uninstallList.Strings[i]));
for c:=0 to uninstallList.count-1 do
RemoveDirectory(PChar(uninstallList.Strings[C]));
uninstallList.free;
end;
exports Log;

как зделать чтобы при удалении файла двигался прогрес ?
Зарание благодарен!
С уважением,
Volkogriz!

[MaxNik2009]

примерно так:

const
  Set_PB = wm_user + 2;

procedure Log( PbHandle: HWND{хэндл прогрессбара});stdcall;
var
c,i:integer;
uninstallList:TStrings;
begin
uninstallList:= TStringList.Create;
uninstallList.LoadFromFile(extractfilepath(application.exename)+'uninstal.log');

for i:=0 to uninstallList.count-1 do
begin
  deletefile(Pchar( uninstallList.Strings[i]));
  SendMessage(PbHandle, Set_PB , i {позиция прогрессбара},0);
end;


for c:=0 to uninstallList.count-1 do
RemoveDirectory(PChar(uninstallList.Strings[C]));


uninstallList.free;
end;
exports Log;

Передавай из своей проги в dll Хендл прогрессбара.

procedure Log( PbHandle: HWND); stdcall; external 'YorDll';

//..............................
// где то в проге

  log(progressBar1.Handle);

//...............

[Volkogriz]

Доброе время Суток!
delphi ругается на wm_user
в uses я добавел ShellApi
А delphi выдаёт:
[Error] uninstall.dpr(55): Undeclared identifier: 'wm_user'
что это значит я знаю!
но как исправить нет
Что зделать?

С уважением,
Volkogriz!

[spamer]

Модуль в unit добавь следующий - Messages

[Volkogriz]

Огромное спасибо!