Problema de compatibilidad de ShellExecute y WinExec

[wolfran_hack]

Se me ocurrió hace un acceso directo a telnet, en XP hago:

Código Delphi [-]
procedure TForm1.Label3Click(Sender: TObject);
begin
  // Conexión con Telnet:
  WinExec(PChar('telnet ' + Edit2.Text),SW_SHOWNORMAL);
end;

Funciona perfecto, en Windows 7 no, pruebo con:

Código Delphi [-]
procedure TForm1.Label2Click(Sender: TObject);
begin
  // Conexión con Telnet:
  ShellExecute(Handle, 'open', PChar('C:\Windows\System32\cmd.exe /c telnet 254.1.254.1'), nil, nil, SW_SHOWNORMAL);
  //Solo funciona en XP:
  //WinExec(PChar('telnet ' + Edit1.Text),SW_SHOWNORMAL);
end;

El PChar('C:\Windows\System32\cmd.exe'), funciona hasta ahí, luego no se abre nunca el terminal, cual puede ser el problema?

[ecfisa]

Hola wolfran_hack.

Tenes que enviar los parámetros según la sintáxis de la función [ShellExecute]:

Código Delphi [-]
...
  ShellExecute(Handle,
               'open',
               'C:\Windows\System32\cmd.exe',
               '/c telnet 254.1.254.1',
               nil,
               SW_SHOWNORMAL);
...

Saludos.

[wolfran_hack]

resulta que ahora me entero que viene desactivado el telnet en windows 7.-

[ecfisa]

Empezado por wolfran_hack

resulta que ahora me entero que viene desactivado el telnet en windows 7.-

Tenes razón, ahora que lo mencionas recuerdo que viene desactivado por defecto. Es que hace un tiempo largo que no instalo W7 y se me pasó por alto...

De todos modos no es aconsejable el uso de la función WinExec que sólo continua existiendo a fín de brindar compatibilidad con las aplicaciones de 16 bits.

Saludos.