FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
VBScript desde delphi?
Hola
tengo un fichero borracd.vbs y quiero saber si es posible ejecutarlo desde delphi. lo siguiente es el codigo del fichero que me sirve para levantar el asistente de winxp en español y borrar un cd rw. gracias yordan Option Explicit Dim MyCDRW, MyDateCode, MyTarget Dim oShell, oApp, oFolder, vbShort ' Cambia esta variable acorde a las especificaciones de tu sistema MyCDRW = "F:\" ' A partir de aqui mejor no tocar nada 'objeto aplication Set oShell = WScript.CreateObject("WScript.Shell") Set oApp = CreateObject("Shell.Application") oApp.NameSpace(&H11).ParseName(MyCDRW).InvokeVerbEx("&Borrar este CD regrabable") Do until oShell.appactivate("Asistente para grabación de CD") wscript.sleep 200 Loop oShell.appactivate("Asistente para grabación de CD") oShell.SendKeys "{Enter}" Do until Not oShell.appactivate("Asistente para grabación de CD") wscript.sleep 500 Loop Set oApp = Nothing Set oFolder = Nothing Set oShell = Nothing |
#2
|
||||
|
||||
lo mas sencillo que podras hacer es crear una dll en VB y cargarla en tu aplicacion de delphi
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
|||
|
|||
hay suites de scripts, que son de pago. o podrias usar el motor de scripts
de windows, windowshostscript. para incrusatarlo en tu aplicacion delphi usa el google y busca por delphi vbscript |
#4
|
||||
|
||||
Hola yordan; en primer lugar no dejes de usar las etiquetas
Código:
Option Explicit Dim MyCDRW, MyDateCode, MyTarget Dim oShell, oApp, oFolder, vbShort ' Cambia esta variable acorde a las especificaciones de tu sistema MyCDRW = "F:\" ' A partir de aqui mejor no tocar nada 'objeto aplication Set oShell = WScript.CreateObject("WScript.Shell") Set oApp = CreateObject("Shell.Application") oApp.NameSpace(&H11).ParseName(MyCDRW).InvokeVerbEx("&Borrar este CD regrabable") Do until oShell.appactivate("Asistente para grabación de CD") wscript.sleep 200 Loop oShell.appactivate("Asistente para grabación de CD") oShell.SendKeys "{Enter}" Do until Not oShell.appactivate("Asistente para grabación de CD") wscript.sleep 500 Loop Set oApp = Nothing Set oFolder = Nothing Set oShell = Nothing
Saludos |
#5
|
|||
|
|||
Agradecido
Gracias a todos por la ayuda,
esto funciona de maravilla, pero me gustaría aprender más sobre WSH. voy a tener que dedicarle un buen tiempito a esto, es que me parece una tontería volver a escribir el codigo de las cosas que ya están hechas y probadas. saludos y gracias a todos. yordan |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Llamar una funcion javascript desde vbscript | bellota | HTML, Javascript y otros | 0 | 24-07-2007 01:33:58 |
Recordset en VBScript | bellota | Varios | 0 | 04-07-2007 20:32:24 |
Pasar Código VBSCRIPT a Delphi.net | mamen | .NET | 2 | 03-06-2005 14:52:43 |
Obtener el valor de una variable local de VBSCRIPT desde delphi.net | mamen | .NET | 5 | 03-06-2005 14:49:25 |
VBScript en Delphi | Alexander | Varios | 1 | 08-07-2004 13:19:08 |
|