Kode som kan ændre shortcut

Jeg ved ikke om dette kan hjælpe, men koden her skaber i hvertfald en valid .lnk fil


procedure CreateShellLink(FileName, WorkDir, params : string;
                          LinkName : WideString);
var
  AnObj : IUnknown;
  ShLink : IShellLink;
  PFile : IPersistFile;
begin
  AnObj := CreateComObject(CLSID_ShellLink);
  ShLink := AnObj as IShellLink;
  PFile := AnObj as IPersistFile;
  if params <> '' then
  begin
    shlink.SetArguments(pchar(params));
  end;
  ShLink.SetPath(PCHAR(FileName));
  ShLink.SetWorkingDirectory(PCHAR(WorkDir));
  shlink.SetDescription(pchar('et hint til linket'));
  If not DirectoryExists(ExtractFilePath(LinkName))
  then ForceDirectories(ExtractFilePath(LinkName));
  PFile.Save(PWChar(LinkName), False);
end;

ha' det godt
hatecaps

svar

lukket