Скачать: CL | DM;

копирование файла использую WinApi   Найти похожие ветки 

← →
Igor_Z ©   (2002-07-20 20:08) [0]

привет всем!
Помогите с кодом. Я воспользовался вашим примером по копированию файлов. Почему при копировании

файла возникает ошибка файловой системы 1026? Но если (l:string в моём примере) прописать путь в

кавычках всё работает нормально???
Заранее благодарен

uses ShellApi;

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;

procedure TForm1.ShellListView1DblClick(Sender: TObject);
var
l:string;
n:integer;

begin
n:=ShellListView1.ItemIndex;
l:=#39+ShellListView1.Folders[n].PathName+#39;
WindowsCopyFile(l, "a:\");
end;

---

← →
Mozart.mc   (2002-07-21 02:23) [1]

procedure buttonclick
var
EF,NF:array[0..254] of Char;
begin
StrPCopy(EF,"C:\file.res");
StrPCopy(NF,"C:\WINDOWS\file.res");

Copyfile(EF,NF,false);

end;
в итоге скопируется файл file.res из c:\ в c:\windows
если вместо false поставить true то при существовании такого же файла он не будет заменяться новым, при false - заменится

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c