помогите с копированием фаилов

[1234]

всеп привет
народ как мне по нажатию кнопки скопировать фаил который лежит в папке с программой

[AlDelta]

http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2

http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2

http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2

http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2

http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2

И еще много всякого интересного может вывалить поиск форума по ключн "Копирование файлов"... Программист не умеющий пользоваться поиском - не программист!

P.S.: Посмотри в самый низ страницы, там тоже много интересного

[1234]

осмотрел все ссылки кое что понел спасибо ну вот такой вопрос как мне копировать фаил в указанное место чтоб его пользователь сам указывал
помогите пожалуйста

[Terran]

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If SaveDialog1.Execute Then
Begin
CopyFile('Ваш файл',PChar(SaveDialog1.FileName),True);
End;
End;

[Dux]

//В Uses необходимо указать модуль ShellAPI

procedure CopyFiles(const FromFolder: string; const ToFolder: string);
 var
   Fo: TSHFileOpStruct;
   buffer: array[0..4096] of char;
   p: pchar;
   begin
     FillChar(Buffer, sizeof(Buffer), #0);
     p := @buffer;
     StrECopy(p, PChar(FromFolder)); 
     FillChar(Fo, sizeof(Fo), #0);
     Fo.Wnd    := Application.Handle;
     Fo.wFunc  := FO_COPY;
     Fo.pFrom  := @Buffer;
     Fo.pTo    := PChar(ToFolder); //куда будет скопирована директория
     Fo.fFlags := 0;
     if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('File copy process cancelled')
     end;

procedure TForm1.CopyButtonClick(Sender: TObject);
  begin
    CopyFiles('c:\Test\test.txt','d:\Test\test.txt');
    Showmessage('Copying Complete');
  end;