Kopiering af fil

Kode 

procedure CopyFile(Src, Dst: String; Overwrite: Boolean = True);
var
  ErrCode: DWord;
  Buf: array [0..128] of Char;
begin
  if Windows.CopyFile(PChar(Src), PChar(Dst), not Overwrite) <> true then begin
    ErrCode := GetLastError();
    FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, ErrCode, 0, Buf, SizeOf(Buf), nil);
    raise Exception.Create(Buf);
  end;
end;

Kode 

function CpyFile(Source, Destination: String; Overwrite: Boolean): Boolean;
begin
  Result := CopyFile(PChar(Source), PChar(Destination), not Overwrite);
end;

function GetWinDir: String;
var
  Buf: Array [0..255] of Char;
begin
  GetWindowsDirectory(Buf, Length(Buf));
  Result := IncludeTrailingPathDelimiter(Buf);
end;

function GetSysDir: String;
var
  Buf: Array [0..255] of Char;
begin
  GetSystemDirectory(Buf, Length(Buf));
  Result := IncludeTrailingPathDelimiter(Buf);
end;

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  Src, Dst: String;
begin
  Src := GetWinDir + 'minfil.exe';
  Dst := GetSysDir + 'minfil.exe';
  if CpyFile(Src, Dst, True) then
    ShowMessage('File copied!')
  else
    ShowMessage('Error while copying file!');
end;

CopyFile(); ?
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel