Главная страница
    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.006 c
1-18797
Super_Drive
2002-01-24 16:58
2002.02.07
Проблема с Chart


1-18920
навичек
2002-01-24 09:12
2002.02.07
Создание мастера


3-18759
BJValentine
2002-01-11 16:02
2002.02.07
Потоки и БД


1-18908
Demon ltd
2002-01-24 01:21
2002.02.07
работа с Combobox ом


3-18773
Laimer
2002-01-14 13:14
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский