Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
RegDeleteValue - Функция удаляет заданный параметрСодержание книги
Поиск на нашем сайте
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Основные параметры: hKey - манипулятор ключа Пример: Dim Result As Long
RegDeleteValue Result, "StringValue"
hKey - манипулятор ключа Пример: STResult = Space(255) '// Находим манипулятор нужного ключа '// Считываем значения числового параметра с именем DWordValue '// Считываем значения строкового параметра с именем StringValue RegCloseKey Result '// Закрытие ключа '// Выводим значение параметров MsgBox DWResult '// Числовое В начало
Ассоциация с типами файлов '// Функции Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
'// Структуры Private Type SECURITY_ATTRIBUTES
'// Константы
'// Функция для ассоциации типа файла с приложением Public Sub AsProgram(FileType As String) Dim retval As Long Dim Result As Long Dim SA As SECURITY_ATTRIBUTES Dim sPath As String
'// Присваиваем значению по умолчанию название программы RegSetValueEx Result, "", 0, REG_SZ, ByVal App.Title, Len(App.Title)
'// Создаём ключ, связанный с расширением файла retval = RegCreateKeyEx(HKEY_CLASSES_ROOT, FileType, 0, vbNullString, 0, KEY_ALL_ACCESS, SA, Result, &H1) '// Присваиваем значению по умолчанию название программы RegSetValueEx Result, "", 0, REG_SZ, ByVal App.Title, Len(App.Title)
'// Определяем командную строку для приложения If Right(App.Path, 1) = "\" Then sPath = App.Path & App.EXEName & ".exe %1" Else sPath = App.Path & "\" & App.EXEName & ".exe %1" End If
RegSetValueEx Result, "", 0, REG_SZ, ByVal sPath, Len(sPath) End Sub В начало
Убираем программу из списка Alt+Ctrl+Del.
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long Чтобы убрать вашу программу из списка Ctrl+Alt+Delete list, используйте процедуру MakeMeService:
Public Sub MakeMeService()
Чтобы показать вашу программу в списке Ctrl+Alt+Delete, используйте процедуру UnMakeMeService:
Public UnMakeMeService() В начало
|
||||||||||||||||||||
Последнее изменение этой страницы: 2019-12-25; просмотров: 182; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.16.51.189 (0.008 с.) |