Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.




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




Наверх





Память: 0.72 MB
Время: 0.014 c
1-18904           Tadeush               2002-01-23 15:43  2002.02.07  
Как считать имена файлов?


6-18943           Landgraph             2001-11-12 10:28  2002.02.07  
И всё таки...


7-19005           Шабжуров Баатар       2001-10-30 20:56  2002.02.07  
Разработка приложений под НТ-2000-ые винды


4-19025           Art                   2001-11-18 18:06  2002.02.07  
Как использовать ShellExecute?????


7-19015           SD                    2001-10-30 13:57  2002.02.07  
Что значит частота отцифровки звука 11025 Гц