Programmets egen placering

Tags:    delphi

Hej...!
Hvordan får jeg programmet til, at finde sin egen placering?
altså hvis det f.eks ligger på skrivebordet så C:\\windows\\skrivebord\\fil.exe?
Jeg vil nemlig gerne have mit program til at kopiere sig selv et andet sted hen...
Nogen, der kan hjælpe mig med det?



6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 6 karma
Sorter efter stemmer Sorter efter dato
Hehe.. og her kom koden så:

var
b:boolean;
path:string;
begin
path := extractFilePath(Application.ExeName);
b:=true;
Copyfile(\\path,\\'C:\\\\min.fil\\',b);
end;


Det kan laves så simpelt :
Fold kodeboks ind/udKode 


MvH

Stefan Svensson
http://fusket.1go.dk



Hej...!
Hvordan får jeg programmet til, at finde sin egen placering?
altså hvis det f.eks ligger på skrivebordet så C:\\windows\\skrivebord\\fil.exe?
Jeg vil nemlig gerne have mit program til at kopiere sig selv et andet sted hen...
Nogen, der kan hjælpe mig med det?

Fold kodeboks ind/udKode 

det skulle kunne gøre det (har selv læst det her: http://www.udvikleren.dk/article.php?aid=106&techid=2 )

[Verden er hvad du gør den til!]

[Redigeret d. 02/07-03 15:14:35 af Jonas]



Du kan bruge application.exename :

Fil := Application.ExeName;
path := extractFilePath(Application.ExeName);

MvH

Stefan Svensson
http://fusket.1go.dk

[Redigeret d. 02/07-03 15:53:00 af Stefan Svensson]



Oki...:o)
Nu er jeg jo en ret stor noop til det her ;)
hvordan skulle det se ud? lige nu ser det sådan ud, ogd et virker ikke.... :) ikke grine ;)



Hehe.. og her kom koden så:

var
b:boolean;
path:string;
begin
path := extractFilePath(Application.ExeName);
b:=true;
Copyfile(\\path,\\'C:\\\\min.fil\\',b);
end;



Tusind tak!



t