Delphi/kopieren

Moin!
Also ich lerne gerade Delphi und möchte ein kleines Program schreib wo ich als erstes eine Datei auswählen muss die kopiert werden soll und dann den Zielort.
Erste Anfänge:
Der passende Kopierbefehl denke ich ist CopyFileEx(....
Dann müsste ich doch dahineinschreiben
CopyFileEx(TForm1.Edit1 , TForm1.Edit2);

kruemel

 

Also grade schauts so aus:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFileEx('TForm1.Edit1.Text','TForm1.Edit2.Text');
end;

Compilerlog:

Code:

[Fehler] Kopierhilfe.pas(39): Nicht genügend wirkliche Parameter
[Fataler Fehler] Kopierer.dpr(5): Verwendete Unit 'Kopierhilfe.pas' kann nicht compiliert werden

Der Fehler soll hier sein:

Code:

CopyFileEx('TForm1.Edit1.Text','TForm1.Edit2.Text')[B];[/B]

hoffe ihr könnt mir helfen.
kruemel

 

...die Shellfunktion zum Kopieren/Verschieben nutzen:

http://www.swissdelphicenter.ch/de/showcode.php?id=28


Dateien kopieren:

http://www.delphi-forum.de/viewtopic.php?t=4344&highlight=filecopy

Eine andere schnellere Methode um Dateien zu kopieren:

http://www.delphi-forum.de/viewtopic.php?t=9884&highlight=filecopy

 

Wo im Quelltext muss denn die Shellfunktion stehen?
Wenn ich sie vor die Funktion des Buttons setze dann sagt der Compiler mir, dass allemöglichen Befehle undefiniert sind.

 

[delphi]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
shellinfo: TSHFileOpStructA;
begin
with shellinfo do
begin
wnd := Application.Handle;
wFunc := Flags;
pFrom := PChar(fromFile);
pTo := PChar(toFile);
end;
SHFileOperation(shellinfo);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if fileexists('c:\test.txt') then // File anpassen
ShellFileOperation('c:\test.txt', 'f:\test.txt', FO_COPY)
// To Move a file: FO_MOVE
else
Showmessage('FILE ERROR');
end;

end.

[/delphi]

 

Ich weiß nich was ich falsch mache,aber wenn ich das so in meinen Quelltext schreibe,bekomme ich lauter Fehler. Allemöglichen Befehle sind undefiniert...

 

Welche Delphi-Version hast Du?

 

Ich benutze Delphi 7.