Скачать: CL | DM;

Ярлыки   Найти похожие ветки 

← →
volser   (2004-08-03 11:11) [0]

Как вызвать стандартный диалог создания и свойст ярлыка?

---

← →
GuAV ©   (2004-08-03 13:35) [1]

>  создания

а в Реестре посмотреть напрягает?
RunDLL32 AppWiz.Cpl,NewLinkHere %2

> свойст

как и не ярлыка
function SHObjectProperties(hwndOwner: HWND;
 uFlags: Integer; lpstrName,
 lpstrParameters: PChar): LongBool; stdcall;
   external shell32 index 178;

procedure Properties(const FileName: string);
begin
 SHObjectProperties(Application.Handle, 2,
   PChar(FileName), nil);
end;

импортирую по индексу, чтоб пошло и в 95/98/МЕ

---

← →
volser   (2004-08-03 17:50) [2]

Большое спасибо!

---

← →
OSokin ©   (2004-08-10 20:17) [3]

Вот что я нашел в одном FAQ:

 function CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: string):
IPersistFile;
 var
   MyObject  : IUnknown;
   MySLink   : IShellLink;
   MyPFile   : IPersistFile;
   WideFile  : WideString;
 begin
   MyObject := CreateComObject(CLSID_ShellLink);
   MySLink := MyObject as IShellLink;
   MyPFile := MyObject as IPersistFile;
   with MySLink do
   begin
     SetPath(PChar(CmdLine));
     SetArguments(PChar(Args));
     SetWorkingDirectory(PChar(WorkDir));
   end;

   WideFile := LinkFile;
   MyPFile.Save(PWChar(WideFile), False);
   Result := MyPFile;
 end;

 procedure CreateShortcuts;
 var Directory, ExecDir: String;
     MyReg: TRegIniFile;
 begin
   MyReg := TRegIniFile.Create(
     "Software\MicroSoft\Windows\CurrentVersion\Explorer");

   ExecDir := ExtractFilePath(ParamStr(0));
   Directory := MyReg.ReadString("Shell Folders", "Programs", "") + "\" +
ProgramMenu;
   CreateDir(Directory);
   MyReg.Free;

   CreateShortcut(ExecDir + "Autorun.exe", "", ExecDir,

     Directory + "\Demonstration.lnk");
   CreateShortcut(ExecDir + "Readme.txt", "", ExecDir,
     Directory + "\Installation notes.lnk");
   CreateShortcut(ExecDir + "WinSys\ivi_nt95.exe", "", ExecDir,
     Directory + "\Install Intel Video Interactive.lnk");
 end;

Только тут создается на рабочем столе

---

← →
GuAV ©   (2004-08-11 01:25) [4]

Это создания ярлыка, а просили Диалог...

---

← →
OSokin ©   (2004-08-12 19:17) [5]

А что же тебе мешает создать свой?

---

← →
DVM ©   (2004-08-12 19:33) [6]

Вызвать то можно, я пробовал когда то давно, забыл уже как, но потом плюнул и создал свой. Дело там в том, что потом от этого диалога непонятно было как получить сведения о том где и какой ярлык создан. А еще он не создает ярлыки для папок.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c