Каким образом скопировать файл?

[Kashp]

Всем доброго времени суток!
Предположим: D:\Temp - в этой директории лежит файл 1.txt и start.exe. Вот подскажите, что нужно прописать в этот start.exe, чтобы при его запуске производилось копирование 1.txt в директорию C:\Temp?

Буду крайне признателен за ответ

[Net]

написать нужно свой код, который будет это делать.
либо сделать проще - вместо exe - bat. ну а там уже командой dos.

[Kashp]

Сообщение от Net

написать нужно свой код, который будет это делать.
либо сделать проще - вместо exe - bat. ну а там уже командой dos.

Ну это понятно, что нужно свой код написать Я собственно и спрашиваю - что туда надо написать? С Досом наигрался, хочу через Delphi

[Tayfun]

CopyFile(PChar(string1), PChar(string2), False)
Пути хранятся в двух текстовых строках: string1, string2.
Там уж сам колдуй...

[Kashp]

Сообщение от Tayfun

CopyFile(PChar(string1), PChar(string2), False)
Пути хранятся в двух текстовых строках: string1, string2.
Там уж сам колдуй...

Здорово, работает! Большое спасибо! А можно еще узнать, как переименовывать и удалять файлы?

[Stilet]

Переименовка :

Unit
SysUtils
Category
file management routines
function RenameFile(const OldName, NewName: string): Boolean;

Удаление

Deletes a file from disk.
Unit
SysUtils
Category
file management routines
function DeleteFile(const FileName: string): Boolean;

[Kashp]

Сообщение от Stilet

Переименовка :

Unit
SysUtils
Category
file management routines
function RenameFile(const OldName, NewName: string): Boolean;

Удаление

Deletes a file from disk.
Unit
SysUtils
Category
file management routines
function DeleteFile(const FileName: string): Boolean;

Благодарю

[Kashp]

У меня возник еще вопрос (извините за назойливость и за вопрос не по теме):вот я создаю приложение, при запуске которого зацикленно играется музыка, так вот, тот звуковой файл находится рядом с exe'шником. Вот подскажите, как сделать, чтобы этот *.wav был впихнут в exe'шник и прога состояла из одного *.exe?

[Stilet]

Ну в ресурсы его.

[JTG]

Так вроде

procedure play;
var   res: THandle;
       p   : Pointer;
begin
      res:=LoadResource(hinstance, FindResource(hinstance, 'wave_name',RT_RCDATA));
      try
         p := LockResource(res);
         PlaySound(p (или @p, х/з), hinstance, SND_MEMORY+SND_LOOP+SND_ASYNC);
      finally
        FreeResource(res);
      end;
end;