cerrar aplicacion
Publicado por gush (8 intervenciones) el 27/04/2010 05:50:59
Que tal foro, hola necesito de su ayuda...
utilizo un archivo de configuración "INI", no tengo problema, solo que verifico su existencia, si no existe dicho archivo no quiero q cargue la aplicación mi codigo es este solo que no cierra la aplicacion
procedure TLogin.FormCreate(Sender: TObject);
begin
if fileexists(ExtractFilePath(application.ExeName)+'\citas.ini') then
begin
//cargo la configuracion
end
else
showmessage('Archivo Ini no se localizo. No se puede continuar');
close;
end;
gracias anticipadas
utilizo un archivo de configuración "INI", no tengo problema, solo que verifico su existencia, si no existe dicho archivo no quiero q cargue la aplicación mi codigo es este solo que no cierra la aplicacion
procedure TLogin.FormCreate(Sender: TObject);
begin
if fileexists(ExtractFilePath(application.ExeName)+'\citas.ini') then
begin
//cargo la configuracion
end
else
showmessage('Archivo Ini no se localizo. No se puede continuar');
close;
end;
gracias anticipadas
Valora esta pregunta


0