[Delphi] Kopiowanie pliku...

Cześć @LL

Nie mogę sobie poradzić z błędami w tej procedurze...ma ona kopiować plik, i wyświetlać proces kopiowania...
Proszę...pomórzcie :-)

----------CUT HERE--------------

procedure Kopiujplik;
var
Form1: TForm1;
S : TSHFileOpStruct;
Handle: THandle;
R : TSHFileOpStructA;
Src : File;
FSize,i: Integer;
begin
begin
if OpenDialog.Execute then
AssignFile(Src, OpenDialog.FileName);
SaveDialog.FileName:= OpenDialog.FileName;
Reset(Src ,1);
FSize:= FileSize(Src);

with R do
begin
Wnd:=Handle; // oznaczenie uchwytu
wFunc:=FO_DELETE; // opcja
pFrom:= OpenDialog.FileName; // z katalogu
pTo:= SaveDialog.FileName; // do katalogu...
fFlags:=FOF_NOCONFIRMMKDIR;
end;
if SHFileOperation(R)0 then
ShowMessage('Błąd podczas kopiowania.')
end;

try
S.Wnd := Handle;
S.wFunc := FO_COPY; // operacja - kopiowanie
S.pFrom := 'OpenDialog.FileName; // z jakiego katalogu?
S.pTo := SaveDialog.FileName; // do jakiego katalogu?
S.fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
S.fAnyOperationsAborted := True; S.lpszProgressTitle := 'Trwa kopiowanie pliku...';
ShFileOperation(S); // wykonaj
finally
Application.MessageBox('Kopiowanie zakończone!', 'Kopiowanie pliku...', MB_OK + MB_ICONINFORMATION);
end;

-------------CUT HERE-------------

--
Pracuję w Delphi
+------------------+
Pozdrawiam
GG: 4079188
[email protected]

procedure Kopiujplik;
var
Form1: TForm1;
S : TSHFileOpStruct;
Handle: THandle;
R : TSHFileOpStructA;
Src : File;
FSize,i: Integer;
begin
begin
if OpenDialog.Execute then
AssignFile(Src, OpenDialog.FileName);
SaveDialog.FileName:= OpenDialog.FileName;
Reset(Src ,1);
FSize:= FileSize(Src);

with R do
begin
Wnd:=Handle; // oznaczenie uchwytu
wFunc:=FO_DELETE; // opcja
pFrom:= PChar(OpenDialog.FileName); // z katalogu
pTo:= PChar(SaveDialog.FileName); // do katalogu...
fFlags:=FOF_NOCONFIRMMKDIR;
end;
if SHFileOperation(R)<>0 then
ShowMessage('Błąd podczas kopiowania.')
end;

try
S.Wnd := Handle;
S.wFunc := FO_COPY; // operacja - kopiowanie
S.pFrom := PChar(OpenDialog.FileName); // z jakiego katalogu?
S.pTo := PChar(SaveDialog.FileName); // do jakiego katalogu?
S.fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
S.fAnyOperationsAborted := True; S.lpszProgressTitle := 'Trwa kopiowanie pliku...';
ShFileOperation(S); // wykonaj
finally
Application.MessageBox('Kopiowanie zakończone!', 'Kopiowanie pliku...', MB_OK + MB_ICONINFORMATION);
end;
end;

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC:
Kanał: #4programmers
Serwer: warszawa.ircnet.pl
Sieć: POLNet
Port: 6667