Kako !!@#$%$# da napravim shortcut na network konekciju na desktopu?? :)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;
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;
