Здрасте!
Господа - профессионалы, ну ткните пожалуйста носом чайника (т.е. меня) в правильное направление.
Я хочу сделать следующее, нужно скопировать файл из одной диры в другую, но, допустим при нажатии кнопки "Копировать", должно появляться модальное окно с ProgressBar-ом, отображающее в точности процесс копирования этого файла.
Пожалуйста, помогите! Ввек НЕ ЗАБУДУ! И еще не скромный вопросик: примерчик можно?

Код

uses ShellApi; .......... function CopyMoveFiles( const FromList, ToList: String; Move: Boolean ): Boolean; var FOS : TSHFileOpStruct;    Buf : PChar;    L : Integer; begin  L := Length( FromList );  GetMem( Buf, L + 2 );  StrCopy( Buf, PChar( FromList ) );  Buf[ L + 1 ] := #0;  for L := L downto 0 do    if Buf[ L ] = ';' then Buf[ L ] := #0;  FillChar( FOS, Sizeof( FOS ), 0 );  if application<> nil then    FOS.Wnd := application.Handle;  if Move then  begin    FOS.wFunc := FO_MOVE;    FOS.lpszProgressTitle := PChar( 'Move files' );  end    else  begin    FOS.wFunc := FO_COPY;    FOS.lpszProgressTitle := PChar( 'Copy files' );  end;  FOS.pFrom := Buf;  FOS.pTo := PChar( ToList + #0 );  FOS.fFlags := FOF_ALLOWUNDO;  FOS.fAnyOperationsAborted := True;  Result := SHFileOperation( FOS ) = 0;  if Result then    Result := not FOS.fAnyOperationsAborted;  FreeMem( Buf ); end; var From,To_:string; ....... From:='c:\my.exe;c:\Test.exe'; To_:='d:\my.exe;d:\Test.exe'; CopyMoveFiles(From,To_,False);

Это сообщение отредактировал(а) RAdmin - 29.1.2005, 02:04

RAdmin, ОГРОМНОЕ, ОГРОМНОЕ Вам Спасибо!!!
Я имел ввиду, не стандартную индикацию процесса. А такую: есть отдельная форма ShowCopyUnit.pas, на ней компонент QProgressBar (типа ProgressBar-а, только с наворотами), и когда начинается процесс копирования файла, выскакивает форма ShowCopyForm (которая в ShowCopyUnit.pas) и ессно показывает процесс копирования.
К этому, вышеуказаному коду можно прикруть этот QProgressBar?
И еще, я конечно извиняюсь, может быть это уже наглость, но все же, не могли бы Вы снабдить вышенаписанный Вами код коментариями?! Я не просто хочу его скопировать, но и понять!
Еще раз извиняюсь!
Спасибо!

Тогда вот:
http://www.delphiworld.narod.ru/base/copy_...rogressbar.html

В RxLib есть функция CopyFile - один из параметров там ProgressBar

RAdmin - Сеньки, Сеньки и еще раз Сеньки!!!

Vit А можно поподробнее про RxLib?! (или линк киньте) Извиняюсь, у меня литературы нет, я самоучка - учусь методом тыка.