Сайт AZJIO
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта
Категории раздела
Скрипты для LiveCD [0]
Скрипты для WindowsXP [8]
Примеры скриптов [15]
Функции [5]
Поиск
Главная » Статьи » Скрипты AutoIt3 » Функции

_TypeGetPath


;получить путь ассоциированной программы. Например:
; 1. нужно ini-файл или cfg и т.д. открыть в текстовом редакторе, который ассоциирован с txt
; 2. нужно открыть каталог программы ассоциированный с указанным типом.
; Идеалный вариант - модификация trancexx по ссылке ниже
; http://www.autoitscript.com/forum/topic/96988-winapi-findexecutable-replacement/page__view__findpost__p__697477


$Editor = _TypeGetPath('txt')
; $Editor=_TypeGetPath('bmp')
If @error Then $Editor = @SystemDir & '\notepad.exe'

MsgBox(0, 'Сообщение', $Editor)

Func _TypeGetPath($type)
    Local $aPath = ''
    Local $typefile = RegRead('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.' & $type, 'Progid')
    If @error Or $typefile = '' Then
        $typefile = RegRead('HKCR\.' & $type, '')
        If @error Then
            $aPath = RegRead('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.' & $type & '\OpenWithList', 'a')
            If @error Or $aPath = '' Then Return SetError(1)
        EndIf
    EndIf
    If $aPath = '' Then
        Local $Open = RegRead('HKCR\' & $typefile & '\shell', '')
        If @error Or $Open = '' Then $Open = 'open'
        $typefile = RegRead('HKCR\' & $typefile & '\shell\' & $Open & '\command', '')
        If @error Then
            $aPath = RegRead('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.' & $type & '\OpenWithList', 'a')
            If @error Or $aPath = '' Then
                Return SetError(1)
            Else
                $typefile = $aPath
            EndIf
        EndIf
    Else
        $typefile = $aPath
    EndIf
    Local $aPath = StringRegExp($typefile, '(?i)(^.*)(\.exe.*)$', 3)
    If @error Then Return SetError(1)
    $aPath = StringReplace($aPath[0], '"', '') & '.exe'
    Opt('ExpandEnvStrings', 1)
    If FileExists($aPath) Then
        $aPath = $aPath
        Opt('ExpandEnvStrings', 0)
        Return $aPath
    EndIf
    Opt('ExpandEnvStrings', 0)
    If FileExists(@SystemDir & '\' & $aPath) Then
        Return @SystemDir & '\' & $aPath
    ElseIf FileExists(@WindowsDir & '\' & $aPath) Then
        Return @WindowsDir & '\' & $aPath
    EndIf
    Return SetError(1)
EndFunc   ;==>_TypeGetPath

Категория: Функции | Добавил: AZJIO (11.01.2011)
Просмотров: 533 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Вход
Друзья сайта
  • WinPE - Ru.Board
  • Rutracker.Org
  • LiveCD - Ru.Board
  • AutoIT3 - Ru.Board
  • autoit-script.ru
  • autoitscript.com
  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    WebMoney

    Мой кошелёк

    wmr: R939163939152

    Яндекс: 410011460667731


    AZJIO © 2017