Kopieren mit Opendialog.Filename nicht möglich

[DeddyH]

Und nun zusammengefasst:

Delphi-Quellcode:

const MyFilename = 'test.abc';
...
if OpenDialog1.execute then begin
  if not Copyfile(Pchar(Opendialog1.filename), Pchar(IncludeTrailingPathDelimiter(MyPath) + MyFilename), false) then
    MessageBox(0,PChar(SysErrorMessage(GetLastError)),nil,MB_OK or MB_ICONERROR);
end;