"Sich selbst" irgendwo hinkopieren...

Quietdeath · Hält's aus hier Beiträge: 13

ich wollte mal wissen, wie ich es machen kann dass sich mein programm selbst in einen ordner kopiert...
also zum beispiel in eigene dateien
Geht das?

Hansi@OMG · Beiträge: 304 Vista Delphi 2006 Prof., Lazarus

Ja , das geht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var
  ProgDir: String;
begin
  ProgDir:=ExtractFilePath(ParamStr(0));
  Copyfile(PChar(Progdir),PChar('C:\Programme\'),true);
end;

_________________
Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?

Quietdeath · Hält's aus hier Beiträge: 13

k ein großes Danke von mir

Quietdeath · Hält's aus hier Beiträge: 13

da fallen mir 2 neue fragen ein:
1. kann man abfragen wo sich die exe grade befindet? also das das programm rausfindet wo es is

2. falls das programm mit exe binder irgendwo dran war... kann man es daraus lösen und irgendwo hinkopieren?

Ehemaliges Mitglied Erhaltene Danke: 1

Hansi@OMG hat folgendes geschrieben:

Ja , das geht:

Aber nicht so. Du übergibst den Namen des Ordners, in dem sich die Exe befindet, und den Namen des Zielordners. Das reicht nicht zum Kopieren. Außerdem ist "CopyFile" eine Funktion, mit deren Rückgabewert (TRUE oder FALSE) man den Erfolg kontrollieren kann:

markieren

Delphi-Quelltext

1:
2:
3:

ProgDir:=ExtractFilePath(ParamStr(0));
if not Copyfile(PChar(Progdir),PChar('C:\Programme\'),true) then
  ShowMessage('Na, das war wohl nix.');

Bitte die Suchfunktion zu Rate ziehen: Suche in: Delphi-Forum, Delphi-Library

COPYFILE.

Quietdeath hat folgendes geschrieben:

1. kann man abfragen wo sich die exe grade befindet? also das das programm rausfindet wo es is

Augen auf!

markieren

Delphi-Quelltext

1:	ProgDir:=ExtractFilePath(ParamStr(0));

holt den Ordnernamen aus dem Namen des laufenden Programms.

Quietdeath · Hält's aus hier Beiträge: 13

ja mensch ich hab delphi erst vor 3 tagen gelernt ...

aber trotzdem danke

das werd ich bei mir dann integrieren

scrooge · Beiträge: 200

Zitat:

2. falls das programm mit exe binder irgendwo dran war... kann man es daraus lösen und irgendwo hinkopieren?

Hört sich für mich an, als wolltest du en Trojaner schreiben ?? :wink:

Quietdeath · Hält's aus hier Beiträge: 13

Ne nen trojaner wollte ich nich programmieren aber mein freund hat mich nach sowas gefragt :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme