Вопрос № 28554: Здравствуйте, эксперты!
Пишу прогу для моих домочадцев, а именно оболочку вместо Explorer'a. В общем мне надо узнать, сколько учеток загружено в системе.
Плюс: Как убить Explorer при загрузке винды, либо заменить его на мою оболочку. Так...Вопрос № 28564: Как в vb6 скрыть приложение от диспетчера задач?...Вопрос № 28603: Как мона опредилить когда появиться диск в cd-rom'е и когда его вытащат?...
Вопрос № 28.554
Здравствуйте, эксперты!
Пишу прогу для моих домочадцев, а именно оболочку вместо Explorer'a. В общем мне надо узнать, сколько учеток загружено в системе.
Плюс: Как убить Explorer при загрузке винды, либо заменить его на мою оболочку. Также нужно запретить доступ к дискам (всем), хотя я это и средствами NTFS могу сделать. Помогите, прошу очень!
Отправлен: 30.10.2005, 17:11
Вопрос задал: SKE (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Miklucho
Здравствуйте, SKE!
Раздел реестра HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon, параметр shell отвечает за запускаемую оболочку. ИМХО.
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 30.10.2005, 18:04 Оценка за ответ: 4 Комментарий оценки: Спасибо!
Отвечает: Miklucho
Здравствуйте, Dushin Igor!
Если заранее известна буква дисковода, то можно использовать FSO.
Подключи в Referense (меню Project) MS Scripting RunTime. Далее:
Dim myFSO As Scripting.FileSystemObject
Private Sub Form_Load()
Set myFSO = New Scripting.FileSystemObject
End Sub
Private Sub Command1_Click()
Dim myDRV As Drive
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myDRV = myFSO.GetDrive(myFSO.GetDriveName(Text1.Text)) 'Имя диска задается обязательно как x: !
If myDRV.IsReady = True Then
a = "Имя тома: " & myDRV.VolumeName & vbCrLf
b = "Доступное пространство: " & myDRV.AvailableSpace / 1048576 & " MB" & vbCrLf
c = "Серийный номер: " & myDRV.SerialNumber & vbCrLf
d = "Тип устройства: " & myDRV.DriveType & vbCrLf
e = "Общий размер: " & myDRV.TotalSize & vbCrLf
f = "Сетевое имя: " & myDRV.ShareName & vbCrLf
Set myFSO = Nothing
end if
g = "Готовность: " & myDRV.IsReady
MsgBox a & b & c & d & e & f & g, vbInformation, "Информация о диске"
End Sub
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 31.10.2005, 18:40