маленький вопрос по поводу копи рования файлов

[kakawkin]

procedure TForm1.NewTabData(s: string);
var a:string;
begin
  if not WindowsCopyFile(s, 'F:\') then
   ShowMessage('Copy Failed');
end;

чтото тут не так

[Stilet]

чтото тут не так

Однозначно не так - нет такой функции WindowsCopyFile.
Есть

Windows.CopyFile(PChar(s),'F:\',true);

[Usov]

вот она:

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;

[kakawkin]

ой, не то скинул просто. Славу богу УСОВ внимателен.

Просто в папку F:/ копирует, а если копировать в F:/Практика/ то нехотит((

[raxp]

если папки F:/Практика нет, то создайте Createdir...