Пишет ошибку: Компиляция
[Ошибка] Unit1.pas(36): Incompatible types: 'String' and 'PAnsiChar'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Код:
var
Form1: TForm1;
Fail:TextFile;
dir:string;
begin
AssignFile(Fail,'DCPlusPlus.xml');
Reset(Fail);
try
while not Eof(Fail) do
begin
Readln(Fail,dir);
CopyFile('F:\Фильмы\',dir,false);
end;
finally
CloseFile(Fail);
end;
end;
Admin: Пользуемся тегами, иначе последуют санкции!
Мне кажется что вы не совсем поняли, мне надо в файле DCPlusPlus.xml найти строки пути, там они в таком виде:
<Share>
<Directory Virtual="Фильмы">F:\Фильмы\</Directory>
<Directory Virtual="_Recycle.Bin">F:\$Recycle.Bin\</Directory>
</Share>
Но могут быть и другие, надо чтобы указанный мною файл был скопирован в F:\Фильмы\ и F:\$Recycle.Bin\ ,но это тока в этом случае, если другой DCPlusPlus.xml то соответственно пути будут другие.