| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как создать ярлык? [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Xeon ©   (2003-05-09 07:45:00) 

Подскажите пожалуйста как создать ярлык для какого-то файла в главном меня или на рабочем столе?

---

german goering   (2003-05-09 08:37:00) [1]

Поправка

OleCheck((iSL as IPersistFile).Save(PWideChar(LinkFileName),True));

Можно без OleCheck"ов, в принципе, однако:
try
OleCheck(iSL.SetPath(PChar(nil))); //зано ошибочное значение
except
//Здесь обработали ошибку
end;

ShellApi.SHGetSpecialFolderPath()+"/"+FileName+".lnk" => LinkFileName

---

german goering   (2003-05-09 08:29:00) [2]

procedure TForm1.Button267Click(Sender: TObject);
var iSL: IShellLink; {uses ShlObj}
LinkFileName: WideString;
LinkFileObj: string;
begin
LinkFileObj := "F:\";
LinkFileName := "C:\Documents and Settings\All Users\Рабочий стол\as.lnk";

OleCheck(CoCreateInstance(CLSID_ShellLink,nil,CLSCTX_INPROC_SERVER,IShellLink,iSL));

OleCheck(iSL.SetPath(PChar(LinkFileObj)));
OleCheck(iSL.SetDescription("This is a program created link obj 0"));
(iSL as IPersistFile).Save(PWideChar(LinkFileName),True); {IPersistFile - uses ActiveX}
end;

Должно помочь

---

Наверх