Se me ocurrió hace un acceso directo a telnet, en XP hago:
Código Delphi
[-]procedure TForm1.Label3Click(Sender: TObject);
begin
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
ShellExecute(Handle, 'open', PChar('C:\Windows\System32\cmd.exe /c telnet 254.1.254.1'), nil, nil, 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?