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

Вниз

Просто помогите....:)   Найти похожие ветки 

 
Goast   (2006-01-17 15:30) [0]

Здравствуйте мастера!!!!  У меня программа должна ОДНОВРЕМЕННО копировать на несколько компьютеров один и тот же файл. Адреса компьютеров у меня находятся в StringGrid. В принципе я уже это реализовал:
type
tmythread1=class(tthread)
private
  { Private declarations }
protected
procedure execute; override;
end;

var
t1:tmythread1;

procedure tmythread2.execute;
begin

   CopyFileEx(pchar(otkyda),pchar(kyda),@Progress,nil,nil,0);
end;

Нажимаем на кнопочку!!!!!

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
t1:=tmythread1.Create(false);
t1.Priority:=tplowest;
end;

все работает файлы ОДНОВРЕМЕННО копируются на все компы по списку .ИИИИИИИ наконец вопрос!!!!…:) Как мне сделать так что бы напротив компьютера(в stringGrid) писалось бы сколько процентов скопировано???????????? Спасибо всем!!!!


 
DimonS ©   (2006-01-17 15:42) [1]

Можно попробовать копирование через API. Проценты не показывает, но показывает приблизительное время до конца. Как в винде :)

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "h:\hook\*.*" );
StrPCopy( tobuf, "d:\temp\brief" );
With OpStruc DO Begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;

Функцию проверял, работает нормально.


 
Goast   (2006-01-17 15:46) [2]


> DimonS ©   (17.01.06 15:42) [1]
> Можно попробовать копирование через API. Проценты не показывает,
>  но показывает приблизительное время до конца. Как в винде
> :)

это я так понимаю он будет показывать виндовское окно да?если да то это не подходит у меня 30 компов это че 30 окон будет....??!!...:)



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

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

Наверх




Память: 0.47 MB
Время: 0.057 c
2-1137528161
parovoZZ
2006-01-17 23:02
2006.02.05
Написать и проскроллировать


3-1133857572
SeZuka
2005-12-06 11:26
2006.02.05
Поля типа Graphic


15-1137138666
data
2006-01-13 10:51
2006.02.05
Ищу книгу Иосифа Дика "В дебрях Кара-Бумбы". Нужно сыну


2-1137451488
fedor
2006-01-17 01:44
2006.02.05
Подскажите что вызывает ошибку?


1-1136712811
BiggieSmalls
2006-01-08 12:33
2006.02.05
Генератор случайных букв :)