[Lazarus-es] crear acceso directo

[Maikel Enrique Pernia Matos]

Colegas:
Alguien sabe como crear un acceso directo desde una app escrita con
Lazarus en windows; pues para GNU/Linux lo resuelvo utilizando el
TProcess.

procedure CrearAccesoDirecto();
var
  proc : TProcess;
begin
   proc := TProcess.Create(nil);
   proc.CommandLine := 'ln -s ruta_origen ruta_acceso_directo';
   proc.Execute;
   proc.Free;
end;

Saludos



--
Nunca digas nunca, di mejor: gracias, permiso, disculpe.

Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas

Infomed: http://www.sld.cu/