Нашёл необычное решение для создания ярлыков

← →
microlab (2003-02-16 20:20) [0]

Нашёл необычное решение для создания ярлыков. У меня работает. Можно вместо .JS использовать .VBS, код почти такойже. Что вы об этом думаете?
procedure CreateLink(PathObj,PathLink:string); var f:textfile; filename:string; function StartLine(s:string):string; begin result:=parse(s,"\"); repeat result:=result+"\\"+ Parse(s,"\"); until pos("\",s)=0; result:=result+"\\"+s; end; begin filename:=GetTempDir+"\Shortcut.js"; assignfile(f,filename); rewrite(f); writeln(f,"var WSHShell = WScript.CreateObject("WScript.Shell");"); writeln(f,"var MyShortcut = WSHShell.CreateShortcut("",startline(PathLink),"");"); writeln(f,"MyShortcut.TargetPath ="); writeln(f,"WSHShell.ExpandEnvironmentStrings("",startline(PathObj),"");"); writeln(f,"MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("",startline(ExtractFilePath(PathObj)),"");"); writeln(f,"MyShortcut.WindowStyle = 4;"); writeln(f,"MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("",startline(PathObj),", 0");"); writeln(f,"MyShortcut.Save();"); closefile(f); shellexecute(applet.Handle,"open",pchar(filename),"","",sw_shownormal); end;
А эти функции можно использовать дл определения системных папок (для определения места где создавать ярлыки).

Function ShellFolders(Path:string):string; {Path может быть SturtUp,Desktop,Favorites,Programs,SendTo,Start Menu и др.} Var Key:Hkey; begin Key:=RegKeyOpenRead(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"); result:=RegKeyGetStr(Key,Path); RegKeyClose(Key); end; function GetQuickLaunch:string; //Находит путь к ярлыкам панели быстрый запуск Var Key:Hkey; begin Key:=RegKeyOpenRead(HKEY_CURRENT_USER,"SOFTWARE\Microsoft\Windows\CurrentVersion\GrpConv\MapGroups"); result:=RegKeyGetStr(Key,"Quick Launch"); RegKeyClose(Key);

← →
.::D.e.M.o.N.i.X::. (2003-02-16 23:35) [1]

Я могу лишь сказать, что нужно писать инсталятор:-)

← →
Kladov (2003-02-17 18:45) [2]

Способ замечательный, но зависит от наличия явы. А так же от того, какой браузер установлен по умолчанию. А так же от того, поддерживает ли он яву, и в каком объеме. И какой уровень безопасности на машине. Или что я упустил?

Нашёл необычное решение для создания ярлыков Найти похожие ветки