Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Вниз
Создание ярлыка Найти похожие ветки
← →
al-al (2006-04-07 10:07) [0]Доброго всем времени суток. Вопрос простой: Как програмно создать ярлык?
← →
Der Nechk@ssoff © (2006-04-07 11:22) [1]API
← →
Игорь Шевченко © (2006-04-07 11:28) [2]Der Nechk@ssoff © (07.04.06 11:22) [1]
Если у тебя есть фонтан - заткни его. Дай отдохнуть и фонтану.
← →
Zeqfreed © (2006-04-07 11:59) [3]http://www.scalabium.com/faq/dct0051.htm
http://offline.burik.ru/delphi/dw/base/create_object_link.html
http://www.delphirus.com.ru/modules.php?name=Pages&pa=showpage&pid=832
← →
sniknik © (2006-04-07 12:16) [4]описание
http://centersti.com/Info/PROGR/Delphi7%20prof/Glava31/Index4.html
но пример там корявый, просто исправил явные глюки (о->0 и тд), без "оптимизаций".в uses добавить ShlObj
и в const
const
IID_IPersistFile: TGUID =
(D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));
procedure TForm1.Button1Click(Sender: TObject);
var
NewLink: IShellLink;
fn, fp: string;
ws: WideString;
hRes: THandle;
pf: IPersistFile;
begin
NewLink:= CreateComObject(CLSID_ShellLink) as IShellLink;
fn:= ParamStr(0);
NewLink.SetPath(pchar(fn));
fp:= ExtractFilePath(fn);
NewLink.SetWorkingDirectory(pchar(fp));
NewLink.SetDescription(pChar(Application.Title));
ws:= fp+Application.Title+".lnk";
hRes:= NewLink.QueryInterface(IID_IPersistFile, pf);
if Succeeded(hRes) then
pf.Save(pWideChar(ws), False);
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c
