Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2014-11

crear acceso directo

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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/

Reply by email

Martin Gomez
to Maikel Enrique Pernia Matos

Hola Maikel,
Con ln -s no haces un "acceso directo" (al menos como los conocemos en Windows) sino un link simb�lico a un archivo.
El equivalente de los accesos directos de Windows, en Linux, lo logras con archivos .desktop (son lanzadores de aplicaciones)

Si lo que necesitas son links (duros, simbolicos o junctions), busca documentaci�n sobre el utilitario MKLINK y FSUTIL, ambos vienen integrados desde Windows Vista en adelante, aunque hay algunos utilitarios freeware que hacen lo mismo en cualquier disco NTFS desde Win2000 en adelante.

ej:
http://technet.microsoft.com/en-us/library/cc753194.aspx http://ss64.com/nt/mklink.html

2014-11-17 13:01 GMT-03:00 Maikel Enrique Pernia Matos < corba en grannet.grm.sld.cu>:

Show quoted text 35 lines
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/ _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
? Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program. ? ? *Linus Torvalds* ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20141117/75a09337/attachment.html>

Reply by email