Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.10.04;
Скачать: CL | DM;

Вниз

TSHFileOpStruct - как сделать копирование видимым?   Найти похожие ветки 

 
Hero ©   (2008-08-15 08:37) [0]

Мне нужно сделать копирование файлов так, чтобы его видел пользователь т.е. с прогрессбаром. вот функция:
Function TForm1.WinCopy(_From,_toFolder:string):boolean;
var
 OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;

 Function ExtractDirFromDir(dir:string):string;
 var n:integer;
 begin
   for n:=length(dir)-1 downto 1 do
     if (dir[n] = "\") or (dir[n] = "/") then break;
   result:=copy(dir,n+1,length(dir)-n);
 end;
Begin
if not directoryExists(_toFolder) then exit;
if DirectoryExists(_From) then
begin
  if Length(_From) < 4 then exit;
  if _toFolder[length(_toFolder)] <> "\" then _toFolder:=_toFolder+"\";
  _toFolder:=_toFolder+ ExtractDirFromDir(_from);
  if not DirectoryExists(_toFolder) then createDir(_toFolder);
  if _From[length(_From)] <> "\" then _From:=_From+"\";
  _From:=_From+"*.*";
end else
  if not FileExists(_From) then exit;

FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, _from );
StrPCopy( tobuf, _toFolder );
With OpStruc DO Begin
 Wnd:= Handle;
 wFunc:= FO_COPY;
 pFrom:= @frombuf;
 pTo:=@tobuf;
 fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_ALLOWUNDO ;
 fAnyOperationsAborted:= False;
 hNameMappings:= Nil;
 lpszProgressTitle:= Nil;  //Может тут что писать надо? Что?
end;
Result:=ShFileOperation( OpStruc )=0;
end;

Спасибо.


 
Hero ©   (2008-08-15 08:41) [1]

Упс. Извиняюсь уже понял.



Страницы: 1 вся ветка

Текущий архив: 2009.10.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
2-1248680807
ford
2009-07-27 11:46
2009.10.04
TWordApplication выдает ошибку - "вызов был отклонен"


2-1248638233
Б
2009-07-26 23:57
2009.10.04
Ошибка в GetBitmapDimensionEx.


2-1248863244
Tneduts
2009-07-29 14:27
2009.10.04
Символ ! !


15-1242143550
@!!ex
2009-05-12 19:52
2009.10.04
Как добавить дополнительную информацию о сайте в google


15-1249058084
TUser
2009-07-31 20:34
2009.10.04
Захватившие власть коммуноцентристы опять ...