问个简单问题？

Question

如何使用API函数有个大哥告我个
FILECOPY()的API函数，
我直接写了
Filecopy('1.zip','d:\1.zip')
提是错误
[Error] Unit1.pas(28): Undeclared identifier: 'Filecopy'
是我有什么写得不对

Answer 1

api函数也要有声明，包含在相关文件，如在代码中
uses
  windows;

Answer 2

uses shellapi;
try it again

Answer 3

Delphi中拷贝文件的几种方法:{方法一：用File stream }Procedure FileCopy( Const sourcefilename, targetfilename: String );VarS, T: TFileStream;BeginS := TFileStream.Create( sourcefilename, fmOpenRead );tryT := TFileStream.Create( targetfilename,fmOpenWrite or fmCreate );tryT.CopyFrom(S, S.Size ) ;finallyT.Free;end;finallyS.Free;end;End;{ 方法二：使用内存块进行读写 }procedure FileCopy(const FromFile, ToFile: string);varFromF, ToF: file;NumRead, NumWritten: Word;Buf: array[1..2048] of Char;beginAssignFile(FromF, FromFile);Reset(FromF, 1);AssignFile(ToF, ToFile);Rewrite(ToF, 1);repeatBlockRead(FromF, Buf, SizeOf(Buf), NumRead);BlockWrite(ToF, Buf, NumRead, NumWritten);until (NumRead = 0) or (NumWritten <> NumRead);CloseFile(FromF);CloseFile(ToF);end;