Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.051 c