¿ VBScript en Delphi ?
Veremos como crear un objeto en Delphi de forma que se incluira el Vbscript en Delphi. Aunque ustedes no lo crean se puede y esto nos facilitará la apasionante programación de estos 2 lenguajes de empresas opuestas. Las sintaxis de Vbscript son las mismas no cambia nada mas que la creación del objeto y al colocarlo en otra variable.
Usando la librería ComObj podemos crear objetos como por ejemplo los de Excel, Word, Wscrip.Shell, etc; Insertemos la librería en el uses:
Uses
ComObj
Ahora podemos usar una declaración llamada CreateOleObject donde crearemos el objeto deseado. Declaración:
var
dirwin : string;
fso : variant;
.
.
.
//Objeto = CreateOleObject('Objeto a crear');
Fso := CreateOleObject('Scripting.FileSystemObject');
En este momento ya se ha cargado la libreria
Scripting.FileSystemObject en Delphi !Sencillo no¡ ahora a usarla. Si no sabes
nada de Visual Basic Script, te recomiendo que leas la Vx-Ezine 1 de
http://mlhrcorporation.tripod.com o un manual
de internet sobre las librerias Scripting.FileSystemObject y Wscript. Ahora
comprobemos que si es cierto o no, que este cargado el objeto FSO.
DirWin:=Fso.GetSpecialFolder(0);
ShowMessage(DirWin);
En este sencillo ejemplo comprobamos que si
funciona VBS en Delphi. Es una opción de programar más fácil en Delphi aunque
tambien nos la podemos matar con la libreria ShellApi o Registry, etc. Cabe
resaltar ja ja ja, que algunas cosas no se
pueden utilizar de VBS en Delphi tales como On error Resumen Next o Execute,
Solo se pueden cargar objetos.
Otro ejemplo:
WsN := CreateOleObject('Wscript.Network');
ShowMessage(WsN.ComputerName);
Esto es algo que he visto de los programadores
de virus en Delphi, para hacerlo más fácil investigué sobre esto. Nota: La
versión de delphi donde fué probado es la Boland Delphi (Delfin) 7. xD.
¡Vamos México!,
¡Que todo México se entere que le mando Saludos a MJ Campos Sánchez Alias
Maximo!