Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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)

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

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



Страницы: 1 вся ветка

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

Наверх









Память: 0.83 MB
Время: 0.023 c
3-2453
Jakov
2002-04-05 20:35
2002.05.02
Гиганты мысли, помогите открыть базу даных


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


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


6-2639
yastal
2002-02-19 06:49
2002.05.02
Как узнать, что на ftp сервере нет файлов, которые необходимо скачивать по маске.


1-2549
vicha
2002-04-18 23:46
2002.05.02
передача файловой переменной в функцию?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский