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