Alias automatisch anlegen

[Peter Hennek]

Hallo, mit der unten angeführten Function(übernommen aus dem Forum) will ich einen Alias zur Laufzeit anlegen, falls der Alias noch nicht in der BDE enthalten ist. Nun hängt sich das Programm aber an der Stelle Session.GetAlias... auf. Starte ich das Programm aus dem Debug-Modus, dann bleibt es auch an der Stelle Session.GetAlias.. hängen, läuft aber nach erschienener Fehlermeldung(Object nicht gefunden) und neustarten an und legt auch den Alias an. Was ist denn hier falsch. Ich arbeite mit Delphi5
Enterprise und Paradox 7. Danke für freundliche Unterstützung. Gruß ph.
<br>//Falls kein Alias existiert, legt die Funktion den Alias an.
<br>FUNCTION Check_Alias(Alias_Name, DefaultPath: String): String;
<br>VAR CA_StringList :TStringList;
<br>BEGIN
<br>CA_StringList := TStringList.Create;
<br>TRY
<br>hier hängt er sich auf Session.GetAliasParams(Alias_Name, CA_StringList);
<br>EXCEPT
<br>END;
<br>IF CA_StringList.Count = 0
<br>THEN // Alias noch nicht definiert
<br>BEGIN
<br>Session.AddStandardAlias('FussDB', 'C:\Fuss\Daten', 'PARADOX');
<br>Session.SaveConfigFile;
<br>END; // IF CA_StringList.Count = 0
<br>TRY
<br>Session.GetAliasParams(Alias_Name, CA_StringList);
<br>Result := Copy(CA_StringList.Strings[0],6,255);
<br>EXCEPT
<br>Result := DefaultPath;
<br>END;
<br>CA_StringList.Free;
<br>ForceDirectories(Result);
<br>END;