Siguiendo el ejemplo de
José Arce, quedaría así.
Código:
procedure TFPrincipal.btLanzaClick(Sender: TObject);
begin
try
Esperar(Ejecutar('Start Mailto:[email protected]', ''));
finally
end;
end;
procedure TfPrincipal.Button1Click(Sender: TObject);
begin
try
Esperar(Ejecutar('c:\windows\calc.exe', ''));
finally
end;
end;
procedure TfPrincipal.Button2Click(Sender: TObject);
begin
try
Esperar(Ejecutar('C:\Archivos de programa\Netscape\Netscape\Netscp.exe', 'http://www.yahoo.es'));
finally
end;
end;
Un Saludo.