Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

Ярлык на рабочем столе   Найти похожие ветки 

 
DarkMan   (2004-08-05 07:22) [0]

Есть програмка которая создаёт новое сетевое поключение и нужно чтобы данное соединение "ярлык" появился на рабочем столе.
Может кто что то подобное делал, в каком так сказать направлении искать?


 
Кириешки ©   (2004-08-05 07:36) [1]

Делал, почти такое же, а ярлыки делать так

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;

Надеюсь все понятно будет.


 
DarkMan   (2004-08-09 08:08) [2]

Как ярлык какого либо файла и так понятно как создать, но как создать ярлык на рабочем столе какого либо сетевого подключения.
Т.Е. программа создает новое соединение через модем например (это в XP в панель управления/Сетевые подключения/Мастер нов. подкл., в конце работы данного мастера он спрашивает создать или нет ярлык на рабочем столе)  и как мне создать ярлык программно.
Написано что нужно передать PIDL этого объекта, но в итоге получается ссылна не на тот объект.


 
Hensin ©   (2004-09-09 16:18) [3]

Пиплы, тут все грейт, но Делфи пишет шо IPersistFile неизвестный тип, это к чему???



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

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
9-1086861113
Andr
2004-06-10 13:51
2004.10.10
Про нормали в OpenGL


3-1095249551
panov
2004-09-15 15:59
2004.10.10
Корректировка таблицы sysprocesses


6-1091184051
Гость
2004-07-30 14:40
2004.10.10
WEBBROWSEr1


3-1094728910
Heretic
2004-09-09 15:21
2004.10.10
По поводу процедуры "BeforePost" в Ttable


4-1094300672
DeepProg
2004-09-04 16:24
2004.10.10
Таймер, устойчивый при полной загрузке процессора