Informática Varios

sábado, 26 de septiembre de 2026

SQL SERVER FICHERO .BAT COPIA DE SEGURIDAD

sqlcmd -U usuario -P clave -Q "BACKUP DATABASE nombre_bbdd TO DISK = 'C:\copia\nombre_bbdd.bak' WITH FORMAT;"

set FechaActual=%DATE:~0,2%_%DATE:~3,2%_%DATE:~6,4%

cd C:\copia\

REN "nombre_bbdd.bak" "nombre_bbdd_%FechaActual%.bak"

sábado, 11 de julio de 2026

Delphi 7 - listar los archivos de un directorio

var

i: integer;

b: tsearchrec;

begin

SetCurrentDir('\\COMPRAS20HP\Users\Slim4-core\Desktop\Slimstock_ficheros_export\');

i:= findfirst('*.txt', faAnyFile, b);

while i=0 do

begin

showmessage(b.name);

i:=findnext(b);

end;

findclose(b);

http://www.delphibasics.co.uk/RTL.php?Name=findfirst

Attribute constants and values

Constant	Value	Description
faReadOnly	$00000001	Read-only files
faHidden	$00000002	Hidden files
faSysFile	$00000004	System files
faVolumeID	$00000008	Volume ID files
faDirectory	$00000010	Directory files
faArchive	$00000020	Archive files
faAnyFile	$0000003F	Any file

TIPO TSearchRec

type

TSearchRec = record

Time: Integer;

Size: Integer;

Attr: Integer;

Name: TFileName;

ExcludeAttr: Integer;

FindHandle: THandle;

FindData: TWin32FindData;

end;

OTRO EJEMPLO

procedure TFPrincipal.Listar( sDirectorio: string; var Resultado: TStringList );

var

Busqueda: TSearchRec;

iResultado: Integer;

begin

// Nos aseguramos que termine en contrabarra

sDirectorio := IncludeTrailingBackslash( sDirectorio );

iResultado := FindFirst( sDirectorio + '*.*', faAnyFile, Busqueda);

while iResultado = 0 do

begin

// ¿Ha encontrado un archivo y no es un directorio?

if ( Busqueda.Attr and faArchive = faArchive ) and

( Busqueda.Attr and faDirectory <> faDirectory ) then

Resultado.Add( Busqueda.Name );

iResultado := FindNext( Busqueda );

end;

FindClose( Busqueda );

end;

miércoles, 22 de abril de 2026

Escritorio remoto poner resolución de la pantalla mas grande

screen mode id:i:2

desktopwidth:i:1280

desktopheight:i:720

use multimon:i:0

session bpp:i:32

winposstr:s:0,3,0,0,1280,720

jueves, 9 de abril de 2026

Eliminar aviso de Windows de que se va a ejecutar una aplicación que no es de confianza

1. si el ejecutable esta en la intranet local, almacenada en otro equipo - se puede agregar ese equipo como sitio de confianza o como equipo de la intranet local -> así deja de aparecer el aviso

Opciones de internet

Mover un punto en GeoGebra con JavaScript - ejemplo de primera aplicación sencilla de JavaScript en GeoGebra

Ejemplo de aplicación sencilla en GeoGebra

1. se instala Geogebra 5 de escritorio

Windows Installer: GeoGebra Classic 5 Installer for Windows

2. se añade un punto y un botón

3. propiedades del botón, programa de guion, abajo poner tipo JavaScript en vez de guion de GeoGebra

4. código del programa

var a; //declaración variables en JavaScript
var b;
a = ggbApplet.getXcoord("A"); //lee coordenada X del punto "A" y lo almacena en variable a de JavaScript

b = ggbApplet.getYcoord("A"); // coordenada Y del punto

if (a < 5 && b < 5) { // estructura condicional si las coordenadas X e Y son menor que 5 mueve el punto a la posición 1,6 y así sucesivamente
ggbApplet.setCoords("A", 1, 6);
} else if (a < 5 && b > 5) {
ggbApplet.setCoords("A", 6, 6);
} else if (a > 5 && b > 5) {
ggbApplet.setCoords("A", 6, 1);
} else {
ggbApplet.setCoords("A", 1, 1);
}

5. darle a guardar y cerrar pestaña de propiedades del botón

6. pulsar el botón y el punto se irá moviendo