[ protech_v2 @ 22.07.2007. 19:50 ] @
Sve pise u naslovu :)

Kad napravim rucno i otvorim properties za shortcut na tu konekciju dobijem target: {BA126AD7-2166-11D1-B1D0-00805FC1270E} - kako da dobijem ovo za proizvoljnu konekciju i napravim pomocu toga shortcut?

Ovo bi bio kod za pravljenje konekcije na obican fajl:

Code:

procedure CreateLink(Target, Args, WorkDir, ShortCutName: String);
var
  IObj: IUnknown;
  Link: IShellLink;
  IPFile: IPersistFile;
  TargetW: WideString;
begin
  IObj := CreateComObject(CLSID_ShellLink);
  Link := IObj as IShellLink;
  IPFile := IObj as IPersistFile;

  with Link do
  begin
    SetPath(PChar(Target));
    SetArguments(PChar(Args));
    SetShowCmd(SW_SHOWMINIMIZED);
    SetWorkingDirectory(PChar(WorkDir));
  end;
  TargetW := ShortCutName;
  IPFile.Save(PWChar(TargetW), False);
end;