помогите с функцией CopyFile

[vizor9]

Здрасте!
Потскажите пожайлуста, как сделать так, чтоб при копирование файла (допустим формата txt) он копировался на рабочий стол и при этом размножался с помощью цикла.
Пример:
CopyFile('C:\Рабочий стол\1.txt','C:\Рабочий стол\2.txt',true);// скопировал файл 1 и создал файл 2, а мне надо куда-то цикл всунуть
чтоб по всему рабочему столу были.
Ответ написать подробно.
Спасибо!

[Трофимов Александр]

Допустим есть директория Dir куда копируешь, тогда:
for i:=1 to 100 //твоё значение
do begin
f:=Dir+'\'+inttostr(i)+'.txt'
CopyFile('C:\Рабочий стол\1.txt',f,true);
end;
Ну f-это строковая.

[vizor9]

А вы можете написать все подробно пожайлуста?
например
Var
Procedure
begin
end;
И объяснить некоторые функции типа f:=Dir+'\'+inttostr(i)+'.txt'
что место Dir подставлять,что место '\' Подставлять
и ещё I это Integer?

[Трофимов Александр]

procedure Kopir;
var
i:integer;
f,Dir:string;
begin
Dir:='C:\Documents and Settings\имя порльзователя\Рабочий стол';
for i:=2 to 100 //твоё значение
do begin
f:=Dir+'\'+inttostr(i)+'.txt'
CopyFile('C:\Documents and Settings\имя порльзователя\Рабочий cтол\1.txt',f,true);
end;
IntToStr - преобразует целочисленное значение в строковую величину.
2 - поставил потому что файл с таким именем в данном случае уже есть на рабочем столе.
Написал правильную ссылку на рабочий стол, т.к. сразу ошибку в Вашем примере не заметил.
Можно копировать и по другому но думаю Вам это будет пока сложно.

[vizor9]

Что-то у меня ничего не работает, и кстати у меня Делфи 6.
Я кинул на форму ,Кнопку, и начал писать ваш код, после этого нажимаю на кнопку и ничего не происходит.

[Трофимов Александр]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
f,Dir:string;
begin
Dir:='C:\Documents and Settings\имя порльзователя\Рабочий стол';
for i:=2 to 100
do begin
f:=Dir+'\'+inttostr(i)+'.txt';
CopyFile(Pchar(Dir+'\1.txt'),Pchar( f),true);
end;
end;
Извини наделал ошибок а сам не проверял. Вот так у меня работает. Ну имя пользователя нужное сам своё укажи.

[vizor9]

Все теперь спасибо.
И ещё хотел спросить, а как сделать так чтоб при открывании какого либо документа TXT файлы копировались туда?
Еще раз спасибо.

[vizor9]

И ещё хотел спросить, а как сделать так чтоб при открывании какого либо документа, TXT файлы копировались туда?
Еще раз спасибо.

[vizor9]

Александр Трофимов подскажите пожайлуста.
Я кинул на форму 4 EDIT и 4 Label и кинул Кнопку, я хочу зделать так: я пишу в EDIT данные, потом мне нужно при нажатии на кнопку, все данные отсылались на моё Мыло.
Спасибо!

[Трофимов Александр]

К сожалению этим заниматься не приходилось, хотя в перспективе тоже понадобится.
Видел тексты под SMTP,MAPI и Outlok но сам ещё не один не пробовал, да и сложноватые они (по крайней мере SMTP и MAPI).
Проще не изобретать велосипед и поискать на форуме или в инете примеры решений.