Witam !
Zrobilem sobie program ktorego zadaniem jest kopiowanie danych (archiwizacja) z kilku komputerow w sieci na jeden.
W programie moge sobie wybrac np. aby po kolei byly kopiowane dane tj. najpierw z 1 komputera, jak skopiuje to z 2 itd.
Wszystko dziala OK gdy wszystkie komputery sa wlaczone, natomiast gdy np 2 jest wylaczony to pojawia sie okienko z komunikatem ze "nie ma dostepu do pliku". Wtedy musze nacisnac na "OK" w tym okienku ostrzegajacym i dopiero wtedy kopiuje sie dalej.
Wiec nie wie ktos moze jak to pominac, aby nie pojawialo sie to okieno !?
Ponizej przedstawiam ta procedure z kopiowaniem:
procedure TForm1.Button1Click(Sender: TObject);
var
R : TSHFileOpStruct;
begin
with R do
begin
Wnd:=Handle; // oznaczenie uchwytu
lpszProgressTitle := 'Skopiuj plik....';// tutuł okienka
wFunc:=FO_COPY;// opcja
pFrom:='d:\kp*.*'; // z pliku
pTo:='d:\b'; // do pliku
fFlags:=FOF_NOCONFIRMMKDIR;
end;
SHFileOperation(R);
end;
Pozdrawiam ! ;-)