ModifyAlias hängt

[Heiko Luettge]

Hallo #<p>
ich benutze die Bde zum Zugriff auf Interbase. Um zwischen mehrere Datenbanken beim Start umzuschlaten, habe ich ein kleines Toole geschrieben, dass beim Start einen Parameter eines Alias ("SERVER NAME") ändert und dann das eigentliche Programm startet.<br>
Leider hängt sich das Start-Programm ab- und zu auf. Wenn ich es abschieße, geht es wieder.
<br>Hier der Code
<pre>
function SetServerName(const theAlias, theServerName: String;
var theErrorStr: String): Boolean;
var
AParams: TStringList;
begin
Result:= False;
theErrorStr:= 'internal error';

{$IFDEF WIN32}
try
AParams := TStringList.Create;
try
AParams.Add('SERVER NAME=' + theServerName);
Session.ModifyAlias(theAlias,AParams);
Session.SaveConfigFile;

Result:= True;
finally
AParams.Free;
end;
except
on E: Exception do theErrorStr:= E.message;
end
{$ENDIF}
end;
</pre>
<p>
Was mache ich denn falsch ? ;( Der Kunde ist etwas verärgert.<br>
Das Programm läuft unter w2k als normaler User.
<p>
Danke im voraus
<p>
Heiko