CopyFileEx - Paramter Problem

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CopyFile(PChar('C:\alt\bla1.txt'), PChar('C:\neu\bla1.txt'), False) then
    MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'Autsch', MB_OK or MB_ICONERROR);
end;

oder kürzer > RaiseLastOSError

Delphi-Quellcode:

if not CopyFile(...) then
  RaiseLastOSError;