Скачать: CL | DM;

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

← →
Belov ©   (2002-07-30 21:06) [0]

Собственно сабж
Если можно с примером

---

← →
Jeer ©   (2002-07-30 21:42) [1]

Исходи их этого
uses ShlObj, ComObj, ActiveX;
..
LObj: IUnknown;
..
LObj := CreateComObject(CLSID_ShellLink);

---

← →
LENIN INC   (2002-07-30 21:45) [2]

Так попробуй:

USES
ShlObj, ActiveX, ComObj

procedure CreateShortcut(const FilePath, ShortcutPath, WorkDir, Description, Params:string);
var obj: IUnknown;
isl: IShellLink;
ipf: IPersistFile;
begin
obj := CreateComObject(CLSID_ShellLink);
isl := obj as IShellLink;
ipf := obj as IPersistFile;
with isl do
begin
SetPath(PChar(FilePath));
SetArguments(PChar(Params));
SetDescription(PChar(Description));
SetWorkingDirectory(PChar(WorkDir));
end;
ipf.Save(PWChar(WideString(ShortcutPath)), False);
end;


//Пример использования
// пример создания ярлыка на рабочем столе
var
UserDesktop:String;
R:TRegIniFile;
begin
R:= TRegIniFile.Create("");
with R do begin
RootKey := HKEY_CURRENT_USER;
UserDesktop:=ReadString("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","desktop","");
Free;
end;

CreateShortcut (Application.ExeName,UserDesktop+"\Название ярлыка.lnk","","", "");

end;

---

← →
-=Prior=-   (2002-07-30 21:50) [3]

uses ShlObj, ComObj, ActiveX;

procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
var
IObject: IUnknown;
SLink: IShellLink;
PFile: IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;
Наиболее распространенная задача - создание ярлыка на рабочем столе. Для этого необходимо определить полный путь к системной папке Windows Desctop через реестр и передать его в качестве параметра PathLink.
<h>Взял из FAQ</h>.
Посмотри пожалуйста на мой вопросик, может знаешь!

---

← →
VID ©   (2002-07-30 21:58) [4]

Помимо того, что указал LENIN INC ( http://delphibase.endimus.com/?action=viewfunc&topic=filelink&id=10060), в UBPFD есть ещё одна подобная функция.
http://delphibase.endimus.com/?action=viewfunc&topic=filelink&id=10058

---

← →
Jeer ©   (2002-07-30 22:02) [5]

Вот собственно и "ответ" на мои сентенции.
Я специально не привел известные решения.
Как бы предполагался диалог-с.
И что ?
Нашлось пара умников в режиме справочной системы.

Одним лишь бы бы отделаться и поскорее (первым) правильно высказаться, другим всосать эту жвачку через ^C/^V, заглотить и понадеяться на отсутствие диареи после того как..

---

← →
VID ©   (2002-07-30 23:04) [6]

НУ прости нас грешных ! ;) Оказывается здесь модно как в квестах одними намёками разговаривать :)

---

← →
Jeer ©   (2002-07-30 23:08) [7]

Если ты рассчитываешь на интеллект по ту сторону диалога - то намек- лучшая форма воспитания.
Иначе..

---

← →
nick_sniper ©   (2002-07-30 23:18) [8]

> Jeer © (30.07.02 22:02)

Обычно люди расчитывают получить ответ на свой вопрос, или хотя бы путь где его можно искать (для сложных вопросов). И думаю не слишком многим хотелось бы вести двухмесячные диалоги.

IMHO, Вы просто хулиган.

---

← →
nick_sniper ©   (2002-07-30 23:25) [9]

> Jeer © (30.07.02 23:08

Кстати, и могли бы представиться в анкете. Не надо так скромничать.

---

← →
nikesmile   (2002-07-31 01:06) [10]

Народ, вам что, делать больше не..й (sorry)

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c