Zadałem to samo pytanie na grupie dyskusyjnej ale tam wszyscy bawią się w chowanego dając odpowiedzi typu SHFileOperation + F1.
Więc o pomoc proszę tych którzy są na tym forum.
Chcę skopiować cały folder wraz z jego zawartością (pliki , podkatalogi) przy użyciu progressbara.
Zrobiłem to tak :
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
BI1:TSHFILEOPSTRUCT;
HWND : Handle;
begin
HWND := Form1.
with BI1 do
begin
hwnd :=
wFunc := FO_COPY;
pFrom := 'D:\Linkin Park';
pTo := 'E:\LP';
fFlags := FOF_SIMPLEPROGRESS;
fAnyOperationsAborted := True;
lpszProgressTitle := 'ProgressBar1';
end;
SHFileOperation(BI1);
end;
A z helpa wiem że powinno być :
with BI1 do
begin
hwnd; - nie wiem jak obsluzyc ten uchwyt !!!
wFunc;
pFrom;
pTo;
fFlags; - hmm pisalo cos o lpszProgressTitle żeby dać FOF_SIMPLEPROGRESS
fAnyOperationsAborted; -nie wiem co to ale dalem True
hNameMappings; - nie wiem co to
lpszProgressTitle; - tu też w zasadzie nie wiem
end;
A problem nr 2 to to że katalog sie pięknie skopiował , ale APLIKACJA
WYGLĄDA NA ZAWIESZONĄ !!!
Co robić aby tak nie wyglądała i jak uzubełnić tą strukturę ??
Co oznaczają te wartości których nie wiem ??
I gdzie jest ten progressbar ??
Pliss niech ktoś odpowie.
Pozdrawiam.