Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Johnny Smith   (2002-01-23 12:17) [2]

procedure TForm1.mklink(tf:string);
var
NewLink:IshellLink;
ws:WideString;
hRes:Thandle;
pf:IpersistFile;
begin
// Процедура создания *.lnk - файла
NewLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
NewLink.SetPath(pchar("c:\projects\project1.exe"));
NewLink.SetWorkingDirectory(pchar("c:\projects"));
NewLink.SetDescription(pchar("Моя прога"));
ws:=tf+"\Моя прога.lnk";
hRes:=newLink.QueryInterface(IPersistFile,pf);
if Succeeded(hRes)
then pf.Save(pWideChar(ws),False);
end;

---

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

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c