Cambiar Ip por codigo en Windows 7

[thelibmx]

Hola amigos estoy intentando cambiar la IP de w7 a través de un programa hecho en delphi2010, he encontrado algunos métodos para XP pero parece que no funcionan con el W7 ¿alguna pista?

Por su atención gracias

[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"