pfadangabe wie bei html

[Sharky]

Hai,

hier mal ein einfachs Beispiel:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 dateiname,
 quelle,
 ziel   : String;

begin
 ziel := 'c:\bilder\';
 Forcedirectories (ziel);  // UNIT FileCtrl
 If (OpenPictureDialog1.Execute) then  //Ein Bild wurde ausgewählt
  begin
   quelle := OpenPictureDialog1.FileName;
   dateiname := ExtractFileName (quelle); //Unit Sysutils
   CopyFile(PChar(quelle), PChar(ziel + dateiname), false);  //Vorhandende Dateien werden nicht überschrieben.
  end;
end;

Chris war mal wieder schneller