Programmordner

[naudoc]

Hallo,

gibt es bei Delphi (7) einen Code, der den Pfad beinhaltet aus dem das Programm geöffnet wird?
Wenn nein: Wie kann ich diesen sonst herausfinden?

mfG

PS: Habe 10 mins gesucht, danach aufgegeben...

[mkinzler]

Delphi-Quellcode:

ExtractFilePath( Application.ExeName)

bzw

Delphi-Quellcode:

ExtractFilePath(  ParamStr(0));

[arbu man]

Wenn du das Verzeichnis meinst in dem die Exe liegt:

Delphi-Quellcode:

ExtractFilePath(Application.exename);

Sonst such mal nach GetCurrentDir

mfg, Björn

[lbccaleb]

meinst du ungefähr sowas:

Delphi-Quellcode:

label1.caption := paramstr(0);

[naudoc]

Danke!

Superschnell!

Danke!

Ich meinte

Zitat:

Zitat von Jeder

Delphi-Quellcode:

ExtractFilePath(Application.exename);

[Luckie]

Zitat:

Zitat von arbu man

Sonst such mal nach GetCurrentDir

Bitte nicht: http://www.michael-puff.de/Developer...irectory.shtml

[naudoc]

uuups... noch ne Frage:

Was ist hier falsch? oder eher: Wie ist es korrekt...

Delphi-Quellcode:

Procedure TForm1.Anderes Programm;
begin
winexec(ExtractFilePath( Application.exename)+'Project2.exe',0);
end;

mfG

[mkinzler]

Ich würde ShellExecute nehmen

[Luckie]

Zitat:

Zitat von naudoc

Was ist hier falsch? oder eher: Wie ist es korrekt...

Delphi-Quellcode:

Procedure TForm1.Anderes Programm;
begin
winexec(ExtractFilePath( Application.exename)+'Project2.exe',0);
end;

Du teillst uns nicht mit, was nicht funktioniert, was für eine Fehlermeldung kommt und was GetLastError zurückgibt.

[lbccaleb]

ja oder diese version, ist fast noch besser:

programm ausführen

[naudoc]

HI,

bei suchen nach Shellexecute habe ich folgendes herausgefunden:

so gehts:

Zitat:

Zitat von naudoc

Delphi-Quellcode:

Procedure TForm1.Anderes Programm;
begin
winexec(PChar(ExtractFilePath( Application.exename)+'Project2.exe'),0); //PChar(...) !!!!
end;

mfG

Danke!

[Luckie]

Bei der Suche nach Shellexecut solltest du auch diesen Hinweis gefunden haben:

Zitat:

Zitat von Windows DK

Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.

Da Vista keine 16-Bit Programme mehr unterstützt, könnte ich mir vorstellen, dass die Funktion unter Vista auch nicht mehr existiert.