Форум: "Основная";
Поиск по всему сайту: 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.037 c
1-2538            LazorenkoX            2002-04-18 10:21  2002.05.02  
Рисование в консоли


1-2593            Alla                  2002-04-19 16:03  2002.05.02  
Проблемка с MaskEdit


1-2531            agrig                 2002-04-18 11:20  2002.05.02  
Подскажите компоненту или dll чтобы зашифровать файл!


3-2459            php@bigmir.net        2002-04-10 23:10  2002.05.02  
Поиск в таблице


3-2450            Ash                   2002-04-09 14:54  2002.05.02  
Как в Fox-e физически удалить запись?