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

Вниз

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

← →
Vaddya   (2002-01-23 12:03) [0]

Имеется код:

uses ShlObj;
procedure TForm1.Button1Click(Sender: TObject);
var
NewLink: IShellLInk;
fn, fp: string;
ws: widestring;
hRes: THandle;
pf: IPersistFile; //Здесь неизвестный идентификатор!
begin
NewLink := CreateComObject(CLISD_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.Tittle + ".lnk";
hRes := NewLinkGueryInterface(IID_IPersistFile, pf);
if Succeeded(hRes) then
pf.Save(PWideChar(ws), False);
end;

Или в uses еще что-то, или ярлык вообще по другому создается?

---

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

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

Наверх

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