COPY FILE

Hvis du mener at du vil trykke på en fil og så lave et kopi af den så er koden:
Ctrl+c (Copy)
Ctrl+v (Paste)

højreklik på den og vælg kopier. (copy hvis det er engels version). Eller brug shortkeys:
Ctrl-C = Kopier/Copy
Ctrl-V = Sæt ind/paste

hmm.. gammel dos er jo copy x.com z.com ...

og i delphi kan du jo lave en winexe(copy fil fil2)

Det er MEGET længe siden jeg har rodet med delphi, så dette er nok ikke den mest optimale programmering, men den burde funke...

Det ved jeg sku godt, det er ik det jeg mener, men i delphi skal jeg lave noget i onformcreate så den kopire sig selv et andet sted hen på harddisken.

<<jow>> kan du give en lidt mere precis forklaring?

mener phrozia  min fejl.

Procedure FileCopy(sourcefilename, targetfilename: String );
Var
  S, T: TFileStream;
Begin
if fileexists(sourcefilename) then
begin
    S := TFileStream.Create( sourcefilename, fmOpenRead );
    try
      T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
      try
        T.CopyFrom(S, S.Size ) ;
      finally
        T.Free;
      end;
  finally
  S.Free;
  end;
end;
end;

//
FileCopy('C:\Hej.txt', 'C:\Min Mappe\Hej.txt');

FileCopy(application.exename, 'C:\Mit Kopi.exe');

Hehe.. troede du jokede med dem.. hehe...

Hmm jo..

I gamle dage var en kopiers kommando i DOS ex.:

copy c:\fil.exe d:\fil2.exe

Så kopiere den fil.exe til d-drev med fil2 som navn.

I delphi kan man execute andre programmer med en kommando der hedder

winexec(fil,1);

om der står 1 eller 0 er om man skal kunne se hvad den executer.

1 = man kan se
0 = man kan ikke, den kører det i baggrunden.

Så laver du en ting som hedder noget ala

inexec(copy c:\fil1.exe d:\fil2.exe,0);

Hvad betyder sourcefilename

inexec(copy c:\fil1.exe d:\fil2.exe,0);

skal være

winexec(copy c:\fil1.exe d:\fil2.exe,0);

men dkn's svar er nok ret så meget bedre.. som sagt, det er længe siden jeg rodede med det.. :)

edt betyder ikke andet end proceduren skl kaldes med to string værdier, og sourcefilename er den ene.

nor jeg bruger dette
winexec(copy c:\fil1.exe d:\fil2.exe,0);
for jeg en fejl der siger
[Error] Unit1.pas(28): '(' expected but identifier 'c' found
[Error] Unit1.pas(28): Not enough actual parameters
[Error] Unit1.pas(28): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

glem den men ellers skal den se sådan ud

winexec('copy c:\fil1.exe d:\fil2.exe',0);

gå hellere ind på www.borisholt.com og se hans filbehandlings eksempel

Mvh. Simon

undskyld www.Borrisholt.com

tankred> Flot kopiret!

???????????

Hvorfor ikke bruge standardproceduren copyfile

  CopyFile(ParamStr(0),'C:\Temp\NyKopi.exe');

(paramstr(0) er navnet på den fil som køres)

//hreiff

tankred> Sorry, fik ikke læst krab's indlæg korrekt, så jeg troede du bare havde kopiret mit svar...

//Hreiff
Når jeg bruger denne kode

CopyFile(ParamStr(0),'C:\Temp\NyKopi.exe');

får jeg denne fejl!!

[Warning] Unit1.pas(8): Unit 'FileCtrl' is specific to a platform
[Error] Unit1.pas(56): Incompatible types: 'String' and 'PChar'
[Error] Unit1.pas(56): Not enough actual parameters
[Fatal Error] AaC_server.dpr(5): Could not compile used unit 'Unit1.pas'

Hvorfor?????

det er noget lin dette jeg skal bruge

winexec('copy ????, d:\cd\fil2.exe',0);

det er forskelligt hvor jeg kørere filen fra så jeg kan ikke skrive FX. C:\????.exe, så det skal være når jeg klikker på filen skal den kopire sig selv ind i FX. 'C:\Temp\NyKopi.exe', er der ikke nogle der hved hvordan man gør det.??

Jeg glemte lige at copyfile skal have en 3. parameter
Copyfile(FromFile, Tofile, False);

False > Overwrite hvis filen allerede eksisterer
True  > Fejl hvis filen allerede eksisterer

Det andet er at FromFile og ToFile skal være af typen PChar og ikke string som paramstr(0) returnerer.

Hvis du bruger f.eks

Copyfile('c:\test.exe','c:\test2.exe',False);

virker det, men med paramstr(0) skal det omsættes til PChar;

Prøv:

var PCh: pchar;

PCh := StrAlloc(128); {reserverer plads til strengen (128 tegn)}
StrPCopy(PCh,paramstr(0));
CopyFile(PCh,'c:\temp\prog.exe',False);

//hreiff

hmm nu vil jeg ikke sige så meget om copyfile men pchar.

hreiff >> prøv:

Copyfile(PChar('c:\test.exe'),'c:\test2.exe',False);

bare lidt uuuuu :)

/ZIRON

Jeg har efterhånden prøvet en del ting når jeg skulle konvertere fra string til Pchar, og ofte går det galt, f.eks fordi at strengen ikke er afsluttet med #0. Det går fint med Pchar('c:\test.exe'), men PChar(paramstr(0)) kan give problemer - nok fordi det er en funktion.
Man kan også bruge:
var s: string;
s := paramstr(0)+#0;
copyfile(@s[1],'c:\test2.exe',False);

Hvis du vil kunne ændre navnet på kopien kan du gøre sådan:

var
  ind,ud: string;

ind := paramstr(0)+#0;
ud := 'c:\temp\Kopi.exe';
ud := ud+#0;
copyfile(@ind[1],@ud[1],False);

Man kan selvfølgelig også bruge winexec:

var
  s: string
s := 'copy '+paramstr(0)+' c:\temp\Kopi.exe'+#0;
WinExec(@s[1],0);

Men det er en lidt mere omstændig vej idet man kalder programmet copy istedet for at bruge en funktion, så det vil jeg ikke anbefale.

hmm okay jeg har bare ikke hafty nogen problemer før, men så tager jeg da mine ord i mig igen :)

/ZIRON