Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 еще что-то, или ярлык вообще по другому создается?


 
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.



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
4-19029
McSimm
2001-12-11 19:08
2002.02.07
LogonUser и привилегии


14-18978
vivus
2001-12-17 16:36
2002.02.07
Люди. по Дельфи есть сайт (этот). А про С++ (подобный на мастак.ру)?


3-18741
Andrey007
2001-12-29 10:31
2002.02.07
Вопрос по Query.Locate.


4-19037
Hair_Fly
2001-12-10 12:05
2002.02.07
работая под юзером, запускать прогу с правами администратора.


14-18952
p@s
2001-12-18 12:17
2002.02.07
Пропали хинты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский