FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
crear un acceso directo
como hago para crear un acceso directo en el escritorio y en la carpeta de archivos de programas.
de manera que funcione tanto en win98 como nt y ya sea que el OS este en español o en ingles gracias de antemano.
__________________
El secreto de la libertad está en no tener miedo. |
#2
|
||||
|
||||
TRUCO 203 del TRUCOMANIA:
-Añade ShlObj, ActiveX y ComObj en el uses de tu form Y usa esta función para crear el acceso directo. Por ejemplo, crear un acceso directo en el escritorio al Block de Notas que abra el Autoexec.bat: Código:
procedure TForm1.Button1Click(Sender: TObject);
procedure CreaLnk( Exe,
Argumentos,
DirTrabajo,
NombreLnk,
DirDestino:string);
var
Objeto: IUnknown;
UnSlink: IShellLink;
FicheroP: IPersistFile;
WFichero: WideString;
begin
Objeto := CreateComObject(CLSID_ShellLink);
UnSlink := Objeto as IShellLink;
FicheroP := Objeto as IPersistFile;
with UnSlink do
begin
SetArguments( PChar(Argumentos) );
SetPath( PChar(Exe) );
SetWorkingDirectory( PChar(DirTrabajo) );
end;
WFichero := DirDestino + '\' + NombreLnk;
FicheroP.Save(PWChar(WFichero),False);
end;
begin
CreaLnk( 'c:\windows\Notepad.exe', {Ejecutable}
'c:\Autoexec.bat', {Argumentos}
'c:\', {Diretorio de trabajo}
'Editar Autoexec.lnk', {Nombre del Acceso Directo}
'c:\windows\escritorio' {Donde hay que crearlo}
);
end;
__________________
Saludos, Peter Investment |
#3
|
|||
|
|||
gracias.
__________________
El secreto de la libertad está en no tener miedo. |
#4
|
|||
|
|||
no funciona el delphi 7 ....
alguna otra opcion????
__________________
El secreto de la libertad está en no tener miedo. |
#5
|
||||
|
||||
Aunque no me agrada mucho este código, te recomendaría cambiar la línea, así tiene que funcionar!
Código:
WFichero := DirDestino + '' + NombreLnk; Código:
WFichero := IncludeTrailingBackslash(DirDestino) + NombreLnk;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#6
|
||||
|
||||
Me olvidé de algo... Si utilizas las RxLibs, en la unit FileUtil tienes las funciones CreateFileLink y DeleteFileLink para manejar accesos directos.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
|||
|
|||
ok, voy a probar eso.
probe las rx pero se ve que en delphi 7 no funcionan. una consulta para que se define UnSlink y se le asignan los atributos si despues no se usan ... o si se usan ... en donde o como ?
__________________
El secreto de la libertad está en no tener miedo. |
#8
|
|||
|
|||
ahora si... con el
WFichero := IncludeTrailingBackslash(DirDestino) + NombreLnk; anda joya.!!! mercie
__________________
El secreto de la libertad está en no tener miedo. |
|
|
|