relativen dateipfad

[zecke]

:hi:

ich möchte ein anderes programm über mein eigenes starten. Ich verwende den befehl ShellApi (ja habe es auch eingebunden), aber ich will die andere -exe relativ zu meiner exe starten.

besser:

in einem ordner befindet sich eine exe und 5 unterordner, in jedem ordner eine weitere exe. ich möchte über die eine "übergeordnete" exe öffnen und über diese die untergeordneten starten, wobei es wichtig ist, dass der installationspfad egal ist. sprich es kann dieses szenario im ordner "C:\blubba\..." sein oder auch in "C:\socke\...". wie setze ich das um, jmd eine lösung?

hier ein kotschnipsel:

Code:

begin

   ShellExecute(Handle, nil, 'prozent.exe', nil, nil, SW_SHOW);
   Application.Terminate;

end;

danke für jeden tipp

[Meflin]

ganz einfach :)
1. du ermittelst den absoluten pfad deiner main-exe
2. du hackst den exenamen vom pfad ab
3. du setzt den relativen an den absoluten pfad hin
4. ende

zu 1. und 2.: das geht mit

Delphi-Quellcode:

Application.ExeName

genauergesagt dann

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)

[zecke]

ehm merci :)

nur wie soll ich den letzten teil davon bekommen? habe nie großartig was mit strings gemacht :/

kannst du mir sogar ein beispiel zeigen :) das wäre was ganz feines

[Meflin]

Zitat:

Zitat von zecke

ehm merci :)

nur wie soll ich den letzten teil davon bekommen? habe nie großartig was mit strings gemacht :/

kannst du mir sogar ein beispiel zeigen :) das wäre was ganz feines

die beschreibung war allgemein, du musst das nicht selber machen

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)

ist der Pfad zu deiner Exe, allerdings ohne den ExeNamen, dafür mit trailing backslah

[zecke]

:oops: :D ok ich danke dir sehr ^^



ehm habe ich etwas falsch gemacht:

Delphi-Quellcode:

Dateipfad:=ExtractFilePath(Application.ExeName);
ShellExecute(Handle, nil, 'Dateipfad\prozent\prozent.exe', nil, nil, SW_SHOW);

[Wuaegner]

Delphi-Quellcode:

Dateipfad:= ExtractFilePath(Application.ExeName)+ '\prozent\prozent.exe';
ShellExecute(Handle, nil, Dateipfad, nil, nil, SW_SHOW);

[idontwantaname]

edit: sollte der mir nicht mitteilen, wenn inzwischen posts gemacht worden sind ?? :gruebel:

[Meflin]

alternativ kannst du den exepfad übrigens auch noch mit

Delphi-Quellcode:

ParamStr(0)

bzw dann ohne exenamen mit

Delphi-Quellcode:

ExtractFilePath(ParamStr(0))

herausfinden, fyi

[Die Muhkuh]

Zitat:

Zitat von Meflin

Delphi-Quellcode:

ExtractFilePath(ParamCount(0)

Da fehlt ne Klammer ;)

[zecke]

verdammt ist mir das jetzt peinlich :D

danke für den kleinen tritt aufs hirn :)

nur als was muss ich dann Dateipfad deklinieren? string nicht (PAnsiChar wie?)