Показать сообщение отдельно
Старый 15.10.2012, 16:31   #4  
artkashin is offline
artkashin
Участник
MCBMSS
 
519 / 18 (2) ++
Регистрация: 06.12.2006
Цитата:
Сообщение от DA_NEAL Посмотреть сообщение
Вот все таки как все похоже.
Я до этого способа делал то же самое.
На AutoIT написал утилиту которая по параметру URL создавала текстовой файлик с этим URL. Зарегал протокол в реестре а-ля navision:// где прописал эту утилиту. Она также создавала в локальном каталоге юзера RDP файлик и запускала его. В 1 кодюъните прописал проверку наличия файлика с URL в локальном каталоге и если он есть отрывал на CompanyOpen.Далее этот файлик грохался в этом же кодъюните. Таким образом работали гиперссылки на RDP. Но чето мне этот способ не очень нравился, тем более надо было бы всем ставить эту утилиту, вносить изменения в реестр у пользователей.
Ахах
не поленился нашел свой код в LogInStart

Код:
AutostartShortcutSetup.SETRANGE(Enabled, TRUE);
IF AutostartShortcutSetup.FINDFIRST THEN
 BEGIN
  ShortcutNameWithPath:=STRSUBSTNO(AutostartShortcutSetup.Path, USERID);
  IF EXISTS(ShortcutNameWithPath) THEN
   BEGIN
     ShortcutToStart.TEXTMODE(TRUE);
     ShortcutToStart.OPEN(ShortcutNameWithPath);
     StartProgram := (ShortcutToStart.READ(Hlink)>0);
     ShortcutToStart.CLOSE;
     ERASE(ShortcutNameWithPath);
     IF StartProgram THEN 
       IF UPPERCASE(Text50000)=UPPERCASE(COPYSTR(Hlink, 1, STRLEN(Text50000))) THEN
         HYPERLINK(Hlink);
   END;
 END;
Собственно через AutoIT была задача создать файлик в папке с содержимым гиперссылки, и запустить NAV. Да, перехват протокола navision://, точнее замена ветки в реестре так же присутствовала :-)
Проверки тут параноидальные сделаны были - формально можно было запустить на терминальном сервере что-угодно, поэтому проверял, что это именно ссылка в стиле NAV :-)
Т.е. мое решение, кажется, вообще не отличается от вашего :-))