|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2007, 03:17 | #1 |
Бот
Администратор
Регистрация: 27.05.2007
Сообщений: 182
|
обновление в блоге - О ярлыках
О ярлыках
pblog.ruОснова создания ярлыка является следующие: В раздел Uses необходимо добавить следующие модули ShlObj, ActiveX, ComObj, StdCtrls; private procedure CreateShotCut(SourceFile, ShortCutName, SourceParams: String); public { Public declarations } end; implementation procedure TForm1.CreateShotCut(SourceFile, ShortCutName, SourceParams: String); var IUnk: IUnknown; ShellLink: IShellLink; ShellFile: IPersistFile; tmpShortCutName: string; WideStr: WideString; i: Integer; begin IUnk := CreateComObject(CLSID_ShellLink); ShellLink := IUnk as IShellLink; ShellFile := IUnk as IPersistFile; ShellLink.SetPath(PChar(SourceFile) ); ShellLink.SetArguments(PChar(Source Params)); ShellLink.SetWorkingDirectory(PChar (ExtractFilePath(SourceFile))); ShortCutName := ChangeFileExt(ShortCutName,’.lnk’); if fileexists(ShortCutName) then begin ShortCutName := copy(ShortCutName,1,length(ShortCut Name)-4); i := 1; repeat tmpShortCutName := ShortCutName +’(’ + inttostr(i)+ ‘).lnk’; inc(i); until not fileexists(tmpShortCutName); WideStr := tmpShortCutName; end else WideStr := ShortCutName; ShellFile.Save(PWChar(WideStr),Fals e); end; Например, для создания ярлыка в автозагрузки надо: (more…) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
обновление в блоге - USB Грелка | Pblog | Обсуждение статей | 0 | 04.10.2007 15:20 |
обновление в блоге - USB Холодильник | Pblog | Обсуждение статей | 0 | 25.06.2007 14:13 |
обновление в блоге - Windows | Pblog | Обсуждение статей | 0 | 27.05.2007 03:17 |
обновление в блоге - Шифрование | Pblog | Обсуждение статей | 0 | 27.05.2007 03:17 |