![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как скопировать файл??
dfdfd © (2002-04-20 19:53:00)Желательно готовый пример, типа файл "ABC.exe" из папки 1 в папку 2.
ION T (2002-04-20 21:01:00) [1]
> Anatoly Podgoretsky © (20.04.02 20:57)
Бесит. А ещё больше когда ты и есть тот, кто ищет;)
А я запостил потому, что тока шо как раз это сам и написал.........
Anatoly Podgoretsky (2002-04-20 20:57:00) [2]PaRL © (20.04.02 20:46)
А не бесит, когда человек хочет на тарелочке и ни хочет даже минимальные усилия приложить?
Anatoly Podgoretsky (2002-04-20 20:54:00) [3]dfdfd (20.04.02 20:12)
Так никакое окошко не появляется, это для фукции строго по переводу.
ION T (2002-04-20 20:52:00) [4]
procedure CopyFile(InFile, OutFile: string);
var InStream, OutStream: TFileStream;
begin
InStream:= TFileStream.Create(InFile, fmOpenRead);
try
OutStream:= TFileStream.Create(OutFile, fmCreate);
try
OutStream.CopyFrom(InStream, InStream.Size);
finally OutStream.Free end;
finally InStream.Free end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile("c:\tst.txt", "c:\tst2.txt");
end;
PaRL (2002-04-20 20:46:00) [5]Болезнь профессионалов :)
Иногда просто бесит. Такое проходит... иногда :)
dfdfd (2002-04-20 20:40:00) [6]Никакое задание я не менял! Просто уточнил задание! ФАК я читал, но не очень (вернее совсем) не понял как копировать файлы, поэтому и просил пример.
Если вы знаете, так не легче ли написать сразу ответ на мой вопрос???
Anatoly Podgoretsky (2002-04-20 20:29:00) [7]А почему меняем техзадание на ходу и при этом обижаемся?
А ты какие нибудь усилия приложил со своей стороны, скажем посмотреть хотя бы FAQ
dfdfd (2002-04-20 20:12:00) [8]Не смешно... :(
Мне нужно так, чтобы не появлялось стандартное виндовское окошко копирования!
Anatoly Podgoretsky (2002-04-20 20:03:00) [9]Тебе перевести на английский слова скопировать и файл?