|
Ok, os detallo los pasos que sigue el programa antes de dar el error:
begin
Application.Initialize;
Application.Title := 'Top Cable';
Application.CreateForm(Tfrdadesglobals, frdadesglobals);
[este es un modulo de datos y solo hay declararciones de variables]
Application.CreateForm(Tfrlogin, frlogin);
[cbidioma.ItemIndex:=0;
frdadesglobals.bd.connected:=False;
if frdadesglobals.Session1.Active then
frdadesglobals.Session1.Active:=False;]
Application.Run;
[wuserterminal:=frmrutines1.Recupera_usuario();]
(la funcion recupera_usuario devuelve el username de windows con un windows.getusername)
Aqui le doy al boton de cancelar que me hace un close del formulario:
procedure Tfrlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
qrusua.Close;
qrvalidaciones.Close;
qrusua1.Close;
frdadesglobals.bd.Close;
frdadesglobals.bd.Connected:=False;
frdadesglobals.Session1.Active:=false;
if frdadesglobals.wglbdirbloq <> '' then
if directoryexists(frdadesglobals.wglbdirbloq) then
if not removedir(frdadesglobals.wglbdirbloq) then
raise Exception.Create('No se ha podido eliminar el directorio de bloqueo: ' + frdadesglobals.wglbdirbloq);
action:=cafree;
end;
Y después ya viene el End. de la applicacion que es donde me da el error.
Ester
|