Ver Mensaje Individual
  #2  
Antiguo 13-04-2012
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
He probado esto y funciona correctamente

Fichero notepd.bat
Código:
@echo off
cls
set fichero="%1%date%"
set fichero=%fichero:/=%
notepad.exe %fichero%
exit
Código Delphi [-]
ShellExecute(Handle, 'Open', 'C:\Windows\notepad.exe', nil, nil, SW_SHOWDEFAULT);
ShellExecute(Handle, 'Open', 'C:\notepd.bat', nil, nil, SW_SHOWDEFAULT);
ShellExecute(Handle, 'Open', 'C:\notepd.bat', 'Prueba.txt', 'C:\', SW_SHOWDEFAULT);

Un saludo
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.

Última edición por olbeup fecha: 13-04-2012 a las 19:46:12.
Responder Con Cita