Application Path

[Gutelo]

Zitat:

Anwendungsverzeichnis := SysUtils.ExtractFilePath(System.ParamStr(0));
Anwendungsverzeichnis := SysUtils.ExtractFilePath(Forms.Application.ExeName );

@Perlsau: und genau die Werte dieser Anwendungsverzeichnisse aendern sich wenn das Programm in bestimmten Verzeichnissen liegt. Und das ist wohl ein Delphi-Problem.

[himitsu]

Zitat:

Zitat von Gutelo (Beitrag 1231148)

@Perlsau: und genau die Werte dieser Anwendungsverzeichnisse aendern sich wenn das Programm in bestimmten Verzeichnissen liegt. Und das ist wohl ein Delphi-Problem.

Ich würde wetten, daß das auch bei Lazarus, .net, C#, C++, ... passiert.

[hathor]

Ergebnis des untenstehenden Codes:
C:\Users\HATHOR\AppData\Roaming\MyProg

Delphi-Quellcode:

function GetMyPath: string;
var LStr: array[0 .. MAX_PATH] of Char; 
s, AppDir : String;
begin
Result:='';
  Application.Name:='MyProg';
  s:= PathDelim + Application.Name;
  SetLastError(ERROR_SUCCESS);
  if SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, @LStr) = S_OK then
      AppDir:= LStr +s;
    Result := AppDir;
  if not DirectoryExists(AppDir) then mkdir(AppDir);
end;

[DeddyH]

Was ändert sich, und was soll daran ein Delphi-Problem sein? ParamStr(0) bzw. Application.Exename enthalten den vollen Pfad zum Programm, und zwar da, wo es tatsächlich liegt. Dass dieses Verzeichnis ggf. anders heißt als vom Windows-Explorer dargestellt, liegt nicht an Delphi, sondern an der Virtualisierung bestimmter Ordner seitens Microsoft.

[jaenicke]

Zitat:

Zitat von Gutelo (Beitrag 1231148)

@Perlsau: und genau die Werte dieser Anwendungsverzeichnisse aendern sich wenn das Programm in bestimmten Verzeichnissen liegt. Und das ist wohl ein Delphi-Problem.

Du hast bis jetzt noch kein konkretes Beispiel genannt.

Es könnte durchaus Möglichkeiten geben das von dir gewünschte Ergebnis dem Benutzer anzuzeigen. Intern darfst du mit dem was der Windows Explorer (und dann ggf. du) dem Benutzer anzeigt, aber nicht arbeiten, da die Verzeichnisse so gar nicht immer existieren.

[himitsu]

Welche Verzeichnisse betrifft denn das nochmal?

Ach ja:
- Programm in ein Unterverzeichnis legen
und dann in einer Batchdatei oder in der Konsole,
vom übergeordnetem Verzeichnis aus

Delphi-Quellcode:

"Unterverzeichnis\Project19.exe"

aufrufen
- oder in einer Verknüpfung mal bei "Ausführen in" ein anderes Arbeitsverzeichnis angeben
- oder bei ShellExecute und Co. bei lpFile die EXE aufrufen, samt vollständigem Pfad, und bei lpDirectory ein anderes Arbeitsverzeichnis angeben

Die Unterscheidung zwischen Arbeitsvereichnis und Programmverzeichnis gibt es schon seit DOS
So konnte man z.B. ein Programm da ablegen und z.B. dem Packprogramm sagen, daß es "hier" (im Arbeitsverzeichnis) alle Dateien packen soll

Code:

pack.exe -p *.* a.zip

(über Suchpfade die EXE suchen lassen)
oder

Code:

c:\program\myprog\pack.exe -p *.* a.zip

Und das Programm holte sich "seine" Dateien aus seinem Programmverzeichnis (wenn es ordentlich programmiert ist), aber arbeitet mit den Dateien im Arbeitsverzeichnis.

[bcvs]

Zitat:

Zitat von Gutelo (Beitrag 1231148)

Zitat:

Anwendungsverzeichnis := SysUtils.ExtractFilePath(System.ParamStr(0));
Anwendungsverzeichnis := SysUtils.ExtractFilePath(Forms.Application.ExeName );

@Perlsau: und genau die Werte dieser Anwendungsverzeichnisse aendern sich wenn das Programm in bestimmten Verzeichnissen liegt. Und das ist wohl ein Delphi-Problem.

Bevor du uns nicht verrätst, in welche Verzeichnisse Du deine Exe kopiert hast, und insbesondere, was das nach den obigen Befehlen in "Anwendungsverzeichnis" drin steht, glaubt dir das hier niemand.

Analog zu deinem Beitrag #7 habe ich mal ein Testprogramm gemacht. (Nur eine Form mit einem Label drauf). Im OnShow dann

Delphi-Quellcode:

LabelDir.Caption:=ExtractFilePath(Application.ExeName);

Egal, ob ich das nach C:\Users\Userx\Downloads\Irgendwas oder sonst irgendwohin kopiere, es wird erwartungsgemäß immer das Verzeichnis angezeigt, in dem die Exe liegt.

<DummeFrage>
Hast du vielleicht nicht die Exe kopiert, sondern nur eine Verknüpfung angelegt?
</DummeFrage>

[Dalai]

Zitat:

Zitat von Gutelo (Beitrag 1231148)

und genau die Werte dieser Anwendungsverzeichnisse aendern sich wenn das Programm in bestimmten Verzeichnissen liegt.

Ändern sich inwiefern? Wenn man die Echse verschiebt? Ja, sicher, aber inwiefern ist das ein Problem?

Zitat:

Und das ist wohl ein Delphi-Problem.

Das ist es mit 110%-iger Sicherheit nicht. Die Pendants für ParamStr(0) geben auch in anderen Programmiersprachen genau dasselbe zurück: das Verzeichnis, in dem die Echse liegt.

MfG Dalai

[arnof]

Gibt es hier eigentlich einen Ersatz mit TPATH.GET meinen Programmpath :?:

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1231131)

Einziger Haken:

Zitat:

Minimum supported client
Windows Vista [desktop apps only]

Inzwischen egal, da XP/Vista/7 nun offiziell endgültig tot sind
und sogar bereits die ersten Windows10-Versionen End-of-Life.

(bei Amazon kann ich noch Win7 kaufen, aber die "günstigen" Windows 10 gibt es schon nicht mehr ... mußte letzten Freitag zu eBay gehn)