Форум: "Основная";
Поиск по всему сайту: 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.017 c
1-2596            Anton+                2002-04-19 20:10  2002.05.02  
lpClassName


1-2566            Po                    2002-04-19 12:29  2002.05.02  
Печать


1-2515            LiNkS                 2002-04-20 23:30  2002.05.02  
Новые компоненты убирают старые....


1-2550            mnemonic              2002-04-18 17:33  2002.05.02  
редактор компоненты


1-2547            Gayrus                2002-04-18 03:06  2002.05.02  
TreeView и Array