Pfad ermitteln in welchen das Programm ausgeführt wird

[chros]

Tach!

Das ist sicher schon 1000 mal gefragt worden nur ich finde leider keinen Threat dazu!

Kann mir wer verraten wie es möglich ist in einem delphi Programm den Pfad auszulesen in welchem das Programm liegt?

z.B.: c:\programm\start\test.exe --> c:\programm\start

es muß aber flexibel sein d.h. wenn das Programm in einem anderen Pfad liest muß es das Programm auch auslesen können?

Ich hoffe ihr versteht was ich meine!

Mfg Chros

[Tyrael Y.]

Hi,

Delphi-Quellcode:

IncludeTrailingBackSlash(ExtractFilePath(ParamStr(0)))

liefert den Pfad zu deiner Application

[sakura]

Versuche mal: programm verzeichnis

...:cat:...

[Canton]

or so:

Delphi-Quellcode:

function GebMirStartPfad : string;
var
ExePfad : String;

begin
ExePfad := ExtractFilePath(Application.ExeName);
result:=ExePfad;
end;

ach ja ExtractFilePath is ne Funktion von Sysutils

[Brüggendiek]

Hallo!

Zitat:

Zitat von Tyrael Y.

Delphi-Quellcode:

IncludeTrailingBackSlash(ExtractFilePath(ParamStr(0)))

Das ist ja wohl doppelt gemoppelt - ExtractFilePath liefert den Pfad (mit '\'), während ExtractFileDir das Directory (ohne '\') liefert!
Das IncludeTrauilingBackSlash ist also hier flüssiger als Wasser - nämlich überflüssig!

Gruß

Dietmar Brüggendiek

[himitsu]

Och meno - Brüggendiek war wieder schneller :(

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[toms]

Zitat:

Das ist sicher schon 1000 mal gefragt worden nur ich finde leider keinen Threat dazu!

Dann hast du wohl noch nie diesen Thread gelesen!?

[ Für Delphi Newbies / Einsteiger ]
http://www.delphipraxis.net/internal...485&highlight=

[steve-allround]

Hallo,
ich weis nicht mehr weiter. Ich habe folgenden Code:

Delphi-Quellcode:

memo11.Lines.SaveToFile('settings/save1.dll');

Aber ich brauche vor 'settings/save1.dll' den jetzt aktuellen Pfadnamen.

Ich habe da folgenden Code:

Delphi-Quellcode:

sExePath := ExtractFilePath(Application.ExeName);
    ShowMessage(sExePath);

Wie kann ich jetzt den Pfadnamen vor 'settings/save1.dll' setzen?

Bitte helft mir...

Ich bin noch ein Anfänger, deshalb kommt die Frage...

[sakura]

Das nächste mal für neue Fragen einen neuen Thread eröffnen!

Delphi-Quellcode:

sExePath := ExtractFilePath(Application.ExeName);
ShowMessage(sExePath + 'settings/save1.dll')

...:cat:...