Kopiering af fil

her er koden:

Kode 

CopyFile(PChar(ExtractFilePath(Application.ExeName)+'programs\\PGDown Locker\\pgdlock.exe'), PChar('C:\\PGDown Locker\\pgdlock.exe'), False);

og ja filen findes...

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kode 

  if DirectoryExists('C:\\PGDown Locker') then
    CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'programs\\PGDown Locker\\pgdlock.exe'), 'C:\\PGDown Locker\\pgdlock.exe', False)
  else
    if CreateDir('C:\\PGDown Locker') then
      CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'programs\\PGDown Locker\\pgdlock.exe'), 'C:\\PGDown Locker\\pgdlock.exe', False)

Hvordan kopierer jeg en fil fra programmets sti + en mappe til en forudbestemt placering.
Ved godt at jeg skal bruge (ExtractFilePath(Application.ExeName)) men kender ikke nogen koder til selve kopiering, ikke nogen der virker ihvertfald.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Den kommer med denne fejl:

[Error] Unit1.pas(29): Incompatible types: 'String' and 'PChar'

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Der sker ingenting... Den kan fint køre det men der sker ingen ting når man trykker...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kode 

CopyFile(PChar(ExtractFilePath(Application.ExeName)+'programs\\PGDown Locker\\pgdlock.exe'), PChar('C:\\PGDown Locker\\pgdlock.exe'), False);

her er koden:

Kode 

CopyFile(PChar(ExtractFilePath(Application.ExeName)+'programs\\PGDown Locker\\pgdlock.exe'), PChar('C:\\PGDown Locker\\pgdlock.exe'), False);

og ja filen findes...

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Det var noget af en path ... Ligger mappen programs\\PGDown Locker\\ som undermappe til dit program ... For hvis du prøver at gøre, hvad jeg tror, så er du ved at kopiere en fil der ligger i den mappe du har dit program i, og kopiere dit eget program! Men ExtractFilePath delen giver dig altså IKKE drevet, som du så smider en masse på, men hvor din applikation ligger!

MH.

The-Freak

Livet er for kort til at kede sig.