Kode til at kopiere

Nogen der ved hvad der er galt eller skal jeg lige skrive min kode så i kan se den??

Kode 

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Install: TButton;
    Cancel: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    procedure InstallClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Target: string;
  Source: string;
implementation

{$R *.dfm}

procedure TForm2.InstallClick(Sender: TObject);
begin
Target:= Edit1.text +'Guess.exe';
Source:= 'Guess.exe';
showmessage(Target);
if CopyFile(PChar(Source), PChar(Target), True) then
    begin
    ShowMessage('Install Complete!');
    end
  else
    begin
    ShowMessage('An error occured when copying files to your computer. Try and install to another directory or re-run the setup program.');
    end;


end;

function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL;
begin


end;


procedure TForm2.CancelClick(Sender: TObject);
begin
close;
end;

end.

Kan man ikke lave det sådan så man kun skriver filnavnet på den ene og så ligger den i samme mappe som programmet? der er vist en eller anden procedure til at finde stien og så sætte program navnet på... Kan bar ikke li huske koden... Nogen derkan?
Mvh.
Rune Jensen

Kan man ikke lave det sådan så man kun skriver filnavnet på den ene og så ligger den i samme mappe som programmet? der er vist en eller anden procedure til at finde stien og så sætte program navnet på... Kan bar ikke li huske koden... Nogen derkan?
Mvh.
Rune Jensen

Kode 

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Install: TButton;
    Cancel: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    procedure InstallClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Target: string;
  Source: string;
implementation

{$R *.dfm}

procedure TForm2.InstallClick(Sender: TObject);
begin
Target:= Edit1.text;
Source:= ExtractFilePath(ParamStr(0)) + 'Data/Guess.exe';

if CopyFile(PChar(Source), PChar(Target), True) then
    begin
    ShowMessage('Install Complete!');
    end
  else
    begin
    ShowMessage('An error occured when copying files to your computer. Try and install to another directory or re-run the setup program.');
    end;


end;

procedure TForm2.CancelClick(Sender: TObject);
begin
close;
end;

end.

Jeg kan simpelthen ikke få det til at virke... Den kopierer ikke filerne.. Men her er ihvertfald min komplette kode så kan det være der er nogen der kan finde fejlen.

Kode 

// Tilføj FileCtrl til din uses.

if not DirectoryExists(ExtractFilePath(edit1.text)) then
  ForceDirectories(ExtractFilePath(edit1.text);

if ExtractFileName(edit1.text) <> '' then
  CopyFile ....

Jeg kan simpelthen ikke få det til at virke... Den kopierer ikke filerne.. Men her er ihvertfald min komplette kode så kan det være der er nogen der kan finde fejlen.


Hvad skriver du HELT præcist i din edit?

Det er IKKE nok med stien du skal have et filnavn med også.

Du kan evt. checke om det der er indtastet i edit1 er gyldig med

Kode 

// Tilføj FileCtrl til din uses.

if not DirectoryExists(ExtractFilePath(edit1.text)) then
  ForceDirectories(ExtractFilePath(edit1.text);

if ExtractFileName(edit1.text) <> '' then
  CopyFile ....

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk