Datei öffnen mit TOpenDialog

[SaFu]

So zum datei laden

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var  SAlterPfad,SNeuerPfad :string;
begin
if OpenDialog1.Execute then
 begin
 SAlterPfad := OpenDialog1.FileName;
   SNeuerPfad := ExtractFilePath(ParamStr(0))+('Musik\'+ ExtractFileName(OpenDialog1.FileName));

 if not FileExists(SNeuerPfad) then
  begin
   CopyFile(PChar(SAlterPfad), PChar(SNeuerPfad), true);
   FileListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
  end
 else
  MessageDlgPos('Datei ist bereits in der Liste',mtInformation,[mbOk],0,280,170);
 end;
end;

Gruss Sascha