Pfadangaben automatisch anpassen

[Jonson]

Hi,

In meinem Installationsprogramm muss man Pfad angeben:

c:\programme\firma\test

oder:

c:\programme\firma\test \


Wie kann ich weitere Pfadangaben (editfelder) automatisch umstellen:

c:\programme\firma\hilfe
c:\programme\firma\graphic
c:\programme\firma\sonstige

Mit freundlichen Grüßen

Jonson

[thomasdrewermann]

Hi Jonson,
du könntest ja anstatt eine Setup-Routine selbst zu verfassen ein Setup von
www.Innosetup.com (Innosetup) erstellen lassen ...

[thomasdrewermann]

Was meinst du jetzt damit?
Willst du erkennen ob ein \ vorhanden ist und wenn icht eins ergänzen?

[Jonson]

@thomasdrewermann: Danke

Ich muss 4 Verzeichnisse anlegen: Test, Hilfe, Graphic, Sonstige

Die erste User Angabe wäre:

c:\programme\firma\test

oder:

c:\programme\firma\test\

Damit User keine weitere Angaben machen muss, müssten sich jetzt weitere Pfadangaben (editfelder) automatisch umstellen:

c:\programme\firma\hilfe
c:\programme\firma\graphic
c:\programme\firma\sonstige

Wie mache ich das?

Mit freundlichen Grüßen

Jonson

[Privateer3000]

Gehe richtig in der Annahme das Du du einfach nicht weisst ob die in deinem Quellcode angegebenen Ordner erkannt werden?
Oder meinst Du das Setup-Programm (InstallShield,His-Install) die Angaben für weitere Ordner?

Grüsse

[Jonson]

Zitat:

Gehe richtig in der Annahme das Du du einfach nicht weisst ob die in deinem Quellcode angegebenen Ordner erkannt werden?

Nein.

Man gibt ein Verzeichnis an (egal ob er da ist oder nicht). Weitere Angaben (Pfads) sollten sich automatisch ergänzen. Ist das so schwierig zu verstehen?

Setupprogramm ist von mir. Kein InstallShield usw.

[jbg]

Wie wäre es damit:

Code:

var Dir: string;
begin
  Dir := ExtractFilePath(ExcludeTrailingPathDelimiter(UserAngabe));
end;

An Dir kannst du jetzt die relativen Verzeichnisse anhängen

[thomasdrewermann]

Test mal:

Code:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
if edit1.Text[length(edit1.text)]='\' then
  begin
    edit2.text:=edit1.text+'hilfe';
    edit3.text:=edit1.text+'graphic';
    edit4.text:=edit1.Text+'sonstige';
  end else
  begin
    edit2.text:=edit1.text+'\hilfe';
    edit3.text:=edit1.text+'\graphic';
    edit4.text:=edit1.text+'\sonstige';
  end;
end;

Bei dieser Lösung ist Vorraussetzung, dass edit1-edit4 vorhanden sind. Wenn man jetzt in Edit1 etwas einsetzt, werden die anderen 3 Feldern angepasst. einfach diese Funktion in den Quelltext kopieren und in den Ereignissen bei Edit1.Change auswählen.


MFG
Thomas

[Jonson]

@thomasdrewermann: Danke
@ibq: Danke

Jonson

[Luckie]

Zusammen mit meinem Dialog zum Auswähölen eines Ordner sollte das ganz gut funktionieren. Am besetn packst du den Code in OnExist vom Edit.