a qui esta el codigo ....
Código:
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 := IncludeTrailingBackslash(DirDestino) + NombreLnk;
FicheroP.Save(PWChar(WFichero),False);
end;