Создание ярлыка

← →
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 еще что-то, или ярлык вообще по другому создается?

← →
IgoX (2002-01-23 12:11) [1]

на Builder первая кнопка создает а вторая удаляет работает на 98 w2k
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HRESULT hres;
IShellLink *psl;
IPersistFile *ppf;

wchar_t wsz[MAX_PATH];
char StartPath[MAX_PATH];
LPITEMIDLIST pidl;
AnsiString s=Application->ExeName;
while(1)
{
s=s.SubString(s.Pos("\\")+1,s.Length());
if(s.Pos("\\") == 0)
{
int i=0;
i=s.Length()+1;
s=Application->ExeName.SubString(1,Application->ExeName.Length()-i);
break;
}
}

SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, &pidl); //CSIDL_STARTUP, CSIDL_STARTMENU, CSIDL_PROGRAMS
SHGetPathFromIDList(pidl, StartPath);

CoInitialize(NULL);

hres = CoCreateInstance(CLSID_ShellLink, NULL,
CLSCTX_INPROC_SERVER, IID_IShellLink, (void**)&psl);
if (SUCCEEDED(hres))
{
psl->SetPath(Application->ExeName.c_str());
psl->SetWorkingDirectory(s.c_str());
psl->SetDescription("

← →
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;

← →
Набережных С. (2002-01-23 17:25) [3]

IPersistFile описан в ActiveX.

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