Копирование файлов

[zetrix]

...PChar(путь+ExtractFileName(...

нет, в нужное место, под названием путь

[Albenous]

этот самый copyfile в качестве первого параметра использует переменную типа PAnsiChar. Как в него переделать обычный String?


Задолбали офтопить, в следующий раз буду давать нарушение без разбору!

[AVer]

... Дать ссылку на конкретный раздел справки.

Borland Shared\MSHelp -> WIN32.HLP -> CopyFile
Ну чем не ссылка на нужный материал? Там и пример есть...

[Albenous]

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

Borland Shared\MSHelp -> WIN32.HLP -> CopyFile
Ну чем не ссылка на нужный материал? Там и пример есть...

Вот те раз!
нету там обещаного примера. По крайней мере я искал - не нашел.
Скачал русский хелп с www.programmersclub.ru так там вообще CopyFile нету! только AviCopyFile.
А между тем есть непонятный нюанс:

 
CopyFile(PChar(ExtractFilePath(ParamStr(0))+...

ParamStr(0) - что за параметр? откуда взялся? В справке про него вообще ни слова.

[Virtson]

ParamStr(0) - первый параметр командной строки
ParamStr(1) - второй, и т.д.

[Шеллер Алексей]

Я долго искал в Хелпе Delphi 7 (уж извините, что пользуюсь этой версией, привык уже), но CopyFile не нашел, нашел ее в Delphi 8 for .NET, но до такого уровня развития я еще не дорос

[pinhead]

Для всех:
А разве CopyFile не API-функция?
Для Шеллер Алексей:
Посмотри повнимательнее (Нажав, Crtl наведи курсот на написанный код CopyFile (он должен стать другим цветом) и нажми левую клавишу мыши)

[Шеллер Алексей]

Огромное спасибо!!! С копированием файлов вроде разобрался, теперь все думаю, как скопировать папку целиком? Ну или хотя бы узнать состав папки (количество файлов, имена, вложенные папки). Что-то ничего дельного, кроме мусора, на ум не приходит.

[Fox]

А можно еще таким способом:

fl1,fl2:TFileStream;
 
fl1:=Tfilestream.create(srcway, fmopenread);
fl2:=Tfilestream.create(destway, fmcreate);
fl2.CopyFrom(fl1, fl1.size);
fl1.free;
fl2.free;

И все буит работать оки, тока если вы перемещаете файл, то после этого незабывайте убивать srcway!!!

[Dude_first]

function CopyFile( InFile,OutFile: String; From,Count: Longint ): Longint;
var
InFS,OutFS: TFileStream;
begin
InFS := TFileStream.Create( InFile, fmOpenRead );
OutFS := TFileStream.Create( OutFile, fmCreate );
InFS.Seek( From, soFromBeginning );

Result := OutFS.CopyFrom( InFS, Count );
InFS.Free;
OutFS.Free;
end;