Jak zrobić to co jest w pytaniu ale nie posługując się procedurą która jest w poście
http://www.4programmers.net/forum/index.php?action=show&id=19925
coś krótszego musi przecież istnieć.
w faq II jest coś takiego
uses ShellAPI ;
procedure TForm1.Button1Click(Sender: TObject);
var
S : TSHFileOpStruct;
begin
S.Wnd := Handle;
S.wFunc := FO_COPY; * operacja - kopiowanie
S.pFrom := 'C:gry'; * z jakiego katalogu?
S.pTo := 'C:WindowsPulpitgry'; * do jakiego katalogu?
S.fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
S.fAnyOperationsAborted := True; * jest mozliwosc anulowania?
S.lpszProgressTitle := 'Trwa kopiowanie. Nie widzisz?'; * tekst
ShFileOperation(S); * wykonaj
end;
Ale wyskakuje że nie można skpiować plik: system windows nie może znaleźć pliku itd.....
mimo iż zmieniłem 2 linie na własne potrzebu
S.pFrom := 'C:\test'; * z jakiego katalogu?
S.pTo := 'D:\test'; * do jakiego katalogu?
i tak też próbowałem
S.pFrom := 'C:test'; * z jakiego katalogu?
S.pTo := 'D:test'; * do jakiego katalogu?
i nic nie pomaga
a katalog c:\test jest na dysku pomyślałem że moze musze utworzyć katalog na d:\test żeby miał gdzie kopiować ale też nic co jest nie tak
--
Pozdrowienia {hello}
Waldi Koronowo
[email protected]