Hallo allerseits,
hier nun eine einfache aber brauchbare Lösung für alle die mit dem selben Problem konfrontiert werden:
Wir lassen einfach die Pfadangabe im Merge-Modul weg, das Programm muß dann nur noch prüfen ob ihm ein Pfad übergeben wird oder ob lediglich der String 'PATH=' übergeben wird. Bei letzterem tragen wir den Pfad nach. Das ganze sieht dann wie folgt aus:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| try
Liste := TStringlist.create;
session.GetAliasParams('MyAlias',Liste);
finally
if Liste.count >=1 then
begin
{wenn kein Pfad im Alias angegeben ist, wird als String nur 'PATH=' zurückgegeben}
if Liste.strings[0] = 'PATH=' then
begin
Dateipfad := ExtractFilePath(ParamStr(0))+'Daten';
Liste.clear;
Liste.Add('PATH='+ Dateipfad);
Session.ModifyAlias('MyAlias',Liste);
Session.SaveConfigFile;
end else
begin
J := Pos('PATH=',Liste.strings[0]);
if J > 0 then DateiPfad := copy(Liste.Strings[0],6,length(liste.strings[0])-5)
else Dateipfad := ExtractFilePath(ParamStr(0))+'Daten';
end;
end;
Liste.free;
end; |
MfG Sidi
Mit Wise Setup geht das übrigens problemlos.