[yordan]

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