Foro de elhacker.net

Hola muy buenas!

Estoy haciendo un programa simple en lazarus para windows con funciones también bastante simples por ir aprendiendo...y ahora mismo estoy haciendo una función en el que escribes un dominio y te haga un nslookup de este dominio...el codigo importante para la duda es:

writeln('Introduzca el nombre del dominio:');
readln(D);
if D<>'' then
ShellExecute(0, nil, 'cmd.exe', '/c nslookup '+D+'>nslookup.txt', nil, SW_HIDE);

El problema es que no me deja meter la variable  D dentro del ShellExecute (declarada String) con el siguiente error:

Got antiString expected Pchar

Seguramente sea error de novato...pero le he dado varias vueltas y no lo veo...

Gracias y un saludo.

Prueba este ejemplo probado en lazarus 1.2

  Classes,shellapi,sysutils
  { you can add units after this };
 
var
  dominio:string;
begin
   writeln('Introduzca el dominio');
   readln(dominio);
 
   if dominio<>'' then
     ShellExecute(0, 'open','cmd.exe',pchar('/k nslookup '+dominio+'>C:\nslookup.txt'), nil, 0);
 
   writeln('Listo');
   readln;
 
end.
 

Lo voy a probar en cuanto vuelva a casa y te digo algo pero tiene buena pinta jejeje! Muchas gracias!

Efectivamente así era! Aunque es una chorrada me ha dado una buena alegria verlo funcionar jejeje! Muchas gracias!