Visual Basic для новичков и профессионалов 21(31)

Здравствуйте уважаемые подписчики!

Прежде всего хочу сказать, что дизайн рассылки претерпел изменения.

Наша рассылка также дублируется на Subscribe.ru. Для подписчиков Subscribe это первый выпуск. Скачать архив можно на нашем сайте http://basic.webhost.ru

Также был произведен подсчет баллов всех ответов на вопросы рассылки за период ее существования. Количество участников составляет 37. Общее количество баллов за все ответы: 262. Баллы начисляются каждому ответившему на вопрос рассылки. При этом за один ответ Вы сможете заработать от 0 до 5 баллов. Самый высокий бал означает, что ответ был дан правильно, с комментариями. Самый низкий бал (0) зарабатывают те, кто не коснулся сути вопроса, либо ответом является ссылка на сайт или на его ресурс. Также хотелось бы узнать Ваше мнение: стоит ли публиковать 5-ку лучших участников рассылки, отвечающих на вопросы? Варианты ответов: Да, Нет.

Маленький опрос:

Нравится ли Вам дизайн рассылки???
Варианты ответов	Голосов
Просто супер!!!	1
Отличный дизайн!	0
Пойдет!	6
Так себе...	2

1. Вопросы, касающиеся другой сферы программирования, а также сферы ПО - НЕ ПРИНИМАЮТСЯ!

2. Запрещена пересылка файлов автору рассылки размером более 200КБ без предварительного уведомления автора рассылки!

3. Письма с указанием ссылок на какой-либо ресурс или сайт будут отвергнуты, либо ссылкы будут заменены на <РЕКЛАМА> и не будут опубликованы в рассылке!

4. Используйте текстовый формат письма при написании вопроса или ответа.

На сайте появилось две новые программы в разделе SOFT:

Lotto - одна из первых программ, реализующая в программном вариатне знаменитую игру Русское лото. Встроенный генератор чисел избавит Вас от нудного вытаскивания бочонков, автоматический генератор билетов до 200 штук одновременно избавит Вас от нудного их составления, а также удобный просмоторщик билетов, в котором Вы сможете зачеркивать цифры. Спешите скачать программу и насладиться игрой! (300 KB)

Timer - это то, что Вы ищете! Надоело при ночном просмотре фильма вставать и выключать компьютер? Или Вам необходимо после истечении какого-либо промежутка времени выдать напоминание, звуковой сигнал, перевести компьютер в спящий режим? Тогда это то, что Вам надо! Timer сможет воплотить все это в реальность! Скачайте программу и Вы не пожалеете! (88 KB)

<<Новые вопросы>>

<<Вопросы без ответа>>

---

21/ Хелло френды! Всех с днем влюбленных.

Есть маленький вопросик:
Имею PictureBox контрол, который отображает на экране то, что болжно быть на принтере. Вывод обрабатывает один и тот же модуль. Ведь интерфейс принтера и PictureBox'а схожи. Для предпросмотра использую такую технологию: На форме PictureBox, как контейнер, заделан под цвет формы. Внутри него размещаю еще несколько PictureBox'ов, который имитируют собой страницы. Получается как в ворде. Далее задний PB раздвигаю в высоту так, чтобы при перемещении его внутри формы можно было увидеть все страницы. Справа VScroolBar, который привязан к заднему пиктуребоксу по принципу PBBGround.Top=0 - VScroolBar.Value и все это в событие Scrool. Получается эффект смещения страниц. Их можно листать. И вот сам вопросик. Можно ли как-нибудь смаштабировать все эти пиктуребоксы так, чтобы не менять алгоритм вывода на них. Модуль вывода и форматирования занимает почти 100 КБ. Переписывать его не хочется.

Заранее всем спасибо. Если есть примеры, то можно сюда (casperosft@inbox.ru) [Ответить]

---

28/ Как вывести все иконки ассоциативных файлов (как в проводнике) [Ответить]

---

31/ Привет! Скажите, как пользоваться SpeechAPI? Меня интересует пример [Ответить]

---

40/ Здраствуйте ! У меня к вам будет один вопрос. Можно ли на ВБ (у меня установлена 6-я версия программы) сделать поиск подключенных компьютеров по локальной сети.Мне нужно узнать их ай-пи адрес и желательно имя компьютера. Я начинающий программист, если можно, обьясните более подробно. Заранее спасибо [Ответить]

---

41/ А возможноли сделать на VB трех мерный кубик-рубик. Похожий на этот "http://conus-video.zp.ua/img/rubik.zip". Или хотя бы подскажите, где можно взять исходник к такой игре. [Ответить]

---

43/ Здравствуйте уважаемые програмисты. Смотрю я на это дело, сайт развивается, рассылка стала хорошей. То есть объемной. Я конечно не надеялся получать тут ответы, но смотрю, что после прекращения рассылки Visual Basic: "новости сайтов, советы, примеры кодов". Вижу что часть писателей теперб здесь. У меня к вам такой вопрос. Видел программу типа Чатер Бокс. Смысл простой я звоню со своего компа на другой имеющий эту же прогу. Она соединяется. Вся суть в том что можно переслать файлы или написать текст. Если кто знает как это сделать на VB. Как открыть порт и набрать номер я знаю. А дальше? [Ответить]

---

49/ Тут такая проблема... Я собрался изучить базы данных, а вот хелп не могу найти, в частности по MSH FlexGrid, если у вас есть хелп по контролам вы бы не смогли бы мне прислать или подсказать как с ним работать. Зарание благодарю!!!! [Ответить]

---

54/ Как сделать турнирную таблицу (Как в футболе). Самое главное - это сортировка. Заранее спасибо! [Ответить]

---

57/ Здравствуйте. Уважаемы програмисты, я не программирую на VB. Недавно появилась задачка, которую я предполагаю как можно решить, но не знаю как реализовать. Исходные данные. Есть сетевой принтер с возможностью двухсторонней печати. Пользователи работают с MS Word. На печать посылаются задания из n листов. При этом, листы с 1 по n-2 должны быть напечатаны с одной стороны. Лист n-1 является последним листом документа, а лист n оборотной стороной листа n-1. Предпологаемое решение. По нажатию кнопки "Печать1" из переменной "Количество листов в документе" извлекается заначение n и если n<2 выводится на экран сообщение "Печать с оборотом не возможна" и производится выход из программы, если n>2 вызывается на исполнение функция печати, которой в параметрах передается: 1. Печатать листы с 1 по n-2; 2. Печатать без оборота. Вызывается на исполнение функция печати, которой в параметрах передается: 1. Печатать листы n-1, n; 2. Печатать с оборотом. При этом желательно сделать так, чтобы между вызовами функций печати в очередь печати не проскочило какое-нибудь задание. Естественно, все это оформить в виде макроса. Прошу Вас помочь мне. [Ответить]

---

59/ Доброго здоровья всем читателям рассылки! У меня есть один вопрос. Имеются два BMP рисунка разного размера, необходимо наложить на рисунок большего размера рисунок меньшего размера строго по заданным координатам, сохранить полученный рисунок. Буду благодарен за любые мысли. [Ответить]

---

60/ Здравствуйте уважаемые программисты! Может кто-нибудь знает,как работать с модемом в VB. Хотя бы номер набирать. Киньте исходничок на мыло, кому не лень. Спасёте меня по-крупному! perekladov_vova@mail.ru [Ответить]

---

62/ Здравствуйте уважаемуе программисты. Подскажите принцип работы с объектом phone. Вопрос жизни и смерти. [Ответить]

---

63/ Здравствуйте! Как сделать столбец для таблицы с помощью VB который будет показывать номера кварталов с min зарплатой(в таблице 4 квартала). Другой столбец - Динамика изменения средней зарплаты по кварталам (рост, падение, колебание, постоянно)\ нужно найти среднее знаение среди записей каждого отдела и чтобы написал динамику изменени, то что напискано в скобках, одно слово. [Ответить]

---

64/ Как зафиксировать утопленную кнопку на форме средствами VB? [Ответить]

---

66/ здраствуйте, кто знает как определить кол-во свободной памяти, вроде это можно сделать при помощи API функции GlobalMemoryStatus, если кто-то делал, то подскажите как. [Ответить]

---

---

21/ Хелло френды! Всех с днем влюбленных. Есть маленький вопросик: Имею PictureBox контрол, который отображает на экране то, что болжно быть на принтере. Вывод обрабатывает один и тот же модуль. Ведь интерфейс принтера и PictureBox'а схожи. Для предпросмотра использую такую технологию: На форме PictureBox, как контейнер, заделан под цвет формы. Внутри него размещаю еще несколько PictureBox'ов, который имитируют собой страницы. Получается как в ворде. Далее задний PB раздвигаю в высоту так, чтобы при перемещении его внутри формы можно было увидеть все страницы. Справа VScroolBar, который привязан к заднему пиктуребоксу по принципу PBBGround.Top=0 - VScroolBar.Value и все это в событие Scrool. Получается эффект смещения страниц. Их можно листать. И вот сам вопросик. Можно ли как-нибудь смаштабировать все эти пиктуребоксы так, чтобы не менять алгоритм вывода на них. Модуль вывода и форматирования занимает почти 100 КБ. Переписывать его не хочется. Заранее всем спасибо. Если есть примеры, то можно сюда (casperosft@inbox.ru) [Ответить]

Отвечает: Леголегс

Попробуй поэкспериметировать с scalemode, scaleheight, scalewidth

---

Оценка за ответ: 3

---

55/ Как сделать чтобы программка была поверх всех окон. Желательно по выбору в меню. А не всегда. [Ответить]

Отвечает: Casper

Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

вот hWndInsertAfter и отвечает за позицию.

-1 - впереди всех
0 - нормально
1- позади, но у меня, почему-то не работает

hWnd - ссылка на окно, это я думаю понятно

остальные = 0, кроме wFlags = 3

Вот и все

---

Оценка за ответ: 4

Отвечает: Андрей

Private Sub Form_Load()
Call SetFormPosition(Me.hwnd, True) 'Поверх всех окон.
End Sub

В модуле
Option Explicit
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean)
If TopPosition Then
SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
Else
SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, _
SWP_NOSIZE Or SWP_NOMOVE
End If
End Sub

Дальше думаю разберешся, если что не понятно, мыль на now@kogalym.ru, отвечу.

---

Оценка за ответ: 4

Отвечает: Леголегс

'объявление API
Public Const HWND_TOPMOST As Long = -&H1
Public Const HWND_NOTOPMOST As Long = -&H2
Public Const SWP_NOSIZE As Long = &H1
Public Const SWP_NOMOVE As Long = &H2
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

'использование
SetWindowPos form1.hwnd,HWND_TOPMOST ,0,0,0,0,SWP_NOSIZE Or SWP_NOMOVE

---

Оценка за ответ: 3

---

56/ Может кто знает в чем ошибка?
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_SHOWMAXIMIZED = 2
Public Sub OpenFilll()
Dim Nn As String, FH As Variant
Dim NewF As Variant
NewF = "C:\Program Files\Моя_Прога.exe"
Call ShellExecute(0, "open", NewF, "", "", SW_SHOWMAXIMIZED)

AppActivate (NewF)'Сдесь косяк под номером 5

SendKeys ("{DOWN}")
SendKeys ("{Tab}")
SendKeys ("Мой текст в окне ввода...")
End Sub
С уважением буду ждать предложений... Lexx [Ответить]

Отвечает: Alex Tolmasov

Lexx,
Зачем использовать апишный шелл? все можно сделать намного проще и быстрее
с обычным Shell из набора стандартный функций васика.

Вот пример, который получился у меня после двухминутного чтения справки. С
комментариями, так что я думаю, все понятно.

Private Sub Form_Click()

' запускаем программу c:\windows\System32\calc.exe
' это обычный виндовый калькулятор
' соответственно надо менять на путь программы Х
' и получаем ID процесса в переменной RetVal

Dim RetVal
RetVal = Shell("c:\windows\System32\calc.exe", 1)

AppActivate RetVal

'Читаем справку

'The AppActivate statement syntax has these named arguments:

'Part Description
'title Required. String expression specifying the title in
' the title bar of the application window you want to
' activate. The task ID returned by the Shell function
' can be used in place of title to activate an application.

'некоторая переменная, которую мы будем посылать
Dim str
str = "123"

'отправляем данные
SendKeys str

' все работает! в калькуляторе появились цифирьки :)
End Sub


Вот так. И без всякого API. У меня вот редко получается вызывать апи,
чтобы он не глючил :) документации недостаточно. А с шеллом все просто.

А за идею спасибо. Надо будет ее где-то применить :)\

---

Оценка за ответ: 5

Отвечает: Casper

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_SHOWMAXIMIZED = 2
Public Sub OpenFilll()
Dim Nn As String, FH As Variant
Dim NewF As Variant
NewF = "C:\proga.exe"
Call ShellExecute(0, "open", NewF, "", "", SW_SHOWMAXIMIZED)

AppActivate "Form1" 'Сдесь косяк под номером 5 был. Не надо скобок, а надо указать не файл, а именно название окна...

SendKeys ("{DOWN}")
SendKeys ("{Tab}")
SendKeys ("Мой текст в окне ввода...")
End Sub
Sub MAIN()
OpenFilll
End Sub

---

Оценка за ответ: 5

---

58/ Здравствуйте.У меня такой вопрос: как внести изменения в системный реестр (создавать и удалять ключи и т.д.).Зараннее спасибо. [Ответить]

Отвечает: Casper

Спрашивай мой модуль для работы с реестром у администратора.
--
Администратор: Файл здесь: Reestr.zip

---

Оценка за ответ: 0

---

61/ Здравствуйте. Подскажите, как сделать окно по маске (произвольной формы)? [Ответить]

Отвечает: Андрей

есть пример использования API. Скачать

---

Оценка за ответ: 0

---

65/ 65/ Приветствую всех! У меня такая проблема: нужно сделать так, чтобы после нажатия кнопки Minimize форма свернулась в трей. Так вот вопрос: есть ли такое событие на форме, либо придется писать код? Желательно пример... Спасибо заранее! [Ответить]

Отвечает: Леголегс

Используй
private sub form_resize()
if me.windowstate=vbminimized then
'сворачиваем в трей
exit sub
end if
end sub

---

Оценка за ответ: 5

Отвечает: Casper

Есть компонентик. Когда форма будет свернута, то произойдет событие Resize. Взглянем на параметры и увидим, что свойчтво формы WindowState примет значение 2. Тогда мы используя компонентик, просто добавляем в трей иконку, а по восстановлении формы (целчку на иконке), чкрываем ее.

Добавляем в проект TrayIcon и делаем такую вещь

DimWithEvents TI as TrayIcon

Sub Form_Load()
Set TI=New TrayIcon
With TI
.Icon=me.Icon
.TollTipText = Me.Caption
.hWnd=hWnd
End With
End Sub

Sub Form_Resize()
IF WindowState=2 then
Ti.Add
Else
Ti.Remove
End if
End Sub

Sub Form_MouseDown(..... забыл параметры.....)
Ti.CallEvent X,Y
End Sub

Sub TI_OnIcon(MouseButton)
IfButton=1 then Me.WindowState=0
End if

Ну вот в принципе и все...
Файлик спрашивайте у админа... Скачать файл

---

Оценка за ответ: 5

Отвечает: Андрей

Вот тебе пример, юзай, если что не понятно мыль (now@kogalym.ru), если смогу помогу, но думаю тут достаточно понятный пример. Скачать пример

---

Оценка за ответ: 0

---

Задать свой вопрос!

Операции с формами

Визуальное программирование нам дает очень много возможностей. Любой объект, будь он формой или меткой можно запрограммировать как угодно. Сегодня Мы рассмотрим основные операции с формой. Для начала создайте новый проект.

Итак, приступаем к операциям над формой. Первое, что Мы сделаем - зафиксируем размеры формы. В VB есть свойство BorderStyle. Имеет оно всего 5 значений: 0 - без заголовка, 1 - фиксированный размер окна, 2 - изменяемая форма окна, 3 - фиксированное диалоговое окно, 4 - фиксированное окно свойств, 5 - изменяемое окно свойств. Обычно многие программы имеют фиксированный размер, т.е. если подвести указатель к границам окна, то изменить их уже невозможно.

Учтите, что во время работы приложения, невозможно изменить свойство BorderStyle. Поэтому стоит сразу задуматься, какой заголовок будет иметь Ваше окно.

Любой пользователь также не раз видел, как в процессе работы приложения по команде пользователя форма то уменьшается, то увеличивается, но в свойствах формы установлено Borderstyle="1," т.е. пользователь не сможет ее растянуть сам. Это легко делается программным путем. Рассмотрим следующий пример:

Расположите на форме два элемента CommandButton с именами Com1, Com2. Запишите следующий код:

Private Sub Com1_Click()
With Me
.Height = .Height + 1000
.Width = .Width + 1000
End With
End Sub

Private Sub Com2_Click()
With Me
.Height = .Height - 1000
.Width = .Width - 1000
End With
End Sub

Запустите программу и посмотрите на результат, нажимая на кнопки. Конечно это не самый оригинальный вариант, форма постоянно то увеличивается, то уменьшается. Теперь добавим еще одну строчку:

.Left = .Left - 500

и в событие Com2_Click()

.Left = .Left + 500

Получается, что форма у нас находится всегда на одном месте, изменяются лишь границы окна.

На следующем занятии мы продолжим операции над формами.

До новых встреч!

Задать вопрос>>>

Буква (M) означает, что данный архив содержит только модуль.

Примеры и модули
Ссылка	Описание	Ссылка	Описание
about.zip	Стандартное окно About в VB (4.2KB)	OpenCD.zip	Управление CD (M) (1KB)
anigif.zip	Анимация в VB (5KB)	progressbar.zip	Progress Bar в трее (4KB)
appprioritet.zip	Устанавливаем приоритет в приложении (1.8KB)	randomform.zip	Разные формы (M) (2KB)
biosinfo.zip	Просматривает ифрормацию о БИОСе (5.5KB)	RandomForms.zip	Разные формы (1KB)
cd-rom.zip	Работа с CD-ROM (1.6KB)	Reestr.zip	Работа с реестром (2.5KB)
commondialog.zip	Диалог открытия файла без контрола (1.9KB)	registry.zip	Регистрация в реестре (9.5KB)
coolvbmenu.zip	Клевое меню в VB (14KB)	resource.zip	Просмоторщик ресурсов проги (46.6KB)
disableendtasks.zip	Запрет нажатия Ctrl+Alt+Del (1.8KB)	RU_EN.zip	Переключение языка программно (M) (1KB)
File_size.zip	Определяет размер файла (M) (1KB)	sharp.zip	Пример часиков (2.1KB)
fso.zip	Работа с FSO (File System Object) (101KB)	ShutDown.zip	Шатдаун компьютера (M) (1KB)
HDD_info.zip	Информация о диске (M) (1KB)	sort.zip	Сортировка массива за 0.2 секунды! (M) (1KB)
hddserial.zip	Серийный номер диска (24KB)	Standart.zip	Стандартные диалоги и окна (M) (1KB)
Hibernate.zip	Выключение и перезагрузка ПК (M) (1KB)	systrayicon.zip	Иконка в трее (21KB)
lines2000.zip	Пример игры Lines (74KB)	transparent.zip	Прозрачность окна (M) (1KB)
manifest.zip	ХР стиль в аппликухе (2.5KB)	Tray_icon2.zip	Икнока в трее 2 (M) (1KB)
mdlMain.zip	ХР стиль в приложении (M) (1KB)	Tray_icon.zip	Иконка в трее (M) (1KB)
winwordorfo.zip	Проверка орфографии с помощью Word'а (1.9KB)

Компоненты:

Ссылка	Описание	Ссылка	Описание
SpiritButtonEdit.zip	Кнопка с текстовым полем	ProgBar.zip	Двухцветный прогресс бар
SpiritClock.zip	Электронные часы	RunString.zip	Бегущая строка
SpiritEditDate.zip	Компонент редактирования даты	STrayIco.zip	Иконка в трее
XPButton.zip	Кнопка в стиле XP, Office, и др.	UA_SuperTextBox.zip	TextBox вмещающий более 65КБ текста
SpiritProgressBar.zip	Прогресс Бар в классическом стиле	verticalLabel.zip	Вертикальный лейбл
ARFlatBttn.zip	Кнопка	vPlayer.zip	Плейер
HyperlinkAX.zip	Компонент для создания гиперссылок	shelllink.zip	Программное создание иконки NEW!!!

Есть вопросы относительно статьи, задавайте!

Регистрация ActiveX компонентов

Автор: Бельбаков Александр

COM (Component Object Model) - определённое соглашение для взаимодействия объектов друг с другом специальным образом. Из - за количества языков программирования и операционных систем, должен быть установлен некоторый стандарт для различных объектов, созданных этими языками и системами, чтобы они работали вместе. COM - является таким стандартом.

ActiveX основан на COM. Это позволяет программистам Visual Basic создавать коды библиотек для создания экземпляров целых объектов сервера. ActiveX DLL обеспечивает выполнение одинаковой нити (Thread) кода в то время как EXE обеспечивает отдельную нить кода. Хотя возможно создать автономный объект ActiveX (ActiveX EXE).

В Visual Basic, компоненты ActiveX разработанны как классы. Между классом, клиентом и сервером существуют объектно - ориентированные отношения. Клиент, обычно, создает экземпляр класса сервера и затем посылает информацию и запросы к этому экземпляру. Затем сервер обрабатывает информацию и, обычно, возвращает некоторую информацию клиенту. В общем, объект ActiveX - сервер, а ваше стандартное EXE приложение - клиент.

Любой компонент ActiveX должен быть зарегистрирован в операционной системой прежде, чем он будет использоваться. Visual Basic автоматически регистрирует ваши компоненты ActiveX каждый раз, когда вы компилируете проект. В регистрационную информацию включён путь и имя файла DLL(OCX) или EXE, который вы только что скомпилировали. При регистрации ActiveX компонента он не всегда находится в системной дирректории Windows (может находится в корневом каталоге вашей программы, в зависимости от того, где вы сохраните ваш компонент).

Когда ваша программа установлена на другом компьютере, она не будет работать, если ваш ActiveX компонент не скопирован и не зарегистрирован на этом компьютере. Можно использовать мастера установки, чтобы создать инсталляционный файл со всеми требуемыми компонентами, который при установке программы автоматически зарегистрирует все нужные компоненты.

Зарегистрированное местоположение компонента очень важно. Если вы переместите компонент ActiveX в другой каталог, Windows не сможет его найти и, следовательно, ваша программа не будет работать. Обратите внимание, что эта особенность не является способом защиты, а обеспеченивает совместимость стандарта COM для ActiveX компонента. Прежде чем переместить компонент в другую дирректорию необходимо удалить его старую регистрацию, а затем переместить в нужную папку и зарегистрировать опять.

Программа regsvr32.exe (обычно находится в системной дирректории Windows) используется для регистрации (и её удаления) ActiveX компонентов: *.dll, *.ocx. Синтаксис коммандной строки regsvr32 для регистрации DLL и OCX таков:

Регистрация: regsvr32 [имя_файла]
Удаление регистрации: regsvr32 /u [имя_файла]

Для регистрации ActiveX EXE нет необходимости использовать regsvr32.exe, так как он регистрируется сам. Надо правильно указать параметры коммандной строки:

Регистрация: [имя_файла] /regserver
Удаление регистрации: [имя_файла] /unregserver

В заключение: с помощью встроенного оператора Shell или API функции ShellExecute (для выполнения коммандной строки) можно создать свою утилиту для быстрой регистрации ActiveX компонентов.

http://www.delphi-faq.fatal.ru - Программирование на DELPHI: Вопросы и Ответы читателей; Статьи по программированию на Delphi, других языках программирования, графике (OpenGL/DirectX); Компоненты, Пакеты, Plug-in'ы, Модули для Delphi; Исходники программ, игр; Документация и ссылки на документацию по программированию; Рассылка, в которой каждый программист найдёт что-то полезное!

http://infomania2004.webhost.ru. Этот сайт создан для того, чтобы вы могли получить интересующую вас информацию с минимальными затратами сил и времени. Если вы не нашли здесь нужной информации, оставьте заявку..."

Все о Динамо - www.DinamoMania.ru На этом сайте вы найдете все новости и интервью ВСЕХ видов спорта Динамо. Также на сайте есть таблицы всех видов спорта. Видео и Фото материалы. И все это на одном сайте - www.DinamoMania.ru Это первый и единственный сайт, который освещает все виды одного клуба.