Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

Как скопировать файл?? 


dfdfd   (2002-04-20 19:53) [0]

Желательно готовый пример, типа файл "ABC.exe" из папки 1 в папку 2.



Anatoly Podgoretsky   (2002-04-20 20:03) [1]

Тебе перевести на английский слова скопировать и файл?



dfdfd   (2002-04-20 20:12) [2]

Не смешно... :(
Мне нужно так, чтобы не появлялось стандартное виндовское окошко копирования!



Anatoly Podgoretsky   (2002-04-20 20:29) [3]

А почему меняем техзадание на ходу и при этом обижаемся?
А ты какие нибудь усилия приложил со своей стороны, скажем посмотреть хотя бы FAQ



dfdfd   (2002-04-20 20:40) [4]

Никакое задание я не менял! Просто уточнил задание! ФАК я читал, но не очень (вернее совсем) не понял как копировать файлы, поэтому и просил пример.
Если вы знаете, так не легче ли написать сразу ответ на мой вопрос???



PaRL   (2002-04-20 20:46) [5]

Болезнь профессионалов :)
Иногда просто бесит. Такое проходит... иногда :)



ION T   (2002-04-20 20:52) [6]

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;



Anatoly Podgoretsky   (2002-04-20 20:54) [7]

dfdfd (20.04.02 20:12)
Так никакое окошко не появляется, это для фукции строго по переводу.



Anatoly Podgoretsky   (2002-04-20 20:57) [8]

PaRL © (20.04.02 20:46)
А не бесит, когда человек хочет на тарелочке и ни хочет даже минимальные усилия приложить?



ION T   (2002-04-20 21:01) [9]


> Anatoly Podgoretsky © (20.04.02 20:57)

Бесит. А ещё больше когда ты и есть тот, кто ищет;)

А я запостил потому, что тока шо как раз это сам и написал.........




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.025 c
1-2534            PaRL                  2002-04-18 18:06  2002.05.02  
The Question. Simply Question.


6-2638            cypher                2002-02-19 00:49  2002.05.02  
HOST - IP


1-2580            СанчоП                2002-04-19 16:05  2002.05.02  
Help me!!!


4-2724            samos                 2002-02-27 11:28  2002.05.02  
Еще раз про реестр


1-2545            ATLANTIDO             2002-04-17 23:20  2002.05.02  
Куча кнопок