Главная страница
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.024 c
3-1094724364
skif
2004-09-09 14:06
2004.10.10
<B>Как заэкранировать символ ( )</B>


1-1096040073
Vasiliy2k
2004-09-24 19:34
2004.10.10
таблицы в TRichedit


1-1096341882
igan
2004-09-28 07:24
2004.10.10
internal error C1376


14-1095916906
Dmitriy O.
2004-09-23 09:21
2004.10.10
Купил Сканер


3-1095155532
_alex_
2004-09-14 13:52
2004.10.10
FireBird