Kopiere programmet til anden mappe

procedure TForm1.Button1Click(Sender: TObject);
var
  pFrom, pTo: String;
begin
  pFrom := Application.Exename;
  pTo := Edit1.Text + ExtractFileName(Application.ExeName);
  CopyFile(PChar(pFrom), PChar(pTo), true);
end;

Edit1 indeholder stien til den folder hvor programmet skal kopieres hen.

Snowball

Nogle links:
http://www.eksperten.dk/spm/197790
http://www.eksperten.dk/spm/223128

ok.. men hvor angiver jeg hvortil den kopierer sig selv??

Det gør du i variablen pTo i mit eksempel.

Snowball

ja, okay... så melder den fejl ved edit1.text... jeg har så fjernet text.. så kommer der ingen fejl.... men den kopierer heller ingen fil!??

hm kan faktisk ikke huske copyfile kan kopire kørende filer.

Ellers kan du gøre noget lign:

var
fs : tfilestream;
begin
fs := Tfilestream.create(application.exename, fmopenread+fmsharedenynone);
fs.savetofile('C:\test.exe');
fs.free;
end;

koden er ikke testet

fejl i fs.savetofile('C:\test.exe');

sry glemte jeg da lige...

procedure TForm1.Button1Click(Sender: TObject);
var
fs, fs2 : tfilestream;
begin
fs := Tfilestream.create(application.exename, fmopenread+fmsharedenynone);
fs2 := Tfilestream.create('C:\test.exe', fmcreate);
fs2.CopyFrom(fs, fs.Size);
fs2.Free;
fs.free;
end;


testet

dkn: Det kan den godt. Har (selvfølgelig) testet mit eksempel :)

zildjian: Det mest Edit1.Text var blot et eksempel på at du kunne bruge et edit felt til at angive hvor programmet skal kopieres til. Du kan angive stien (pTo) på så mange andre måder.

Snowball

her er et lille eksempel som kopiere hele biblioteket

uses shellapi

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if CopyDir('c:\programmer\borland\delphi5\mit project\listbox', 'c:\temp') = True then
    ShowMessage('Directory copied.');
end;

Fedt takker.... fik det til at virke :)