[thelibmx]

Bueno me respondo, no me fije en los acentos por eso no me funcionaba, tomado de otra respuesta del club con un archivo bat en un formulario con un botón

Código Delphi [-]

procedure TForm1.BtnNormalClick(Sender: TObject);
var
F: TextFile; //archivo bat que crearemos
ruta: string; //ruta del archivo creado
BEGIN

ruta := ExtractFilePath(application.ExeName); //obtenemos la ruta de nuestro ejecutable
ruta:= ruta + '/cambiaripp.bat';
//Creamos el archivo con la ruta obtenida
AssignFile(F, ruta);
Rewrite(F);
//Ponemos las lineas necesarias a nuestro bat
writeln(F, '@echo off');
writeln(F, 'cls');
writeln(F, 'netsh interface ipv4 set address name = a* source=static address=192.168.5.120 mask=255.255.255.0 gateway=192.168.5.254');
CloseFile(F);
WinExec('cambiaripp.bat',SW_SHOWNORMAL);
showmessage('Listo');
end;

a* -> aquí va el nombre de la conexión por lo general dice "Conexión de área local"