übergeordnetes Verzeichnis finden

Fabian E. · Verfasst: Mo 08.10.07 10:28

hallo!

ich habe folgende konfiguration:

ordner1 -------- ordner2

beide ordner liegen in ordner 3

wie kann ich jetzt mit einer exe in ordner 2 eine exe in odner 1 öffnen?

ich denke mal irgendetwas mit ExtractFilePath(ParamStr(0)) aber ich weiß nicht so genau wie ich 'ordner2' dann aus dem string löschen soll.

vielen dank

gruß

Moderiert von Narses: Topic aus Windows API verschoben am Mo 08.10.2007 um 10:33

Narses · Verfasst: Mo 08.10.07 10:34

Moin!

Spontan fällt mir da folgender Ansatz ein: Nimm z.B. diese Suche in: Delphi-Forum, Delphi-Library

EXPLODE-Funktion und als Trennzeichen '\', dann hast du den Pfad zerlegt und kannst ihn deinen Wünschen entsprechend neu zusammenstellen. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fabian E. · Verfasst: Mo 08.10.07 10:46

hm...wäre es nicht vllt möglich in dem verzeichnis string das letzte "/" zu suchen und von da aus dann zu löschen?
aber wie sag ich dem compiler, dass ich den index vom letzten "/" will und nicht z.b. vom ersten?

gruß

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

Nicht besonders schön die Funktion aber sie sollte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function LastPos (SubStr: String; S: String): Integer;
begin
   result := Pos(Reverse(SubStr), Reverse(S)) ;

   if (result <> 0) then
     result := ((Length(S) - Length(SubStr)) + 1) - result + 1;
end;

Lg, Martin

_________________
Ein Nutzer der Ecke ;-)

Narses · Verfasst: Mo 08.10.07 10:56

Moin!

Gab´s nicht sowas wie LastDelimiter? :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Gausi · Verfasst: Mo 08.10.07 11:29

Ja, sowas gibts.
Wenn man einen Pfad hat, kann man so den übergeordneten Ordner bestimmen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

//Sicherstellen, dass am Ende kein "\" steht
pfad := ExcludeTrailingPathDelimiter(pfad);
// letztes "\" bestimmen und kopieren
pfad := Copy(pfad,1,LastDelimiter('\',pfad));

_________________
We are, we were and will not be.

Fabian E. · Verfasst: Mo 08.10.07 11:30

okay vielen dank!

ich hab es jetzt so gelöst(nicht schön, aber selten

)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm3.Button3Click(Sender: TObject);

Var Index: Integer;

    Dir: String;

begin

Dir := ExtractFilePath(ParamStr(0));

Index := LastDelimiter('\',Dir)-7;

Delete(dir,Index,7);

Dir := Dir+'Server\Server.exe';

ShellExecute(handle,'open',PChar(dir),nil,nil,SW_Show);

das problem war, das mein String am Ende noch ein "\" hat, dass heißt ich brauchte das vorletzte "\"
Dies habe ich dann durch das "-7" gelöst, da mein verzeichnis name dort fest ist!

gruß

EDIT: ne gä?!

das kommt leider etwas spät, aber ich werde es wohl mal testen! danke!

Lannes · Verfasst: Mo 08.10.07 12:07

Hallo,

ExtractFilePath kommt auch mit Ordnern klar:

markieren

Delphi-Quelltext

1:	s := ExtractFilePath('c:\temp\xxx'); // s = 'c:\temp\

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

matze · Verfasst: Mo 08.10.07 12:20

sowas gabs letztens bei Delphi.About.Com
-> delphi.about.com/od/...qt/parent_folder.htm

_________________
In the beginning was the word.
And the word was content-type: text/plain.

MKX · Verfasst: Mo 08.10.07 12:47

Hmm. Geht denn das nicht?:

markieren

Delphi-Quelltext

1:	ShellExecute(handle,'open',PChar(ExtractFilePath(Application.Exename)+'..\Server\Server.exe'),nil,nil,SW_Show);

Es kann sein, dass ich mich total irre, aber das müsste so doch gehen, oder?

_________________
Für das Falsche gibt es keine Grenze und der Irrtum ist grenzenlos. (Seneca)

Fabian E. · Verfasst: Mo 08.10.07 13:11

nein, denn Application.ExeName liefert das Verzeichnis der .exe plus den namen der .exe!
mein problem war aber, das ich ein oberverzeichnis brauchte, also z.B.: client.exe liegt hier: C:\Dokumente und Einstellungen\La Passion\Desktop\TD-Multiplayer\Client, dann wollte ich das hier haben: C:\Dokumente und Einstellungen\La Passion\Desktop\TD-Multiplayer

siehst du den unterschied?

gruß

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

MKX hat folgendes geschrieben:

Hmm. Geht denn das nicht?:

markieren

Delphi-Quelltext

1:	ShellExecute(handle,'open',PChar(ExtractFilePath(Application.Exename)+'..\Server\Server.exe'),nil,nil,SW_Show);

Fabian E. hat folgendes geschrieben:

nein, denn Application.ExeName liefert das Verzeichnis der .exe plus den namen der .exe!

Deswegen ja das ExtractFilePath(...) , das gibt nur den Pfad zurück! ;-)

_________________
Anonymes Eckenkind

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme