Programm Pfad ermitteln

**ssach**

hy, ich bins wieder!

hab eine Frage zum Pfad eines Programms:

wie kan ich herausfinden wo mein Delphi Programm gespeichert ist und den vollen Pfad in einem String speichern?
kann ich den Pfad dann auch ausserhalb von nur EDITBoxen nützen, zb. in einem Open,Save,... Dialog?

danke

cu

Den Programmpfad liefert ParamStr(0) zurück, enthält aber auch den Dateinamen. Den Pfad kannst Du aber mit ExtractFilePath extrahieren.

ExtractFilePath(ParamStr(0))

**1PM**

Könnte auch mit GetCurrentDir gehen!

Gruß 1PM

**Duffy**

Hallo 1PM,
aber nur wenn das Programmverzeichnis = Arbeitsverzeichnis ist.
bye

**Luckie**

Zitat von 1PM:

Könnte auch mit GetCurrentDir gehen!

NEEEEIIIIIN! Nicht schon wieder. Mit GetCurrentDir ermittelt man nie nicht den Programmpfad.

**1PM**

Richtig, Damit ermittelt man das Arbeitsverzeichnis!

**Luckie**

Auch das nicht. Die Funktion macht genau das, was auch ihr Name ausdrückt: Sie ermittel das momentane aktuelle Verzeichnis für den Prozess. Und auch das muß nicht das Arbeitsverzeich sein, welches ich bei einer Verknüpfung angeben kann.

**negaH**

GetCurrentDir = SetCurDir('C:\) <> ParamStr(0) = 'D:\'

**Duffy**

Hallo,
falsch

Zitat von negaH:

GetCurrentDir = SetCurDir('C:\) <> ParamStr(0) = 'D:\'

richtig
GetCurrentDir = SetCurDir('C:\') <> ParamStr(0) = 'D:\'; vermutlich die Hitze
bye

**negaH**

Jo, das Plaste meiner Keyboardtasten wird langsam flüssig und klebt

Programm Pfad ermitteln

Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Re: Programm Pfad ermitteln

Forumregeln

ssach Registriert seit: 9. Dez 2002 Ort: schleiwenhaff 99 Beiträge Delphi 6 Professional	#1 Programm Pfad ermitteln 7. Aug 2003, 16:37 hy, ich bins wieder! hab eine Frage zum Pfad eines Programms: wie kan ich herausfinden wo mein Delphi Programm gespeichert ist und den vollen Pfad in einem String speichern? kann ich den Pfad dann auch ausserhalb von nur EDITBoxen nützen, zb. in einem Open,Save,... Dialog? danke cu Greissen all d'Letzebuerger !!
	Zitat

Marco Haffner (Gast) n/a Beiträge	#2 Re: Programm Pfad ermitteln 7. Aug 2003, 16:40 Den Programmpfad liefert ParamStr(0) zurück, enthält aber auch den Dateinamen. Den Pfad kannst Du aber mit ExtractFilePath extrahieren. ExtractFilePath(ParamStr(0))
	Zitat

1PM Registriert seit: 27. Dez 2002 Ort: Ludwigshafen 145 Beiträge	#3 Re: Programm Pfad ermitteln 7. Aug 2003, 17:16 Könnte auch mit GetCurrentDir gehen! Gruß 1PM How can I know what I think before I hear what I say?
	Zitat

Duffy Registriert seit: 19. Mär 2003 Ort: Wuppertal 835 Beiträge Delphi 3 Standard	#4 Re: Programm Pfad ermitteln 7. Aug 2003, 17:26 Hallo 1PM, aber nur wenn das Programmverzeichnis = Arbeitsverzeichnis ist. bye Künftige Generationen wollen ihre Fehler selber machen. Jedes Programm wird nie das können, was Du wirklich brauchst. Das Gegenteil von gut ist gut gemeint -----
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#5 Re: Programm Pfad ermitteln 7. Aug 2003, 17:32 Zitat von 1PM: Könnte auch mit GetCurrentDir gehen! NEEEEIIIIIN! Nicht schon wieder. Mit GetCurrentDir ermittelt man nie nicht den Programmpfad. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

1PM Registriert seit: 27. Dez 2002 Ort: Ludwigshafen 145 Beiträge	#6 Re: Programm Pfad ermitteln 7. Aug 2003, 17:41 Richtig, Damit ermittelt man das Arbeitsverzeichnis! How can I know what I think before I hear what I say?
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#7 Re: Programm Pfad ermitteln 7. Aug 2003, 17:49 Auch das nicht. Die Funktion macht genau das, was auch ihr Name ausdrückt: Sie ermittel das momentane aktuelle Verzeichnis für den Prozess. Und auch das muß nicht das Arbeitsverzeich sein, welches ich bei einer Verknüpfung angeben kann. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#8 Re: Programm Pfad ermitteln 7. Aug 2003, 18:44 GetCurrentDir = SetCurDir('C:\) <> ParamStr(0) = 'D:\'
	Zitat

Duffy Registriert seit: 19. Mär 2003 Ort: Wuppertal 835 Beiträge Delphi 3 Standard	#9 Re: Programm Pfad ermitteln 7. Aug 2003, 18:56 Hallo, falsch Zitat von negaH: GetCurrentDir = SetCurDir('C:\) <> ParamStr(0) = 'D:\' richtig GetCurrentDir = SetCurDir('C:\') <> ParamStr(0) = 'D:\'; vermutlich die Hitze bye Künftige Generationen wollen ihre Fehler selber machen. Jedes Programm wird nie das können, was Du wirklich brauchst. Das Gegenteil von gut ist gut gemeint -----
	Zitat

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#10 Re: Programm Pfad ermitteln 7. Aug 2003, 19:23 Jo, das Plaste meiner Keyboardtasten wird langsam flüssig und klebt
	Zitat