Mangler en streng

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
s1: string;
src:pchar;
begin
  s1 := ExtractFilePath(ParamStr(0)); //find sti til vores program
  s1 := IncludeTrailingBackslash(s1); //gør så der er backslash

  src := PChar(s1 + 'minfil.txt'); //lav kilde filnavn (samme mappe som vores program, men filnavn er minfil.txt
  CopyFile(src, 'c:\\minfil.txt', false); //kopier til c:\\minfil.txt

end;

Jeg skal lave en installation's fil til mit program.. det skal kunne kopier en fil fra en cd over til en anden mappe på hardisken.. hvordan skal jeg gøre dette..??§§??

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Jeg skal lave en installation's fil til mit program.. det skal kunne kopier en fil fra en cd over til en anden mappe på hardisken.. hvordan skal jeg gøre dette..??§§??

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Jeg skal lave en installation's fil til mit program.. det skal kunne kopier en fil fra en cd over til en anden mappe på hardisken.. hvordan skal jeg gøre dette..??§§??

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-


copyfile(pchar('Fil Du vil kopiere.exe','Hvor den skal ligge',true);

eksempel her går jeg ud fra at exe filen ligger samme sted som filen der skal kopieres

copyfile(pchar(paramstr(0) + 'Fil som ikke er selveprogrammet.exe','c:\\programmer\\ditfirma\\ditprogram\\navn.exe',true);

hvofor pcharstr(0)??

Jeg skal lave en installation's fil til mit program.. det skal kunne kopier en fil fra en cd over til en anden mappe på hardisken.. hvordan skal jeg gøre dette..??§§??

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Du kunne også gøre noget andet. På http://www.jrsoftware.org/isinfo.php finder du et forrygende godt install program, ala InstallShield, WiseInstaller og mange andre. Forskellen er at InnoSetup er gratis at downloade, og bruge. Desuden er det open-source.

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